Послать Mail из VB. Как ?

Для отсылки мыла из VB использую MAPI, в качестве почтового агента Outlook Express. Собственно все работает, НО если линия занята, в окошке удаленного соединения появляется соответствующее сообщение и окно удаленного соединения ждет нажатия кнопки Отмена. И моя программа в это время само собой ждет. А как этого избежать, т.е. не дозвонился и фиг с ним, главное получить управление назад.

Собственно сама прога:

Sub SendMail(Session As MAPISession, Messages As MAPIMessages, Address As String, Subject As String, NoteText As String, FileName As String)

Session.DownLoadMail = False
Session.SignOn

Messages.SessionID = Session.SessionID
Messages.Compose
Messages.RecipAddress = Address
Messages.MsgSubject = Subject
Messages.MsgNoteText = NoteText
If FileName <> '' Then
Messages.AttachmentIndex = 0
Messages.AttachmentPathName = FileName
End If
Messages.Send False

Session.SignOff

End Sub

0