With objMail
.To = maill
.Subject = "2021 WINPERAX Teknik Ürün Kataloðu"
.body = "Sayýn yetkili, Ekte 2021 WINPERAX Teknik Ürün Kataloðu bulunmaktadýr. Ýyi Çalýþmalar Dileriz.Saygýlarýmýzla,"
.Attachments.Add ek
' .Display
.Send
Application.Wait (Now + TimeValue(zaman))
End With
Alttaki gibide denedim az önce hem giden klasöründe var hem direkt geliyor adrese program açmadan