Hi dears,
I have done a small project to generate Report and Send Email to Receipients and it is working sucessfully.
problem is i am not able to put signature at bottom.
I am able to copy Range of cells and paste in Outlook Mail Body through word Editor help.
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
Set wDoc = OutMail.GetInspector.WordEditor
Set wRng = wDoc.Range
rng.Copy
wRng.Paste
But in below code if i add .body ="Signture here" then above Paste VBA code not executing.
Please help here i want both my image to be pasted and Signature to be added at bottom.
With OutMail
' .To = "DXBOPS-AlAin@aramex.com;DXBSHJOperations@aramex.com;DXBAlQuozOperations@aramex.com;DXBJebDomesticOps@aramex.com;DXBRAKOPS@aramex.com;DXBOPS-Fujairah@aramex.com"
' .CC = "Mohammed.Nayeem@aramex.com;Mohammed.Tarzi@aramex.com;Naveen.Marapaka@aramex.com"
.To = "naveen.marapaka@aramex.com"
.Subject = tempsubject & Format(Now, " DD/MM/YY")
' .Body = "Signature Here"
.Attachments.Add currentfile
.Display
.Send
End With
For more Details please refer 2 attachments a)Format.xls which is my master file where all macros are stored
b)Test purpose.xls to test
please open Test purpose.xls and kindly Run 3 Macros in this sequence
a) Format_Columns b) Normal Report or BulkReport any of your choice c) Send_Email.
I am able to complete perfectly but i Need with Signature. pls help
Bookmarks