Moderador: Moderadores
Basta está no path!Outra coisa somente as dll : libeay32.dll tem que estar presente na pasta onde roda o executável.
PUBLIC AzulHTML :='<span style="color:#0000FF">'
PUBLIC VermelhoHTML:='<span style="color:#FF0000">'
PUBLIC QuebraHTML :="<br>"
cBody:=AzulHTML +"Log de confirma‡Æo de atualiza‡Æo de sistema em: "+HB_DtoC(Date(),"DD/MM/YYYY")+QuebraHTML+;
VermelhoHTML+"Feito pelo Monitor de Email."
nFileHandle:=FCreate("C:\TEMP\BODY.HTML")
FWrite(nFileHandle,cBody)
FClose(nFileHandle)
cBody:="C:\TEMP\BODY.HTML"
Pois é, né. Aqui funciona normal em XP/Win7 32 ou 64.Eu baixei o harbour de onde vc indicou, a lib está presente e dá erro igual.
Você sabe como é né Itamar, fazer os clientes atualizarem o SO e, de repende, também o hardware pode ser uma tarefa difícil.Itamar M. Lins Jr. escreveu:No XP com SP3 vai fácil.
Ótimo Janio! Fiz pelo CDO e funcionou bem. Assim consegui desvincular da DLL. Depois vou ver o que faço no Linux. Tarefa pra mais tarde...janio escreveu:Pelo CDO não funciona?
Bom, vi, aqui os códigos exemplos que os prezados professores implantaram e estão funcionando em seus respectivos aplicativos.Mas, isso é depois que eu aprender o básico do básico.
1 - código simples:
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.
if Tip_MailSend(cServerIP,porta,cFrom,aTo,,,cMsg,cSubject,,cUser,cPass,pop3,1,.F.,.T.,.T.,.F.)=.T.2 - código mais complexo:
Código: Selecionar todos
FUNCTION envia_email(yarq)
Local yyarq:= curdrive()+":\"+curdir()+"\"+yarq // yarq no meu caso é um arquivo que mando em anexo
aFiles := {yyarq} // pode ser uma matriz com vários endereços
cSubject := alltrim(assunto)
aQuem := alltrim(destino)
cMsg := alltrim(obs)
cServerIp:= alltrim(cdpar000->msmtp) // servidor smtp
cFrom := alltrim(cdpar000->mfrom)
cUser := alltrim(cdpar000->muser)
cPass := hb_decrypt(alltrim(cdpar000->mpswd),"lkjhlkhdlkjhkjh") // senha, eu pego de um dbf criptografado
vPORTSMTP:= val(alltrim(cdpar000->mport))
aCC := "" // caracteres entre aspas
aBCC := "" // caracteres entre aspas
lCONF := .F.
lSSL := cdpar000->mssl // variável lógica
CONFIG_MAIL(aFiles,cSubject,aQuem,cMsg,cServerIp,cFrom,cUser,cPass,vPORTSMTP,aCC,aBCC,lCONF,lSSL)
deletefile(yyarq)
RETURN
**********************************************************************************************************
FUNCTION CONFIG_MAIL(aFiles,cSubject,aQuem,cMsg,cServerIp,cFrom,cUser,cPass,vPORTSMTP,aCC,aBCC,lCONF,lSSL)
**********************************************************************************************************
local lRet:= .f.
local oCfg, oError
local lAut:= cdpar000->mauth
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:= lSSL
:Item("http://schemas.microsoft.com/cdo/configuration/sendusername"):Value:= alltrim(cUser)
:Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"):Value:= alltrim(cPass)
: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,lCONF)
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
:HTMLBody = cMsg
For x := 1 To Len( aFiles )
:AddAttachment(AllTrim(aFiles[x]))
Next
IF vEMAIL_CONF
:Fields("urn:schemas:mailheader:disposition-notification-to"):Value:= cFrom
:Fields:update()
ENDIF
:Send()
END WITH
lRet:= .t.
MsgInfo( "E-mail enviado com sucesso" , " EMAIL " )
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
oCfg:= nil
oMsg:= nil
Return lRetmas tenho perguntas que mesmo lendo as 6 páginas deste tópico, não foram perguntadas por alguém (não consegui compreender os códigos). Ou porque todos já sabem fazer ou porque ninguém pensou nelas.Me perdoem a inocência! ...
Então professores, acho que as perguntas são as mesmas, para os 2 códigos-exemplo àcima, ou qualquer outro:Então, no exemplo acima, temos as seguintes variáveis/matrizes que recebem as informações de remetente/senha/provedor, etc:
E, agora, quem poderá me defender ?Bom, prezados professores, acho que as dúvidas iniciais são essas, mas, outras podem surgir....
Código: Selecionar todos
func main()
...
enviaemail := hb_dirbase()+"DBatualiza.log"
envia_email_pos(enviaemail)
...
returnCódigo: Selecionar todos
Function envia_email_pos(email)
// local cSubject := hb_oemtoansi("PàS VENDA - ")+usuario
local cSubject := "Erro do Sistema SiCCA v3.6.03"
local aTo := {"endereco@provedor.com.br"}
local cServerIp := "smtp.yahoo.com.br"
local cFrom := "estudio.audiomax@yahoo.com.br"
local cUser := "estudio.audiomax@yahoo.com.br"
local cMsg := "teste de email" + email // memoread("carta1.txt")
cPass := alltrim("1234567890")
porta := 25
pop3 := "pop.yahoo.com.br:587"
if Tip_MailSend(cServerIP,porta,cFrom,aTo,,,cMsg,cSubject,,cUser,cPass,pop3,1,.F.,.T.,.T.,.F.) = .T.
alert('Email enviado com sucesso!!!')
else
alert('Falha no envio do Email.')
endif
return