Toplu mail atmak

[bmutlu966]

Arkadaşlar,
Forumdaki tüm mail konularını inceledim ancak yinede yapamadım.
A kolonunda yüze yakın mail adresim var. Makro ile bu mail adreslerini tek bir tıklama ile Outlookta mail açıp hepsini aynı anda To: kısmına yazmasını istiyorum. Forumdaki örneklerde
her mail adresi için ayrı ayrı mail sayfası açıyor. Ben ise tek mail sayfasına tüm mailleri yazsın istiyorum.

 

[bmutlu966]

Arkadaşlar,
Forumdaki tüm mail konularını inceledim ancak yinede yapamadım.
A kolonunda yüze yakın mail adresim var. Makro ile bu mail adreslerini tek bir tıklama ile Outlookta mail açıp hepsini aynı anda To: kısmına yazmasını istiyorum. Forumdaki örneklerde
her mail adresi için ayrı ayrı mail sayfası açıyor. Ben ise tek mail sayfasına tüm mailleri yazsın istiyorum.

örnek dosya ekte...

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Aşağıdaki kodları boş bir modülde deneyiniz.
Maili taslak olarak outlooka kaydedecektir.

Kırmızı ile belirttiğim değişkeni isteğinize göre çoğaltınız.

Sub kod_mailgönder()
' . . .
For a = 1 To [a65536].End(3).Row
deg = deg & isaret & Cells(a, "a")
isaret = ";"
Next
adres = deg
' . . .
Application.ScreenUpdating = False

'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI

With Application
.EnableEvents = True
.ScreenUpdating = True
End With
Dim objOutlook As Object
Dim objMail As Object
Dim i As Long, NoA As Long
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = adres
'.CC = ""
.Subject = ""
.Body = ""
'.Attachments.Add ""
.Save
'.Send
'.Display
End With
Set objMail = Nothing
Set objOutlook = Nothing
Application.ScreenUpdating = False
End Sub

. . .

Sub auto_open()
bir = MsgBox(" Mc Outlook Açmak İstiyor Musunuz ? ", vbYesNo, " Hüseyin Çoban ")
If bir = vbNo Then Exit Sub
Shell "outlook"
End Sub

. . .

 

[bmutlu966]

Hüseyin kardeşim ilgin için çok teşekkürler. adres değişkenini bir döngü ile tanımlamamız mümkün mü acaba ? çünkü A kolonundaki mail adresleri değişken bazen azalıp bazen çoğalabiliyor.Yani türkçesi : A son satırdan A2 ye kadar tüm hücrelerdeki mail adreslerini aralarında noktalı virgül olacak şekilde adres değişkenine tanımlamalı...

 

[Emir Hüseyin Çoban]

. . .

Merhaba.
Üstteki mesajımdaki kodları güncelledim. Deneyiniz.

. . .

 

[bmutlu966]

Süper. çok teşekkürler.