Hello,

I am creating an application with MAPI capabillities. The code below only works once. What is the problem?

With MAPISession
.DownLoadMail = False
.LogonUI = True
.SignOn
.NewSession = True
MAPIMessages.SessionID = .SessionID
End With
With MAPIMessages
.Compose
.RecipAddress = Trim(txtEmail.Text)
.AddressResolveUI = True
.ResolveName
.MsgSubject = ""
.MsgNoteText = ""
.Send True
MAPISession.SignOff
End With