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()>>Hmm... well, my mail server is down right now, but, it looks to me, like if you tell it to .send, it sends the message... Compose the message looks like it will sit in the outbox until you .send it.
> loMessages.Compose() > > * Set the Recipient name and resolve > loMessages.RecipDisplayName = "rstrahl@west-wind.com" > loMessages.RecipType = 1 > loMessages.ResolveName() > > loMessages.MsgSubject = "Test Message" > loMessages.MsgNoteText = "Get a grip and go one with this bad message" > > loMessages.SEND( .F. ) > >>