Makro ile farklı kişilere farklı içerikte e-mail gönderme - Outlook

[mrtylmzzz]

Merhaba arkadaşlar,

Sizden bir konu hakkında yardım rica ediyorum. yardımcı olabilirseniz çok mutlu olacağım.

internette bir çok sitede outlook için excelde makro ile göndermek şeklinde yazılmış kodlar var. Yanlız benim istediğim n kadar satır için bu işlemi yapabilmek örneğin;

a1 hücresinde mailin içeriği b1 hücresinde konu c1 hücresinde ise mail adresi yine bu mantıkla
a2 hücresinde farklı bir mail içeriği b2 hücresinde farklı bir konu c2 hücresinde kişinin mail adresi

şeklinde n tane mail göndermek istiyorum yani farklı bir çok kişiye farklı bir çok konu ile farklı mail adreslerine makro ile mailgöndermek istiyorum.

internette bulduğum kaynaklarda sürekli tek mail gönderimi şeklinde yapılmış kodlar var.

konu hakkında yardımcı olabilirseniz çok sevinirim.
iyi günler dilerim.

 

[Emir Hüseyin Çoban]

Mail içeriğinden bir örnek paylaşabilir misiniz.
Maksimum uzunluğu ne olabilir.

Bir defa da 20 ve üzeri mail göndermeye çalışırsanız outlook zorlanacaktır ve mailiniz spama düşebilir.

.

 

[mrtylmzzz]

örneğin resimdeki gibi olsun istiyorum

 

[mrtylmzzz]

bu şekilde tek seferde 300 ve üzeri kişiye mail göndermem gerekecek. ve bunların içerik kısmındaki mail 300-500 karakter de olabilir. daha öncesinde lotus notes için yazılmış bir makro kullanıyordum. aynının outlook için olanını arıyorum.

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Option Explicit

Sub MAIL_GONDER()
    Dim Outlook_App As Object
    Dim Outlook_Mail As Object
    Dim S1 As Worksheet, X As Long
    
    Set Outlook_App = CreateObject("Outlook.Application")
    Set S1 = Sheets("Sayfa1")
    
    For X = 2 To S1.Cells(S1.Rows.Count, 1).End(3).Row
        If S1.Cells(X, 4) = "" Then
            Set Outlook_Mail = Outlook_App.CreateItem(0)
            With Outlook_Mail
                .To = S1.Cells(X, 3)
                .CC = ""
                .Subject = S1.Cells(X, 2)
                .Body = S1.Cells(X, 1)
                .BodyFormat = 2
                .Save
                .Send
                S1.Cells(X, 4) = "Gönderildi."
            End With
        End If
    Next
    
    Set S1 = Nothing
    Set Outlook_Mail = Nothing
    Set Outlook_App = Nothing

    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mrtylmzzz]

a sütununa içeriği b sütuna konuyu c ye mail adresini yazıp çalıştırıyorum msg box daki uyarı geliyor ancak maili göndermiyor.

 

[Korhan Ayhan]

Ben olumlu sonuç alıyorum.

Sayfanızın adı Sayfa1 olmalı.
D sütunu boş olmalı.

 

[mrtylmzzz]

Anlamadım gitti bende neden olmuyor acaba ?

 

[Korhan Ayhan]

Uzak bağlantı yapıp bakabilirim.

Uygunsa TeamViewer ya da Alpemix bağlantı kodlarını özelime bildirin...

 

[gedavet]

hocam bende denedim ekteki hatayı verdi

 

[Korhan Ayhan]

Verdiği hata mesajı nedir?

Bu arada sisteminizde Outlook programının yüklü olması gerekiyor.

 

[joker61tr]

Merhaba,
Bende çalıştı, elinize sağlık.

 

[gedavet]

hocam outlook yüklemesi nasıl olacak ben normal mailimi google chromeden açıyorum

ekteki görüntü gibi hata veriyor

 

[Korhan Ayhan]

Merhaba,

Sn. mustafakoza konu başlığında Outlook diye belirtilmiş. Verdiğimiz cevaplarda buna uygun şekilde verilmiş.

Konuyu dikkatlice incelemeden hata veriyor diyorsunuz.

Bu konudaki kodların çalışması için bilgisayarınızda Outlook programının yüklü olması gerekiyor.

Bu programda Ofis kurulumu sırasında paket olarak yüklenmektedir. Eğer sizde kurulu değilse büyük ihtimalle kurulum aşamasında seçilmemiş olmasındandır.

 

[mrtylmzzz]

çalıştırmayı başardım ilginize çok teşekkür ederim.

 

[Korhan Ayhan]

Çalışmamasının sebebi neymiş?

 

[mrtylmzzz]

makroda object library i işaretlemeyi unutmuşum.

 

[gedavet]

hocam outlook kurdumbaşka ne yapmam lazım
bir örnek denedim işlem tamam diyor ancak mail gelmiyor

 

[gedavet]

deneme

hocalarım ekteki örnekde deneme yapıyorum mail göndermiyor
ofis sürümümde outlook var

 

[japonbaba]

Sütuna Göre Değil Belirlemiş olduğumuz Alana Göre Mail Gönderme

Değerli Excel Web Üstatları Konu ile alakalı sitede bir sürü örnekler mevcut fakat kişilerin ihtiyacına göre uygulamalar değiştiğinden dolayı ve makroya yeni başladığımdan dolayı sizlerden yardım taleb ediyorum istediğim kısaca şu;

Mail Adresi : C8 Hücresinde
Mail Konusu : S5 Hücresinde(Değişiklik olabilir)
Mail Bilgisi (cc) : S10 Hücresinde (Değişiklik olabilir)
Mail İçeriği : S11 Hücresinde (Değişiklik olabilir)
Mail Eki olarak : Yazdırma alanı belirli olan alan veya klasörden

Resimdende anlaşılacağı gibi bir çok cari hesabın extre sayfası birleşik giriş kutusundaki bilgiye göre cariler değişiyor ve mail adresleri ve bilgilerde tabi bu yüzden hücrelere bağlı olması gerektiği kanaatindeyim. mail göndermem istediğim carinin extresi mail eki olarak yazdırma alanımı resimdede gördüğünüz gibi sayfa yazdır butonuna tıkladığımda belirli bir klasörün içine PDF dosyası olarak atıyor isterseninz klasörden göndersin isterseniz yazdırma alanından size bağlı şimdiden yardımlarınız için teşekkür ederim umarım açıklama yeterli gelir