activate window "debug output" > >* simple test email program using MAPI > >oleMAPISession = createobject( "MSMAPI.MAPISession.1" ) > >* Signon to mail >with oleMAPISession > .UserName = "Test" > .Password = "" > .Signon() > * Check the SignOn status > if ( .SessionID > 0 ) > oleMAPIMessages = createobject( "MSMAPI.MAPIMessages.1" ) > * tell the message the SessionID > oleMAPIMessages.SessionID = .SessionID > debugout "Successful mail log on" > else > debugout "Mail login failed" > return > endif >endwith > >* Send an email > >with oleMAPIMessages > .Compose() > >* Set the Recipient name and resolve > .RecipDisplayName = "DavidFrankenbach@worldnet.att.net" > .RecipType = 1 > .ResolveName() > > .MsgSubject = "This is the Subject" > .MsgNoteText = "This is the email text" > > .Send( .f. ) >endwith > >* Read the InBox > >with oleMAPIMessages > .Fetch() > for i = 0 to .MsgCount-1 > .MsgIndex = i > debugout .MsgSubject > endfor >endwith > >* Signoff > >oleMAPISession.Signoff() >>