Set myNameSpace = Application.GetNamespace("MAPI")
 MsgBox myNameSpace.CurrentUser
 myNameSpace.Logoff
MsgBox myNameSpace.CurrentUser
 myNameSpace.Logon "PAZ"
MsgBox myNameSpace.CurrentUser

Private Sub CommandButton1_Click()
Unload Me
Set myNameSpace = Application.GetNamespace("MAPI")
Set myItem = Outlook.CreateItem(olMailItem)
    myItem.To = "Adressss@rambler.ru"
    myItem.Subject = "Data files information"
    Set FilesAtt = myItem.Attachments
    FilesAtt.Add "E:\img.rgn", olByValue,  1 , "4th Quarter 1996 Results Chart"
   'Важно!!! Надо както блокировать после дисплей, возможность изменения сообщения пользователем
   'но я об этом пока  не думал
    myItem.Display
    '//////////////////////////////////////////////////////////////////////////////////////
    Dim OLI As Outlook.Inspector
    Dim CBs As office.CommandBars
    Dim CBP As office.CommandBarControl 
    
    Dim MC  As office.CommandBarControls
    Dim SDDD As String
    Set OLI = myItem.GetInspector
    If Not OLI Is Nothing Then
        Set CBs = OLI.CommandBars
        'здесь мы ищем нужную кнопку по Caption
        For Each CBP In CBs.FindControls(msoControlButton)
            '////\\\////\\\////\\\////\\\////\\\////\\\
            'Вместо 2 PAZ пишеш то что видешь на кнопке учетной записи
            'с которой хоешь отправить сообщение
            If CBP.Caption = "&2 PAZ" Then
            '////\\\////\\\////\\\////\\\////\\\////\\\///
                'найдя выполняем
                CBP.Execute
            End If
        Next
'
    End If
  '//////////////////////////////////////////////////////////////////////////////////////
    myItem.Send
End Sub