Alttaki gibi yapınca sanırım yollanıyor artık.

   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,"

        .Importance = 1

        .Sensitivity = 3

        .Attachments.Add ek

'        .Display

        .Send

        Application.Wait (Now + TimeValue(zaman))

    End With