Outlook toplu mail gönderme

Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
Mail gönderirken To kısmına aşagıdaki gibi yazdıgımda aa2018 isimli hücrenin içinde yazılı olan tek bir mail adresine gönderiyor..Böylece kod bölümüne girmeden
hücrenin içerigini değiştirerek mailin gidecegi adresi de kolayca değiştirebiliyorum...
Set S1 = Sheets("Sayfa1")

.To = S1.Range("AA2018")

Peki benım elimde diyelim ki aa2018den aa2050ye kadar sıralı mail adresleri var.
To kısmına ne yazarsam bu adreslerin hepsine birden maili aynı anda gönderebilirimır?Böylece toplu mail göndermek istiyorum
 

turist

Destek Ekibi
Destek Ekibi
Katılım
18 Kasım 2009
Mesajlar
5,102
Excel Vers. ve Dili
2013 64Bit
English
Mail gönderen kodu kendiniz tasarladıysanız;
For - Next döngüsü ile yapabilirsiniz.
Örnek:
For i=2018 to 2050
bu araya mail gönderen kod kısmı girer.
.To = S1.Range("AA"& i)
kodlarınız bundan sonra da devam eder.
.Send
kısmından sonra
Next i
yazabilirsiniz.
Not: Bu tamamen teorik bir örnek kod şeklidir.Kendi kodlarınızın özelliğine göre şekli değişebilir.
Çözüm bulamazsanız örnek excel dosyanızı foruma ekleyiniz.
 
Katılım
27 Ekim 2017
Mesajlar
97
Excel Vers. ve Dili
2016 TÜRKÇE
Teşekkür ederim.
Sıralı mail adreslerini aralarında noktalı virgül olacak şekilde tek bir hücrede birleştir şeklinde kod yazdım...
.To kısmına da bu hücreyi tanımladım.Böylece istedigim tüm adreslere mail gidiyor.
Sizin önerdiginiz kodu denicem.Teşekküre ederim
 
Üst