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











LinkBack URL
About LinkBacks
Register To Reply
Bookmarks