Outlook toplu mail gönderme

[muyat]

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]

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.

 

[muyat]

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