Отправить письмо с разных учетных записей электронной почты

Question

Когда я отправляю электронные письма, они выходят из моего личного почтового ящика на работе, но мне нужно, чтобы они выходили из другого почтового ящика, к которому у меня есть доступ. У меня есть оба почтовых ящика в моем прогнозе.

Можно ли отправлять электронные письма с определенного почтового ящика?

Вот код, который я использую. Он не находит второй элемент в моей учетной записи.

Sub Mail_small_Text_Change_Account() 

    Dim cel As Range 
    Dim OutApp As Outlook.Application 
    Dim OutMail As Outlook.MailItem 
    Dim strbody As String 

    Set OutApp = CreateObject("Outlook.Application") 
    Set OutMail = OutApp.CreateItem(olMailItem) 

    strbody = "Hi there" & vbNewLine & vbNewLine & _ 
      "This is line 1" & vbNewLine & _ 
      "This is line 2" & vbNewLine & _ 
      "This is line 3" & vbNewLine & _ 
      "This is line 4" 

    On Error Resume Next 

    For Each cel In Range(("C2"), Range("C2").End(xlDown)) 
     With OutMail 
      .To = cel.Value 
      '.CC = cel.Offset(0, 3).Value 
      .Subject = "Benefits Refund" 
      .Body = strbody 
      .SendUsingAccount = OutApp.Session.Accounts.Item(2) 
      .Send 'or use .Display 
     End With 

    Next 

    On Error GoTo 0 

    Set OutMail = Nothing 
    Set OutApp = Nothing 
End Sub 

Answer 1

Да. Используя почтовый ящик POP, вы можете указать имя пользователя и пароль для любой учетной записи.

.To = "E@E.com" 
.CC = "" 
.BCC = "" 
.Subject = "This is the Subject line" 
.Body = "This is the body" 
.SendUsingAccount = OutApp.Session.Accounts.Item(1)