Hi,
Body of the mail is missing when using the below code. Please let me know how to add signature and the body of the mail should not be missed.
SigString = "C:\Documents and Settings\" & Environ("username") & _
"\Application Data\Microsoft\Signatures\sign.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
On Error Resume Next
With OutMail
.To = Range("g6").Value
.CC = Range("g9").Value
.BCC = ""
.Subject = Range("g11").Value
.HTMLBody = strbody & "<br><br>" & Signature
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bookmarks