Private bNewSession As Boolean ' Flag to signal logon status.
Const ATTACHTYPE_DATA = 0
Const ATTACHTYPE_EOLE = 1
Private Function SendMessage(sRecipDisplayName As String, sRecipAddress As String, sMsgSubject As String, sAttachmentPathName As String, sAttachmentName As String) As Boolean
Dim mapSess As Object
Dim mapMess As Object


Set mapSess = CreateObject("MSMAPI.MAPISession")
Set mapMess = CreateObject("MSMAPI.MAPIMessages")

If mapSess.NewSession Then
MsgBox "Session already established"
Exit Function
End If

On Error GoTo errLogInFail
With mapSess

.DownLoadMail = False
.LogonUI = True
.UserName = "Name"
.Password = ""
.SignOn

.NewSession = True
mapMess.SessionID = .SessionID

mapMess.MsgIndex = -1
mapMess.Compose

mapMess.RecipDisplayName = sRecipDisplayName
mapMess.RecipAddress = sRecipAddress
'mapMess.AddressResolveUI = True
'mapMess.ResolveName
mapMess.MsgSubject = sMsgSubject
mapMess.MsgNoteText = sMsgSubject
mapMess.AttachmentIndex = mapMess.AttachmentCount
mapMess.AttachmentPosition = 1
mapMess.AttachmentPathName = sAttachmentPathName
mapMess.AttachmentName = sAttachmentName
mapMess.AttachmentType = ATTACHTYPE_EOLE
mapMess.Send
mapSess.SignOff

End With


Set mapMess = Nothing
Set mapSess = Nothing

SendMessage = True

Exit Function

errLogInFail:
Debug.Print Err.Number, Err.Description
If Err.Number = 32003 Then
MsgBox "Canceled Login"
SendMessage = False
End If
Exit Function
End Function

SendMessage "xxx", "xxx@mail.ru", "Test.txt", "C:\Test.txt", "Test.txt"