Привет всем!
Как указать учетную запись через которую надо посылать почту.

Public Function send_mail(sendto As String, subject As String, text As String)

On Error GoTo ErrHandler
With MAPISession1
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
MAPIMessages1.SessionID = .SessionID

End With
With MAPIMessages1
.Compose
.RecipAddress = sendto
.AddressResolveUI = True
.ResolveName
.MsgSubject = subject
.MsgNoteText = text
.Send False
End With
send_mail = True
ErrHandler:
End Function

Private Sub Command1_Click()
send_mail ("test@mail.ru"), ("Test_Proba"), ("Proba")
End Sub