- Katılım
- 19 Ağustos 2017
- Mesajlar
- 174
- Excel Vers. ve Dili
- 2016 TR
- Altın Üyelik Bitiş Tarihi
- 02/05/2019
Merhabalar Aşağıdaki Kodun ilgili adres ve mesaj içeriklerini "" tırnak içerisinde yazaraktan çalıştırdım fakat outlook umda bu dahil birçok mail kodlaması çalışmıyor outlook a gönderilen klasöründe hicbir içerik yok giden bilgisi olan yardım edebilecek üstadlarım varmı ?
kod:
kod:
Kod:
With Application
.EnableEvents = False
.ScreenUpdating = False
End With
Dim xlOutlook As Object
Dim xlMail As Object
Set xlOutlook = CreateObject("Outlook.Application")
Set xlMail = xlOutlook.CreateItem(0)
With xlMail
.To = "emre.ipek643@gmail.com" 'Cells(i, "C").Value
.CC = ""
.Subject = "Talebiniz ile ilgili"
.Body = "Merhaba " ' & Cells(i, "B").Value & Chr(10) & _
Cells(i, "A").Value & " numaralı talebi yönlendirmeniz gerekmektedir."
.Save
'.Display
.Send
End With
Set xlMail = Nothing
Set xlOutlook = Nothing
With Application
.EnableEvents = True
.ScreenUpdating = True
End With
End Sub