Sub ReportComplete()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = "<p>Hi " & ActiveSheet.Range("D6") & ",</p>" & _
"<p>Thank you for your request " & ActiveSheet.Range("D10") & ". The team has pulled the requested report, please find it attached to the request and this email.</p>" & _
"<br>" & ActiveSheet.Range("D12") & "<br>" & "<br>" & _
"Thank you,<br><br>" & _
"<br>" & ActiveSheet.Range("D18")
On Error Resume Next
With OutMail
.display
.To = ActiveSheet.Range("D8")
.CC = ""
.BCC = ""
.Subject = "Completed: Reporting Request #" & ActiveSheet.Range("D10")
.HTMLbody = strbody & .HTMLbody
.display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
Bookmarks