Listede bulunan her alıcıya ayrı mail göndermek

[manisalı88]

Merhaba arkadaşlar,
Sorum şudur. Ekte gönderdiğim excelde alıcının adı, soyadı, kullanıcı adı, şifresi ve mail adresi var. Ben her kişiye kendi kullanıcı adı ve şifrelerini mail adreslerine göndermek istiyorum. Sayfaya bir buton koyup butona bastığımda herkesin maillerine kullanıcı adı ve şifresi göndermeli. Şimdiden teşekkür ederim. Mailin şablonu aşağıdaki gibi;

Alıcı :[Mail adresi]
Konu :Kullanıcı Adı ve Şifre Hk.
Mail Açıklaması : Merhaba [Alıcı Adı],
Sistem kullanıcı adı ve şifresi aşağıdadır.
Kullanıcı Adı : [Kullanıcı Adı]
Şifre : [Şifresi]
Sistem linki: www.aaaaa.com.tr
İyi Çalışmalar dilerim.

 

[manisalı88]

Yardımcı olabilecek var mı acaba

 

[antonio]

Merhaba,
Aşağıdaki kodları deneyiniz:

Sub gonder()
Dim sh As Worksheet, ss As Long, oApp As Object, oMail As Object, i As Integer
Dim ad As String, soyad As String, k_ad As String, sifre As String, eposta As String

Set sh = Sheets("Alıcı Listesi") 'sayfa
ss = sh.Range("A5555").End(3).Row 'son satır
Set oApp = CreateObject("Outlook.Application")
Set oMail = oApp.createitem(0)
    For i = 2 To ss
        ad = sh.Range("A" & i).Value
        soyad = sh.Range("B" & i).Value
        k_ad = sh.Range("C" & i).Value
        sifre = sh.Range("D" & i).Value
        eposta = sh.Range("E" & i).Value
        With oMail
            .display 'Outlook programını görüntüler.
            .To = eposta
            .Subject = ad & soyad & " için Kullanıcı adı ve şifre bilgilendirmesi."
            .body = "Sayın " & ad & soyad & ";" & vbCrLf & _
                    "Kullanıcı adı ve şifreniz aşağıdaki gibidir:" & vbCrLf & _
                    "Kullanıcı adınız: " & k_ad & vbCrLf & _
                    "Şifreniz: " & sifre & _
                    "Sistem linki: www.aaaa.com.tr" & vbCrLf & _
                    "İyi çalışmalar dilerim."
            .send 'e-postayı gönderir
        End With
    Next i
Set sh = Nothing
Set oApp = Nothing
Set oMail = Nothing
End Sub

 

[manisalı88]

Teşekkürler çok sağolun

 

[antonio]

Rica ederim. Kolay gelsin.