Hi Segey !

*************************************************
SELECT 0
USE c:\arquivos\database\table030 ALIAS m030
BROWSE && Ok

set PROCEDURE TO wwapi.prg additive
set PROCEDURE TO wweval.prg additive
set PROCEDURE TO wwutils.prg additive

SET CLASSLIB TO wwipstuff.VCX

o=CREATEOBJECT("wwIPStuff")

o.cMailServer = INPUTBOX("SERVIDOR SMTP")
o.cSenderEmail = INPUTBOX("E-Mail DE:")
o.cSenderName = "Lázaro Santos"

o.cRecipient = INPUTBOX("E-Mail Para:")
o.cSubject = "Teste de e-mail sem passar pelo outlook"
o.cMessage = "Este é o corpo do e-mail. Olá mundo !"

llResult = o.SendMapiMail()
IF !llResult
Wait window o.cErrorMsg
ELSE
messagebox("E-mail enviado","")
ENDIF

SELECT 0
BROWSE && Not ok !

QUIT

***********************************
This exactly code functions perfectly in the Windows 98 but in windows xp happens the problems.

Thanks.

Lázaro Santos.