makro ile seçilen adreslere mail gönderme

[achil19]

Merhabalar
Ekte gönderdiğim excel dosyasındaki, sadece 1 yazan mağazalara mail göndermek istiyorum
Bunun için nasıl bir makro yazabilirim
Yazacağım metin değişiyor.
sadece mailde, kime kısmına buradaki mail adreslerinin gelmesini istiyorum

https://drive.google.com/open?id=0B6jo34yj3V6rZHdhMXBGQWk4NHc

 

[antonio]

Merhaba,
Örnek dosyanıza göre aşağıdaki kodları düzenledim.
C sütununda 1 yazılı olanları gönderme listesine dahil ediyor,
"E2" hücresine mesajın konusunu yazabilirsiniz. (Örnek kodlar bu şekilde düzenlendi, hücreyi gerçek dosyanıza göre değiştirebilirsiniz. Kırmızı işaretlidir)
"E3" hücresine, mesajın içeriğini yazabilirsiniz (aşağıdaki kodlar o şekilde düzenlendi, siz değiştirebilirsiniz, kırmızı renkli yer)
Sonucu paylaşınız.
Kodlarınız:

Sub e_posta_gonder()
Dim sh As Worksheet, ss As Long, z As Object, veri As Object
Dim outApp As Object, outMail As Object

Set outApp = CreateObject("Outlook.Application")
Set outMail = outApp.createitem(0)

Set sh = Sheets("Sayfa1")
ss = sh.Range("B56789").End(3).Row
Set z = CreateObject("vbscript.regexp")
    z.Global = True
    z.Pattern = ".*<|>"
For i = 2 To ss
    If sh.Cells(i, "C").Value = 1 Then
        Set veri = z.Execute(sh.Range("B" & i))
        If veri.Count > 0 Then
                eposta = z.Replace(sh.Cells(i, "B"), "") & ";" & eposta
        End If
    End If
Next i
epostalar = Left(eposta, Len(eposta) - 1)
With outMail
    .to = epostalar
    .Subject = sh.Range[COLOR="Red"][B]("E2")[/B][/COLOR].Value
    .body = sh.Range[COLOR="red"][B]("E3")[/B][/COLOR].Value
    .display
End With
End Sub

 

[achil19]

Merhabalar
Öncelikle çok teşekkür ederim
ama aşağıdaki gibi bir hata aldım

Run-time error 5
ınvalid procedure call or argument

 

[antonio]

Ben örnek dosyanızın üzerinde kodları denedikten sonra gönderdim.
Verilerinizin; örnek dosyanızdaki hücrelerle aynı yerde olduğunu kontrol ediniz.

 

[achil19]

Çok teşekkürler hocam, ben yanlış yapmışım
elinize sağlık

 

[antonio]

Rica ederim. İyi çalışmalar.