+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Outlook İle Dosya Ekli Toplu Mail Gönderme (/konu-excel-outlook-ile-dosya-ekli-toplu-mail-gonderme.html)
RE: Excel Outlook İle Dosya Ekli Toplu Mail Gönderme - Oğuz Türkyılmaz - 17/04/2021
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.
RE: Excel Outlook İle Dosya Ekli Toplu Mail Gönderme - Oğuz Türkyılmaz - 17/04/2021
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.
RE: Excel Outlook İle Dosya Ekli Toplu Mail Gönderme - feraz - 17/04/2021
Kod:
.To = CStr(syfEmail.Range("B" & i).Value)RE: Excel Outlook İle Dosya Ekli Toplu Mail Gönderme - Oğuz Türkyılmaz - 17/04/2021
(17/04/2021, 20:07)feraz yazdı:burdaki B yerine C olmalıydı sanırım orda yanlışlık var abey.Kod:.To = CStr(syfEmail.Range("B" & i).Value)
Evet onları düzelttim Feraz Bey Bu başka bir problem
RE: Excel Outlook İle Dosya Ekli Toplu Mail Gönderme - feraz - 17/04/2021
(17/04/2021, 20:10)Oğuz Türkyılmaz yazdı:Abey benden pes outlooka gidince orda bekleme olayını bilmiyorum.Yeni konu açıp çözüm gelirse burda paylaşırsanız seviniriz(17/04/2021, 20:07)feraz yazdı:burdaki B yerine C olmalıydı sanırım orda yanlışlık var abey.Kod:.To = CStr(syfEmail.Range("B" & i).Value)
Evet onları düzelttim Feraz Bey Bu başka bir problem
Re: Excel Outlook İle Dosya Ekli Toplu Mail Gönderme - feraz - 18/04/2021
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