I am working on a project and have created email format in VB. I need to add a different email id in the from field and i am not able to do so. There are multiple emails with different formats for different conditions.

I am using the office computer and therefore am on exchange server. I have full access to the email id i need to send the email from.

This file will be used by many people who do not have any idea of programming.

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