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 ()