Send from Shared Mailbox using VBA code on Excel 2016

Hi All,

I am looking for help on how to update my code attached to be able to send from our sharedmailbox

Sub RectangleRoundedCorners1_Click()

RowToProcess = 2
Do While Range("A" & RowToProcess) <> ""
esubject = "Case ID: 000"
ebody = Sheets("sheet1").Range("N1") & " " & Sheets("sheet1").Range("E" & RowToProcess) & vbNewLine & vbNewLine & "We have recently been notified that " & Sheets("sheet1").Range("A" & RowToProcess) & "'s " & Sheets("sheet1").Range("C" & RowToProcess) & " AAA " & Sheets("sheet1").Range("F" & RowToProcess) & vbNewLine & vbNewLine & "AAA " & Sheets("sheet1").Range("A" & RowToProcess) & " AAA. " & vbNewLine & vbNewLine & "AAAAA. " & _
"MESSAGE." & vbNewLine & vbNewLine & "Kind Regards" & vbNewLine & "Dixie Dean" & vbNewLine & "JOB ROLE"
Set app = CreateObject("Outlook.Application")
Set itm = app.CreateItem(0)
With itm
.Subject = esubject & Sheets("sheet1").Range("B" & RowToProcess)
.To = Sheets("sheet1").Range("D" & RowToProcess)
.CC = "NAME@NAME.co.uk"
.Body = ebody
.Display
End With
Set app = Nothing
Set itm = Nothing
RowToProcess = RowToProcess + 1
LoopEnd Sub

Any help would be greatly appreciated

John