Excel satırındaki mail adreslerine outlook üzerinden mail atma

[seiko_006]

Arkadaşlar,

Ekteki excel dosyasında

a1 satırındaki mail adresine b1 ilk satırından mesajı,
a1 in ikinci satırındaki mail adresine b1 ikinci satırındaki mesaj outlook üzerinden nasıl gönderebilirsiniz.

Ben listeyi ekleyeceğim, outlook a1 deki, b1 ilk satırını, a1 ikicin satırındaki b1 ikinci satırına gönderecek.

Yardımlarınızı bekliyorum.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
Application.ScreenUpdating = False
Dim H
[B]'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI[/B]

For H = 2 To [A65536].End(3).Row
If Cells(H, "A") <> "" Or _
Cells(H, "A") Like "*@*" Then

With Application
.EnableEvents = 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 = Cells(H, "A")
'.CC = ""
.Subject = "Mail"
.Body = Cells(H, "B")
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End If
Next H
Application.ScreenUpdating = True
End Sub

. . .

 

[seiko_006]

acaba bu konu nereye yapıştıracam

 

[seiko_006]

. . .

Sub kod()
Application.ScreenUpdating = False
Dim H
[B]'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI[/B]

For H = 2 To [A65536].End(3).Row
If Cells(H, "A") <> "" Or _
Cells(H, "A") Like "*@*" Then

With Application
.EnableEvents = 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 = Cells(H, "A")
'.CC = ""
.Subject = "Mail"
.Body = Cells(H, "B")
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End If
Next H
Application.ScreenUpdating = True
End Sub

. . .

ben bu konulara biraz uzağım, acaba nasıl yapacağımı adımla yazabilirmisin?

Yardımın için teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Tüm Excel Versiyonlarında Yeni Modül Ekleme ( Görsel Anlatım )

gibi forumda bir çok örnek var. Makro çalıştır, yeni modül ekleme diye forumda ve nette araştırma yapabilirsiniz.

. . .

 

[seiko_006]

. . .

Tüm Excel Versiyonlarında Yeni Modül Ekleme ( Görsel Anlatım )

gibi forumda bir çok örnek var. Makro çalıştır, yeni modül ekleme diye forumda ve nette araştırma yapabilirsiniz.

. . .

For H = 2 To [A65536].End(3).Row

bu satırda A65536 seçili olarak gelerek hata veriyor. hocam acaba neden kaynaklana bilir.

 

[Emir Hüseyin Çoban]

. . .

Yukarıda verdiğim kodları, örneğinize ekledim. Bende bir hata görünmüyor.
Outlook açık olmalı.

. . .

 

[seiko_006]

Sub kod()
Application.ScreenUpdating = False
Dim H
'NOT: TOOLS-REFERENCES TIKLA
'MİCROSOFT OUTLOOK 12.0 İŞARETLİ OLMALI

For H = 2 To [A65536].End(3).Row
If Cells(H, "A") <> "" Or _
Cells(H, "A") Like "*@*" Then

With Application
.EnableEvents = 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 = Cells(H, "A")
'.CC = ""
.Subject = "Mail"
.Body = Cells(H, "B")
.Send
End With
Set objMail = Nothing
Set objOutlook = Nothing
End If
Next H
Application.ScreenUpdating = True
End Sub


BU KODA D\kartvizit\karvizit.jpg yolunda bulunan kartvizitimi her mail için metnin sonuna ekleyerek gönderilmesi istiyorum. ben bulamadım nasıl yapılabilir.

 

[Asri]

Kişiye özel toplu mail gönderimi ve mail gönderimi ile beraber mail imzanın gönderilmesi konusunda aşağıdaki konuyu inceyebilir siniz.

http://www.excel.web.tr/f52/excel-ki-iye-zel-toplu-mail-gonderimi-t156176.html