>oleMAPISession = CreateObject ("MSMAPI.MAPISession.1") > > With oleMAPISession > > .LogonUI = .T. <<<< This has been changed from .F. to .T. > .UserName = cSenderProfile <<<< The MAPI profile was used > .Password = "" > > .Signon() > > If .SessionID <= 0 > Error <<<< > Return <<<< > endif > > oleMAPIMessages = CreateObject ("MSMAPI.MAPIMessages.1") > > oleMAPIMessages.SessionID = .SessionID > > EndWith > > oleMAPIMessages.Compose () > > oleMAPIMessages.MsgSubject = cMessageSubject > oleMAPIMessages.MsgNoteText = cMessageText > > For nRecips = 1 To nRecipCount > > oleMAPIMessages.RecipIndex = nRecips - 1 <<<< Had to add this > oleMAPIMessages.RecipDisplayName = TabRecipInfo [nRecips] <<<< For multiple recipients > oleMAPIMessages.RecipType = 1 > > oleMAPIMessages.ResolveName () > > EndFor > > oleMAPIMessages.Send (.F.) > oleMAPISession.Signoff ()