Evet ben koptum çok karıştı o yüzden bendeki en anlayabildiğim sürümden devam edelim lütfen ENYDESK ID GÖNDERDİM.

Feraz Hocam çok teşekkür ederim Şu an hem dijital imzalı hem de toplu mail gönderimi istenirse filtreleme yaparak gerçekleştiriliyor. Çok uğraştırdım sizi hakkınızı helal edin.

burdaki B yerine C olmalıydı sanırım orda yanlışlık var abey.

(17/04/2021, 20:07)feraz yazdı:

Kod:

.To = CStr(syfEmail.Range("B" & i).Value)

burdaki B yerine C olmalıydı sanırım orda yanlışlık var abey.

Evet onları düzelttim Feraz Bey Bu başka bir problem

(17/04/2021, 20:10)Oğuz Türkyılmaz yazdı:

(17/04/2021, 20:07)feraz yazdı:

Kod:

.To = CStr(syfEmail.Range("B" & i).Value)

burdaki B yerine C olmalıydı sanırım orda yanlışlık var abey.

Evet onları düzelttim Feraz Bey Bu başka bir problem

Abey benden pes outlooka gidince orda bekleme olayını bilmiyorum.Yeni konu açıp çözüm gelirse burda paylaşırsanız seviniriz

Alttaki kodu buldum.Bununla imzalamaya gerek yok.Sayfanın birine resim olarak eklenir imza resmi ve outlooka yapıştırıyor abey.
Bunu uyarlayıncada eklerim forma.

Sub ChartToOutlook_single()



    'Microsoft outlook 16.0 object libary secilmali

    Dim oLookApp As Outlook.Application

    Dim oLookFdr As Outlook.Folder

    Dim oLookNsp As Outlook.Namespace

    Dim oLookItm As Outlook.MailItem

    

    On Error Resume Next

    Set oLookApp = GetObject(, "Outlook.Application")

        If Err.Number = 429 Then

           Err.Clear

           Set oLookApp = New Outlook.Application

        End If

        On Error GoTo 0

    ActiveSheet.Shapes("mailResim").Copy

           

    Set oLookItm = oLookApp.CreateItem(olMailItem)



    With oLookItm

        .To = "[email protected]"

        .Subject = "Test"

        .Body = "Dear Mr Lee" & vbNewLine

        .Display

        Set oWdEditor = .GetInspector.WordEditor

        Set oWdRng = oWdEditor.Application.ActiveDocument.Content

            oWdRng.InsertAfter " " & vbNewLine & vbNewLine & vbNewLine

            oWdRng.Collapse Direction:=wdCollapseEnd

        oWdRng.Paste

    End With

End Sub