Изменить адрес FROM в Outlook, используя значение VBA Excel

Question

Добрый день!

Я искал код, который позволил бы мне изменить адрес электронной почты "ОТ" в моем письме Outlook, используя значение ячейки VBA excel.

I знаю, у нас есть много информации об этом, но ни одна из них не работает.

Ниже приведен код

Dim xOutlook As Object, _
    xEmail As Object, _
    xInspector As Object, _
    wEditor As Object, _

Set xOutlook = CreateObject("Outlook.Application")
Set xEmail = xOutlook.CreateItem(olMailItem)
Set xInspector = xEmail.GetInspector
Set wEditor = xInspector.WordEditor

With xEmail
    .Display
    .To = Sheets("Controls").Range("S2").Value
    .CC = Sheets("Controls").Range("S3").Value
    .BCC = ""
    .SentOnBehalfOfName = "MyEmail@email.com"
    .Subject = Sheets("Controls").Range("J1").Value
    .Body = vbCrLf & Sheets("Controls").Range("S5").Value & vbCrLf & vbCrLf & Sheets("Controls").Range("S7").Value & vbCrLf & vbCrLf
    wEditor.Application.Selection.Start = Len(.Body)
    wEditor.Application.Selection.End = wEditor.Application.Selection.Start
    wEditor.Application.Selection.Paste
   .Attachments.Add (loc & xlfile)