eposta göndere imza eklemek

[mirefe]

Değerli arkadaşlar,

aşağıdaki koda "signature" eklemek istedim, ancak başaramadım. Scan edip taradığım kartvizit resmini eklemek istiyorum.
Yardımlarınıza teşekkür ederim.
---------------------------------------------------------

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
Cancel = True
Set nesne = CreateObject("Outlook.Application")
nesne.Session.Logon
Set eposta = nesne.CreateItem(0)
With eposta
.To = Target.Next
.CC = ""
.BCC = ""
.Subject = " Bilgilendirme."
.Body = " Sayın, " & Target & Chr(10) & Chr(10) & Target.Next.Next & Chr(10) & Chr(10) & Target.Next.Next.Next
.Display
End With
On Error GoTo 0
End Sub

 

[mancubus]

Excel Forum > EXCEL-Soruları > Fonksiyonlar

 

[mirefe]

Farkettim.Ancak yeni bir yere daha açarak iki konu yaratmayayım dedim.

 

[mancubus]

şurada outlook üzerinde üretilen imza için örnek var.
http://www.rondebruin.nl/mail/folder3/signature.htm

biraz araştırma yaptım google'da... bir imajın imza olarak eklenmesi biraz meşakkatli anladığım kadarı ile.

 

[mirefe]

Merhaba,
Outlook yada çalışma dosyasında bir hücrede imza eklemek ile ilgili bir sorunum yok.Sizin önerdiğiniz sayfa ve başka konulara daha önce baktım.
Satıra "jpeg" imajıyla kaydettiğim bir resim/imajı excelden outlooka imza olarak kullanmak istiyorum.
Bunu çözecek arkadaşlar varsa onlar bir el atsınlar.