Как изменить идентификатор электронной почты из поля в outlook

Question

Мне нужна помощь, чтобы найти способ изменить адрес электронной почты, с помощью которого электронная почта будет отправляться с использованием VBA. Ниже приведен мой текущий код, и электронные письма отправляются вместе с моей электронной почтой, и мне нужно изменить его на групповой идентификатор электронной почты.

Dim olApp As Object
Dim olMail As Object
Dim olRecip As Object
Dim olAtmt As Object
Dim iRow As Long
Dim Recip As String
Dim Subject As String
Dim Atmt As String
Dim sMsgBody As String
Dim strfrom As String



iRow = 2

Set olApp = CreateObject("Outlook.Application")

Dim Sht As Worksheet
Set Sht = ThisWorkbook.Worksheets("Sheet1")

Do Until IsEmpty(Sht.Cells(iRow, 1))

Recip = Sht.Cells(iRow, 1).Value
Subject = Sht.Cells(iRow, 2).Value
Atmt = Sht.Cells(iRow, 3).Value ' Attachment Path


Set olMail = olApp.CreateItem(0)

With olMail
Set olRecip = .Recipients.Add(Recip)
    .Subject = Subject
    .body = sMsgBody
    .Display
    .
Set olAtmt = .Attachments.Add(Atmt)

olRecip.Resolve
End With

iRow = iRow + 1

Loop

Set olApp = Nothing

Answer 1

Если вы хотите изменить учетную запись отправителя, используйте свойство Отправитель

Если вы хотите отправить его под своей учетной записью, но с другим почтовым адресом, используйте свойство SentOnBehalfOfName . Я обычно так и делаю.

With olMail
Set olRecip = .Recipients.Add(Recip)
    ' chose either :
    .Sender = "anything@yourcompany.com"
    ' or
    .SentOnBehalfOfName = "anything@yourcompany.com"