Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme

Abey son dosyayı denememde direkt gönderiyordu bende.

Alttaki gibide denedim az önce hem giden klasöründe var hem direkt geliyor adrese program açmadan

 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

(11/04/2021, 11:27)feraz yazdı: Alttaki gibide denedim az önce hem giden klasöründe var hem direkt geliyor adrese program açmadan

 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

Feraz hocam evet bu şekilde gitti bir kaç deneme daha yapıp dönüş yaparım.

Outllok açıkken hata vermemesi için alttaki kod ilave edildi.
Dosyayı deneyin abey.

Function outlookAcikmi() As Boolean

    Dim objOutlook As Object

    outlookAcikmi = False

    On Error Resume Next

    Set objOutlook = GetObject(, "Outlook.Application")

    If Not objOutlook Is Nothing Then

        outlookAcikmi = True

    End If

    On Error GoTo 0

    Set objOutlook = Nothing

End Function

Feraz Hocam ellerinize sağlık Çok Teşekkür ederim. Tek bir konu kaldı çözüme kavuşturmak istediğim gerçi Office word desteği ile uzun yoldan çözümleniyor ama Office wordü işin içine karıştırmadan kodla çözülebilir mi bilmiyorum. Konuyu açayım inşallah onada bir çözüm üretilebilir.

Rica ederim abey.
Kolay gelsin.