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.
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement