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.
Kod:
.To = CStr(syfEmail.Range("B" & i).Value)
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)
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)
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