T
Trefor
I have tried to modify some code from Ron de Bruin site, but its not working.
I just get my signature and not the main body which comes from a file
"BodyFile". Any ideas?
SigString =
Workbooks(WorkbookMain).Sheets(DCSheet(Data%)).Range("Data_SignaturePath").Value
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
With OutMail
.To = ETo
.CC = Ecc
.BCC = EBcc
.Subject = ESubject
.HTMLBody = GetBoiler(AppPath & "\" & BodyFile) & "<br><br>" &
Signature
If EAttach <> "" Then .Attachments.Add EAttach
.Display
End With
I just get my signature and not the main body which comes from a file
"BodyFile". Any ideas?
SigString =
Workbooks(WorkbookMain).Sheets(DCSheet(Data%)).Range("Data_SignaturePath").Value
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)
Else
Signature = ""
End If
With OutMail
.To = ETo
.CC = Ecc
.BCC = EBcc
.Subject = ESubject
.HTMLBody = GetBoiler(AppPath & "\" & BodyFile) & "<br><br>" &
Signature
If EAttach <> "" Then .Attachments.Add EAttach
.Display
End With