Kodda Nerede Hata Yapıyorum _ EPOSTAya İMZA Ekleme

ugurcet' Alıntı:

merhaba ;
Outlook la mail gönderirken Outlook'ta kayıtlı imzamın maile eklemesini istiyorum ancak eklemeden maili gönderiyor nerede hata yapıyorum yardımcı olur musunuz? teşekkürler.


Dim Makro As Object
Dim Mail As Object
Set Makro = CreateObject("Outlook.Application")
Set Mail = Makro.CreateItem(0)
Dim Mail_Adresi As String
Dim Mail_Adresi_CC As String
Dim Mail_Adresi_From As String
Dim satir As String
Dim dosyaadi As String
Dim adisoyadi As String
Dim sicilno As String, epostaeki As String

Set fso = CreateObject("Scripting.FilesystemObject")
Set Signature = fspenTextFile("C:/Users/ugur.ugur/AppData/Roaming/Microsoft/Signatures/imza.htm", 1)

satir = Worksheets("Form").Range("F20")
Mail_Adresi = Worksheets("form").Range("Q3")
Mail_Adresi_CC = Worksheets("form").Range("R3")
sicilno = Worksheets("Form").Range("F20")
adisoyadi = Worksheets("Form").Range("F20")
dosyaadi = "C:\Users\ugur.cetinkaya\Desktop\ABONELİK BAŞLANGİC TARİHİ ODUNPAZARİ BELEDİYESİ YAZİLARİ\" & sicilno & ".pdf"
epostaeki = Dir(dosyaadi)

If epostaeki <> "" Then
On Error Resume Next
With Mail
Mail.To = Mail_Adresi
Mail.CC = Mail_Adresi_CC
Mail.Subject = "2004 Öncesi Elektrik Aboneliği Bilgi Talebi H.K"
Mail.Body = "Merhaba " & vbNewLine & vbNewLine
Mail.Body = Mail.Body & "Kayıtlarımızın tetkikinde" & " " & Worksheets("Form").Range("f20") & " " & "nolu abonenin bilgileri Ek'te yer almaktadır." & vbNewLine & vbNewLine
Mail.Body = Mail.Body & "Saygılarımla." & vbNewLine
Mail.Body = Mail.Body & "Uğur ÇETİNKAYA"
HTMLBody = .HTMLBody & "<br><br><br>" & Signature.readall
Mail.Attachments.Add (dosyaadi)
Mail.Send
MsgBox "Mail gönderildi...", vbInformation, "BİLGİLENDİRME"

End With
On Error GoTo 0
Set Mail = Nothing
Set Makro = Nothing
End If


End Sub

Genişletmek için tıklayın ...

İndirmek için giriş yapmanız gerekmektedir.
(23 satır)