VB Code Help for Mail Body

[santhoshlk]

hi Experts...

Iam using the following code to trigger mails to my clients in excel via outlook.

But when my new mails opened i cant see my Outlook signature and i Need to add the following text to be added in each mail automatically.. kindly help.

_____________

Sub Mail_Cust()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String

'Path of stored statements
Path = "C:\junk\"

'Select Row Number of customer to email
rownum = InputBox("enter customer row number")

FileNme = Path & Cells(rownum, 1).Value & ".pdf"
EmailSendTo = Cells(rownum, 4).Value

' Message subject
EmailSubject = "Test"

'Subject string
MailBody = "enter body text"

'Send Mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(o)
With OutMail
.Subject = EmailSubject
.To = EmailSendTo
.body = MailBody
.Attachments.Add FileNme
.Display
'.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub
_________

pls help me to add the following text in the mail body

"Dear customer,

Please find attached the Statement of Accounts as at (todays date).
Kindly arrange to pay against the due invoices immediately.

Thanks & regards,"

(My outlook signature)

 

[Michael M]

Have a look here for adding a signature to your Email.

www.rondebruin.nl/mail/folder3/signature.htm

Also, a couple of changes

Sub Mail_Cust()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String

'Path of stored statements
Path = "C:\junk\"

'Select Row Number of customer to email
rownum = InputBox("enter customer row number")

FileNme = Path & Cells(rownum, 1).Value & ".pdf"
EmailSendTo = Cells(rownum, 4).Value


'Send Mail
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(o)
With OutMail
.Subject = "Test"
.To = EmailSendTo
.body ="Dear customer," & vbLf & _
"Please find attached the Statement of Accounts as at (todays date)." & vbLf & _
"Kindly arrange to pay against the due invoices immediately." & vbLf & _
"Thanks & regards,"
.Attachments.Add FileNme
.Display
'.Send
End With

Set OutMail = Nothing
Set OutApp = Nothing

End Sub