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