İmza nasıl ekliyebilirim

[ersoyalan]

Arkadaşlar merhaba,

Aşağıdaki kodu buradan bulmuştum ve çok işime yarıyor,mailin içeriğine imza eklemek istiyorum bunu birtürlü yapamadım.Yardımcı olurmusunuz.



Option Explicit

Sub Mail_workbook_Outlook_1()
'Working in 2000-2007
'This example send the last saved version of the Activeworkbook
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
.To = "xxxxxx@hotmail.com.tr"
.CC = "xxxxxx@hotmail.com.tr"
.BCC = ""
.Subject = "Sabaha devreden arıza adetleri hk."
.Body = "İyi çalışmalar,"
.Attachments.Add ActiveWorkbook.FullName
'You can add other files also like this
.Display 'or use .Send
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

****************************************

Bu şekilde olmasını istiyorum:
İyi çalışmalar,
Saygılarımla
E.ALAN
ATM YÖNETİMİ İZLEME
0212-xxx xxx xx

gibi bunu nasıl yapabilirim

Ben bu kodla sadece İyi çalışmalar yada ne yazdıysam onu göstere biliyorum.

Yardımcı olursanız çok sevinirim.

Saygılarımla,
E.ALAN

 

[mami67]

Selamlar

Siz imzayı hotmail e mi yoksa outlook express e mi istiyorsunuz yada benmi yanlış anladım excele mi istiyorsunuz

biraz açarsanız ben oulokta kullanıyorum imzayı fakat hotmail'de de yok bildiğim kadarı ile

 

[Ömer]

Merhaba,

.Body = "İyi Çalışmalar" & Chr(13) & Chr(13) & _
"Saygılarımla" & Chr(13) & Chr(13) & _
"E.ALANA" & Chr(13) & Chr(13) & _
"ATM YÖNETİMİ İZLEME" & Chr(13) & Chr(13) & _
"0212 000 00 00" & Chr(13) & Chr(13)

Denermisiniz..

 

[ersoyalan]

Merhaba,

Bu kod tam istediğim gibi yardımlarınız için çok teşekkürederim.

Sayg,

E.ALAN

 

[ockucukay]

sayın espiyonajl

emeğinize sağlık, benimde işime yaradı, çok teşekkürler.

 

[ersoyalan]

mami67 , arkadaşım kusura bakma geç cevap yazdım...excele istiyordum ilgi ve alakan için teşekkürderim.

Syg,
E.ALAN