Outlook Signature

Dear Experts,
I am using following code to create outlook email from excel but as in my outlook signature is set, it is not appearing same. How to do please help

im OutApp As Object, OutMail As Object

'Create PDF of active sheet only
strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\"

strFName = ThisWorkbook.Path & ActiveWorkbook.Name
strFName = ActiveSheet.Range("k9").Value & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
strPath & strFName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.Display
End With
signature = objMail.body
With objMail
.To = "[email protected]"
.CC = "[email protected]"
.Subject = "Document Release Request - " & Range("K9").Value
.body = "Dear DMG" & "," & vbNewLine & _
vbNewLine & _
"Please Process the document as per attached document Request Form, native & signed file are available in the following path." & vbNewLine & _
vbNewLine & _
"Kindly acknowledge the same after process." & _
vbNewLine & _
vbNewLine & signature

.Attachments.Add strPath & strFName
'.Display 'Use only during debugging ##############################
'.Send 'Uncomment to send e-mail ##############################
End With

Set objOutlook = Nothing
Set objMail = Nothing

Thanks in advance,
Rajeev

Hi,
2 remarks, delete your email addresses in your post, now you are fishing for spam.
Pur your code between code tags pls.
Forum rule 2
2. Programming code must be enclosed in code tags to improve readability. (A, Z)

Please Login or Register  to view this content.

(or use the # button)

Dear Experts,
I am using following code to create outlook email from excel but as in my outlook signature is set, it is not appearing same. How to do please help

im OutApp As Object, OutMail As Object

'Create PDF of active sheet only
strPath = Environ$("temp") & "\" 'Or any other path, but include trailing "\"

strFName = ThisWorkbook.Path & ActiveWorkbook.Name
strFName = ActiveSheet.Range("k9").Value & ".pdf"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
strPath & strFName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.Display
End With
signature = objMail.body
With objMail
.To = ""
.CC = ""
.Subject = "Document Release Request - " & Range("K9").Value
.body = "Dear DMG" & "," & vbNewLine & _
vbNewLine & _
"Please Process the document as per attached document Request Form, native & signed file are available in the following path." & vbNewLine & _
vbNewLine & _
"Kindly acknowledge the same after process." & _
vbNewLine & _
vbNewLine & signature

.Attachments.Add strPath & strFName
'.Display 'Use only during debugging ##############################
'.Send 'Uncomment to send e-mail ##############################
End With

Set objOutlook = Nothing
Set objMail = Nothing

Thanks in advance,

Sorry to say that i dont understand what is wrong with my post.
Simply I have asked my query and i am getting to change change and change.

Dont know how you managed to get past 100 posts and not know what the rules are or where they can be found

please read the forum rules listed here
https://www.excelforum.com/forum-rul...rum-rules.html

with reference to why you are getting the response you are getting..read rule #2