Имею код: (часть кода)
Dim SessionCtrl ' элемент управления Session
Dim MessageCtrl ' элемент управления Messages

Set SessionCtrl = CreateObject("MSMAPI.MAPISession")


SessionCtrl.DownloadMail = False ' не получать почту при подключении
SessionCtrl.UserName = cUserName
SessionCtrl.Password = ""
SessionCtrl.SignOn

Set MessageCtrl = CreateObject("MSMAPI.MAPIMessages")

' связываем элементы управления, используя идентификатор сессии
MessageCtrl.SessionID = SessionCtrl.SessionID

На строке:

SessionCtrl.SignOn
выдает ошибку:
MAPISession (0x800A7D02)
Unspecified Failure has occurred

Подскажите пожалуйста в чем проблема.