Выбор учетки при отправки письма через Outlook

[sasha_prof]

У меня в Outlook настроено несколько учеток.
Как при отправке выбирать в Outlook учетку с которой отправлять письмо?

Ниже макрос которым отправляются письма.

Sub SendMail()  
    Dim OutApp As Object  
    Dim OutMail As Object  
    Dim cell As Range  
      
    Application.ScreenUpdating = False  
    Set OutApp = CreateObject("Outlook.Application")  
    OutApp.Session.Logon  
    On Error GoTo cleanup  
    Set OutMail = OutApp.CreateItem(0)  
    On Error Resume Next  
      
    With OutMail  
        .To = Range("A1").Value  
        .Subject = Range("A2").Value  
        .Body = Range("A3").Value  
        .Attachments.Add Range("A4").Value  
        'команду Send можно заменить на Display, чтобы посмотреть сообщение перед отправкой   
        .Send  
    End With  
  
    On Error GoTo 0  
    Set OutMail = Nothing  
  
cleanup:  
    Set OutApp = Nothing  
    Application.ScreenUpdating = True  
End Sub

[sasha_prof]

Ребята,
Что никто не знает как решить данный вопрос?