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

2 adet fitreleyip deneyin birde

2 adet olunca normal prosedür işliyor ve gönderildi mesaj kutusu çıkıyor fakat ben outlook programını açıp baktığımda mail sadece giden kutusunda gözüküyor bir müddet sonra gönderim gerçekleşiyor. Ben outlook programını açmazsam gönderi öylece askıda kalıyor ben ne zaman outlook programını açarsam süreç çalışıyor. Dolayısı ile ben unutur da mailleri gönder dedikten ve mailler gönderildi mesaj kutusunu ekranda gördükten sonra outlook programını açmayı unutursam maillerin gönderilme durumu askıda bekliyor , gitmiyor. Ne zaman outlook programını açıyorum o zaman giden kutusunda bekleyen mailler gönderilmeye başlıyor.

Filtrelemeden yollayıncada aynısı oluyormu çünkü o koda göre yaptım

Evet Feraz Hocam aynı şekilde filtreleme olmadan da, Outlook da mailler bekliyor. Ben Outlook programını açarsam prosedür çalışmaya postalar gönderilmeye başlıyor.

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

Feraz Hocam Bu şekilde Giden Kutusuna düşmeden direk gönderilmiş öğeler kutusuna düşüyor ama yine gitmesi için outlook açmak gerekiyor. Hatta outlook programı açık beklerken excelden gönderim yapmayı denedim. Yine Gönderilmiş postalara attı ama ben manuel olarak
GONDER AL butonuna basmadan işlemi yine gerçekleştirmedi. Hatta bu sefer eski versiyonda kapalı outlook programını açınca gönderim için klasörler eşitleniyor ve mailler gidiyordu bu kodla kapalı outlook u açmak yetmiyor gönderilmiş öğeler klasörünün içinde tekrardan GÖNDER AL Çalıştırmak gerekiyor yoksa outlook açmak gönderilmesi için yeterli olmuyor.