Hello all,
can anyone show me how to amend Fernando Alverez' code so that I can include an attachment with an e-mail message?
Thanks...
H Brown


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