+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme (/konu-excel-sayfasinda-verilere-filtre-uygulayarak-outlook-ile-toplu-mail-gonderme.html)
RE: Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme - feraz - 11/04/2021
Abey son dosyayı denememde direkt gönderiyordu bende.
RE: Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme - feraz - 11/04/2021
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 WithRE: Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme - Oğuz Türkyılmaz - 11/04/2021
(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.
RE: Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme - feraz - 11/04/2021
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 FunctionRE: Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme - Oğuz Türkyılmaz - 11/04/2021
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.
RE: Excel Sayfasında Verilere Filtre Uygulayarak Outlook İle Toplu Mail Gönderme - feraz - 11/04/2021
Rica ederim abey.
Kolay gelsin.