Vba ya mail de olan imzayı getirme

[yasarcan]

Sub A()
Range("H14:N14").Select
ActiveCell.FormulaR1C1 = "120 001"
ChDir "C:\Users\F1\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\F1\Desktop\B MOBİLYA SAN TİC LTD ŞTİ ---A MOBİLYA LTD. ŞTİ. BA--BS MUTABAKAT FORMU.pdf", OpenAfterPublish:=True

Dim OutlookApp As Object
Dim OutlookmailItem As Object
Dim myattachments As Object

Set OutlookApp = CreateObject("Outlook.application")
Set OutlookmailItem = OutlookApp.CreateItem(0)
Set myattachments = OutlookmailItem.Attachments

With OutlookmailItem
.To = ""
.Subject = "B MOBİLYA SAN TİC LTD ŞTİ ---A MOBİLYA LTD. ŞTİ. BA--BS MUTABAKAT FORMU"
.CC = ""
.Body = " "
myattachments.Add "C:\Users\F1\Desktop\B MOBİLYA SAN TİC LTD ŞTİ ---A MOBİLYA LTD. ŞTİ. BA--BS MUTABAKAT FORMU.pdf"
'.send
.display
End With

Set OutlookmailItem = Nothing
Set OutlookApp = Nothing

End Sub



.BODY BÖLÜMÜ
AD SOYADI
FİRMA ADI
TELEFON NUMARASI
VERGİ NO
VE LOGO ALT ALTA GELECEK ŞEKİLDE OLMASINI İSTİYORUM

YARDIMCI OLURSANIZ SEVİNİRİM

 

[tirEdsOuL]

Üstadlar daha iyi bilecektir, benim kullandığım kodu burada kırmızı ile belirttim. Sanırım burada da çalışacaktır.
yol = "C:\Users\ebulut\AppData\Roaming\Microsoft\Signatures\İmza.htm" buradaki bilgisayar kullanıcı adınızın ve dosyanızın adını doğru belirtmeniz yeterli olacaktır diye düşünüyorum.
Body kısmının sonuna dikkat etmeyi unutmayınız.

Sub A()
Range("H14:N14").Select
ActiveCell.FormulaR1C1 = "120 001"
ChDir "C:\Users\F1\Desktop"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\F1\Desktop\B MOBİLYA SAN TİC LTD ŞTİ ---A MOBİLYA LTD. ŞTİ. BA--BS MUTABAKAT FORMU.pdf", OpenAfterPublish:=True

Dim OutlookApp As Object
Dim OutlookmailItem As Object
Dim myattachments As Object

Set OutlookApp = CreateObject("Outlook.application")
Set OutlookmailItem = OutlookApp.CreateItem(0)
Set myattachments = OutlookmailItem.Attachments
[COLOR="Red"]Set FSO = CreateObject("Scripting.FileSystemObject")
yol = "C:\Users\ebulut\AppData\Roaming\Microsoft\Signatures\İmza.htm"
Set imza = FSO.OpenTextFile(yol, 1)[/COLOR]

With OutlookmailItem
.To = ""
.Subject = "B MOBİLYA SAN TİC LTD ŞTİ ---A MOBİLYA LTD. ŞTİ. BA--BS MUTABAKAT FORMU"
.CC = ""
.Body = " "
myattachments.Add "C:\Users\F1\Desktop\B MOBİLYA SAN TİC LTD ŞTİ ---A MOBİLYA LTD. ŞTİ. BA--BS MUTABAKAT FORMU.pdf" [COLOR="Red"]& "<BR><BR>" & imza.readall[/COLOR]
'.send
.display
End With

Set OutlookmailItem = Nothing
Set OutlookApp = Nothing

End Sub