Meu caro, se a questão é apenas e tão somente enviar email´s "via xHarbour", dê uma atençãozinha ao meu tópico mais acima.gralak escreveu:Nossa ta complicado resolver isso em hahahhahah
Código: Selecionar todos
Function envia_email_pos
local cSubject := hb_oemtoansi("PàS VENDA - ")+usuario
local aTo:= { endereco@provedor.com.br }
local cServerIp := smtp.gmail.com
local cFrom := fulanodetal@gmail.com
local cUser := fulanodetal@gmail.com
local cMsg := memoread("carta1.txt")
cPass := alltrim(cdpar000->mpswd)
porta := 25
pop3 := imap.gmail.com:993
if hb_SendMail(cServerIP,porta,cFrom,aTo,,,cMsg,cSubject,,cUser,cPass,pop3,1,.F.,.T.,.T.,.F.)=.T.Deve ter algum parâmetro errado, faça um teste pelo Outlook se der certo com certeza no sistema vai dar também. Ou post como está usando para tentar identificar junto com você o que está errado.gralak escreveu:Nossa ta complicado resolver isso em hahahhahah
agora ta dando um retorno com o seguite erro:
DISP_MEMBERNOTFOUND
oque seria ...
Código: Selecionar todos
Function envia_email_pos()
local cSubject := "Assunto de Gmail"//hb_oemtoansi("P…S VENDA - ")+usuario
local aTo:= {"destino@servidor.com.br"}
local cServerIp := "smtp.gmail.com"
local cFrom := "remetente@gmail.com"
local cUser := "remetente@gmail.com"
local cMsg := "Teste Email para Gmail"//memoread("carta1.txt")
cPass := "123456"//alltrim(cdpar000->mpswd)
porta := 25
pop3 := "imap.gmail.com:993"
if hb_SendMail(cServerIP,porta,cFrom,aTo,,,cMsg,cSubject,,cUser,cPass,pop3,1,.F.,.T.,.T.,.F.)=.T.
msginfo("ok")
else
msginfo("no")
endif
return(.t.)Aqui comigo simplesmente funciona usando o exemplo que postei. Porta 25.clrod escreveu:mas posso adinatar que tentar enviar uma mensagem pelo SMTP do Gmail sem autenticar a conta, sem ser por protocolo seguro, não vai rolar. Você precisará usar a porta segura (465 se não me engano)
Código: Selecionar todos
...
Private aProvedor := { { "UOL (Universo On-Line)" ,'pop.uol.com.br' ,'smtp.uol.com.br' ,.t., 25,110,.f.},;
{ "Terra" ,'pop.terra.com.br' ,'smtp.terra.com.br' ,.t., 25,110,.f.},;
{ "IG (Internet Generation)",'pop.ig.com.br' ,'smtp.ig.com.br' ,.t.,465,995,.t.},;
{ "iBest" ,'pop.ibest.com.br' ,'smtp.ibest.com.br' ,.t.,465,995,.t.},;
{ "iTelefonica" ,'pop.itelefonica.com.br','smtp.itelefonica.com.br',.t., 25,110,.f.},;
{ "Gmail (Google Mail)" ,'pop.gmail.com.br' ,'smtp.gmail.com.br' ,.t.,465,995,.f.},;
{ "Yahoo" ,'pop.mail.yahoo.com.br' ,'smtp.mail.yahoo.com.br' ,.t., 25,110,.f.},;
{ "Hotmail" ,'pop3.live.com' ,'smtp.live.com' ,.t., 25,995,.t.},;
{ "BOL (Brasil On-Line)" ,'pop3.bol.com.br' ,'smtp.bol.com.br' ,.t., 25,110,.f.},;
{ "ITM Networks" ,'mail.5volution.com.br' ,'mail.5volution.com.br' ,.t., 25,110,.f.} }
nPosicao := 10 //ASCAN( aProvedor, "ITM Networks" )
smtp_Port := aProvedor[ nPosicao, 5 ]
lAuth := aProvedor[ nPosicao, 4 ]
smtp_server := aProvedor[ nPosicao, 3 ]
smtp_SSL := aProvedor[ nPosicao, 7 ]
//
objCDOSYSCon:=TOleAuto():New( "CDO.Configuration" )
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver"):Value := smtp_server
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport"):Value := smtp_Port
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing"):Value := 2
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"):Value := 1
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername"):Value := smtp_user
objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword"):Value := smtp_pass
//objCDOSYSCon:Fields:Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):Value := 30
objCDOSYSCon:Fields:update()
objCDOSYSMail:=TOleAuto():New( "CDO.Message" )
objCDOSYSMail:Configuration := objCDOSYSCon
objCDOSYSMail:From := mail_from
objCDOSYSMail:To := mail_to
objCDOSYSMail:Subject := mail_subject
if lHtml
objCDOSYSMail:HTMLBody := mail_message
else
objCDOSYSMail:TextBody := mail_message
endif
objCDOSYSMail:Send()
...
Código: Selecionar todos
...
BlatCMD := [ blat.txt] + ;
[ -server ] + alltrim(cserver) + ;
[ -to ] + alltrim(cto) + ;
[ -f ] + alltrim(cf) + ;
[ -mailfrom ] + alltrim(cf) + ;
[ -subject "] + alltrim(csubject) + ["] + ;
[ -r ] + ;
[ -u ] + alltrim(cu) + ;
[ -pw ] + alltrim(cpw) + ;
[ -log "email.log" -debug ] + ;
iif( empty( cAttach ),[],[ -attach "] + alltrim(cattach) + ["])
fErase( "email.log" )
BlatLOG := SendB( BlatCMD )
...
DLL32 FUNCTION SendB( sBlatString AS STRING ) AS LONG PASCAL ;
FROM "SendBlat" LIB "Blat.dll"
Basso,esbasso escreveu: Error CDO.Message/3 DISP_E_MEMBERNOTFOUND: SEND - oError:genCode = 1001
Called from source\rtl\win32ole.prg->TOLEAUTO:SEND(0)
Called from C:\xHarbour\rotinas\hcdoemail.000->ENVIO2(185)
Called from C:\xHarbour\Estoque6\ESTOQUE.000->MAIN(301)
Código: Selecionar todos
**********************************************************************************************************************
FUNCTION CONFIG_MAIL(aFiles,cSubject,aQuem,cMsg,cServerIp,cFrom,cUser,cPass,vPORTSMTP,aCC,aBCC,vEMAIL_CONF,wSSL_EMAIL)
**********************************************************************************************************************
local lRet := .f.
local oCfg, oError
local lAut := .t.
TRY
oCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT oCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServerIp
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := vPORTSMTP
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := lAut
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := wSSL_EMAIL
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := alltrim(cUser)
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := alltrim(cPass)
//:Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ):Value := 30
:Update()
END WITH
lRet := .t.
CATCH oError
MsgInfo( "Não Foi possível Enviar o e-Mail!" +HB_OsNewLine()+ ;
"Error: " + Transform(oError:GenCode, nil) + ";" +HB_OsNewLine()+ ;
"SubC: " + Transform(oError:SubCode, nil) + ";" +HB_OsNewLine()+ ;
"OSCode: " + Transform(oError:OsCode, nil) + ";" +HB_OsNewLine()+ ;
"SubSystem: " + Transform(oError:SubSystem, nil) + ";" +HB_OsNewLine()+ ;
"Mensaje: " + oError:Description, "Atenção" )
END
//--> FIM DAS CONFIGURAÇOES.
if lRet
lRet := Envia_Mail(oCfg,cFrom,aQuem,aFiles,cSubject,cMsg,aCC,aBCC)
endif
Return lRet
********************************************************************************
FUNCTION ENVIA_MAIL(oCfg,cFrom,cDest,aFiles,cSubject,cMsg,aCC,aBCC,vEMAIL_CONF)
********************************************************************************
local aTo := {}
local lRet := .f.
local nEle, oError
aTo := { cDest } //--> PARA
nEle := 1
for i:=1 to len(aTo)
TRY
oMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT oMsg
:Configuration = oCfg
:From = cFrom
:To = aTo[i]
:Cc = aCC
:BCC = aBCC
:Subject = cSubject
:TextBody = cMsg
For x := 1 To Len( aFiles )
:AddAttachment(AllTrim(aFiles[x]))
Next
IF vEMAIL_CONF=.T.
:Fields( "urn:schemas:mailheader:disposition-notification-to" ):Value := cFrom
:Fields:update()
ENDIF
:Send()
END WITH
lRet := .t.
CATCH oError
MsgInfo("Não Foi Possível Enviar," +HB_OsNewLine()+;
"a Mensagem: " +HB_OsNewLine()+;
cSubject +HB_OsNewLine()+;
"p/ o eMail: " + aTo[i] +HB_OsNewLine()+;
" - Erro: " + + oError:Description , "Atenção" )
lRet := .f.
END
next
Return lRet