toplu mail göndermek

[nes432]

arkadaşlar merhaba,

elimde üç sayfalık bir excel dosyası var. Sayfa1 de mail gönderilecek kişilerin listesi var. B sütununda kişinin TC numarası, C sütununda e-mail adresleri yer almakta. Sayfa2 de C7 hücresine Sayfa1 B sütunundaki tc numaralarını sırayla yazıp pdf ye çevirip sadece sayfa 2 yi ilgili TC numarasının karşısındaki mail adresine göndermek istiyorum. Sırayla tüm listeyi tek tıkla TC yazıp PDF çevir mail at seklinde bitirmek istiyorum. Bunun için nasıl bi makro yazıla bilir? yardımcı olursanız çok mutlu olurum.

Örnek dosya linkim
http://www.dosya.tc/server15/ljwzpx/CALISMA.xlsx.html

 

[nes432]

Sub otomatik()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "B").End(3).Row
For i = 2 To son
s2.[C7] = s1.Cells(i, "B")
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Users\AppData\Local\Temp\ÇALIŞMA.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub


bu şekilde bi makro yazdım ama Sayfa1 C sütunundaki mail adreslerine maili göndermeiyor

 

[nes432]

yardımcı olabilecek kimse yok mu? sadece kendim yazıyorum kendim okuyorum sanırım

 

[Korhan Ayhan]

Bu konular forumda çok fazla işlendi. Arama yapmanız gerekiyor.

 

[nes432]

Bu konular forumda çok fazla işlendi. Arama yapmanız gerekiyor.

arama yaptım aslında ama birebir örtüşen bir şey bulamadım. makrodan da cok anlamadığımdan olanı da uyarlayamadım. cevap için teşekkür ederim.

 

[Korhan Ayhan]

İlk mesajınızda "makro yazdım" ifadesini kullanmışsınız. Son mesajınızda ise "makrodan çok anlamıyorum" ifadesini kullanmışsınız.

Yazdıklarınızda bir çelişki yok mu?

 

[BAYRAM SARI]

 

[nes432]

İlk mesajınızda "makro yazdım" ifadesini kullanmışsınız. Son mesajınızda ise "makrodan çok anlamıyorum" ifadesini kullanmışsınız.

Yazdıklarınızda bir çelişki yok mu?

onu makro kaydet tuşuyla yapmıştım