ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[cerci07]

Merhabalar

Makro ile gönderdiğim maillere imza ekleyemedim maalesef. Pek çok yere baktım paylaşılanları uyarlamaya çalıştım başarılı olamadım. Ekte örnek dosyayı paylaşıyorum yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

[Tarkan VURAL]

Merhaba,
Şu konuyu inceler misiniz ? viewtopic.php?f=93&t=15719&p=118565&hilit=signature#p118570

[cerci07]

Tarkan hocam cevabınız için teşekkür ederim. Konuyu açmadan önce bu konuyu da inceledim fakat uyarlayamamıştım.
Geldiğim son noktada imza eklemeyi başardım fakat imzada yer alan kurumsal logo kısmı maalesef çıkmıyor. Bu makroya ekleme yaparak logonun da çıkması mümkün oluyorsa çok güzel olacak, teşekkür ederim.

Kod: Tümünü seç

Sub MAIL_GONDER()
    Dim Outlook_App As Object
    Dim Outlook_Mail As Object
    Dim S1 As Worksheet, X As Long
   
    Set Outlook_App = CreateObject("Outlook.Application")
    Set S1 = Sheets("Sayfa1")
   
    For X = 2 To S1.Cells(S1.Rows.Count, 1).End(3).Row
        If S1.Cells(X, 4) = "" Then
            Set Outlook_Mail = Outlook_App.CreateItem(0)
            With Outlook_Mail
                .Display
                .To = S1.Cells(X, 3)
                .CC = ""
                .Subject = S1.Cells(X, 2)
                .HTMLBody = "<table border=""1""><tr><td>Sayin yetkili,<table border=""1""><tr><td> </td></tr><tr><td>" & S1.Cells(X, 1).Value & "</td></tr>" & .HTMLBody
                .BodyFormat = 3
                .Save
                .Send
                S1.Cells(X, 4) = "Gönderildi."
               
            End With
        End If
    Next
   
    Set S1 = Nothing
    Set Outlook_Mail = Nothing
    Set Outlook_App = Nothing
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub