Outlook Mail

[hlojan]

Arkadaşlar !

Excel listemden toplu mail göndermek istiyorum

Private Sub CommandButton1_Click()

Dim evnout As Object
Dim evnmailitem As Object
resim = ThisWorkbook.Path & "\christmashappy-newyear.jpg"
For i = 2 To Range("a2").End(4).Row
Set evnout = CreateObject("Outlook.Application")
Set evnmailitem = evnout.CreateItem(0)
    With evnmailitem
        .Subject = "Mutlu Yıllar - Happy New Year"
        .To = Cells(i, "c").Value
        
        isim = Cells(i, "a").Value & " " & Cells(i, "b").Value
        .htmlBody = "<font name='Vivaldi' size='14'>Sevgili " & isim & "<br><br>" & _
        "Yeni yılınızı kutlar,sağlık mutluluk ve başarılar dileriz.<br>" & _
        "We wish you wery Christmas and happy new year. <br>" & _
        "Wir wünschen Ihnen ein frohes Weihnachtsfest und einen guten Rufsch ins neue Jahr." & _
        "Zalig Kerstmis Guliklig Nieuwjaar. Joyeur  Noel et Bon Annee.</font>"
        .display
        .Send
    End With
    Set evnmailitem = Nothing
    Set evnout = Nothing
Next i
    i = Empty: resim = vbNullString: isim = vbNullString
End Sub

Bu kodu kulandım


Ama mail gönderirken bu hatayı alıyorum

Çözümü burdan kapatmak diye buldum ama

Ayarlar aktif değil. Seçenek değiştiremiyorum

Konu hakkında yardımlarınızı bekliyorum

 

[Emir Hüseyin Çoban]

. . .

7 nolu mesajı inceleyiniz.

http://www.excel.web.tr/f48/outlook-uzerinden-mesaj-gonderirken-guvenlik-uyarysy-t135090.html

. . .

 

[hlojan]

çok saol hüseyin bey ! Her maile imzamı eklemek için napmayalım acaba ?

imza yolu

C:\Users\isa\AppData\Roaming\Microsoft\Signatures\tem.htm

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde deneyin. Daha önce Korhan Ayhan bununla ilgili çözümler paylaşmıştı.

    With evnmailitem
        .Subject = "Mutlu Yıllar - Happy New Year"
        .To = Cells(i, "c").Value
        isim = Cells(i, "a").Value & " " & Cells(i, "b").Value
   [COLOR="DarkRed"]     .display[/COLOR]
        .htmlBody = "<font name='Vivaldi' size='14'>Sevgili " & isim & "<br><br>" & _
        "Yeni yılınızı kutlar,sağlık mutluluk ve başarılar dileriz.<br>" & _
        "We wish you wery Christmas and happy new year. <br>" & _
        "Wir wünschen Ihnen ein frohes Weihnachtsfest und einen guten Rufsch ins neue Jahr." & _
        "Zalig Kerstmis Guliklig Nieuwjaar. Joyeur  Noel et Bon Annee.</font>" [COLOR="DarkRed"]& .htmlBody[/COLOR]
        .Send
    End With

. . .

 

[hlojan]

kayıtlı imzam var

C:\Users\isa\AppData\Roaming\Microsoft\Signatures\ tem.htm

Her mailin sonunda imza eklesin istiyorum

Sizin çözümünüzün içinde ilgili kışım bulamadım

 

[Emir Hüseyin Çoban]

. . .

4 nolu mesajda verdiğim kodlar varsayılan imzayı mail gövdesine ekler.

Aşağıdaki kodlar dosya yolunu belirtiğiniz imzayı ekler.
Dosya yolunu kendinize göre değiştirin.

        With evnmailitem
            .Subject = "Mutlu Yıllar - Happy New Year"
            .To = Cells(i, "c").Value
            isim = Cells(i, "a").Value & " " & Cells(i, "b").Value
     [COLOR="DarkRed"]       Set FSO = CreateObject("Scripting.FileSystemObject")
            yol = "C:\Users\Hüseyin\AppData\Roaming\Microsoft\Signatures\imzaara.htm"
            Set imza = FSO.OpenTextFile(yol, 1)[/COLOR]
            .HTMLBody = "<font name='Vivaldi' size='14'>Sevgili " & isim & "<br><br>" & _
            "Yeni yılınızı kutlar,sağlık mutluluk ve başarılar dileriz.<br>" & _
            "We wish you wery Christmas and happy new year. <br>" & _
            "Wir wünschen Ihnen ein frohes Weihnachtsfest und einen guten Rufsch ins neue Jahr." & _
            "Zalig Kerstmis Guliklig Nieuwjaar. Joyeur  Noel et Bon Annee.</font>"[COLOR="DarkRed"] & _
            "<BR><BR><BR>" & imza.readall[/COLOR]
            .display
            .Send
        End With

. . .