O anexo você está enviando como texto. Tem que ser Array:Fernando queiroz escreveu:FIZ o anexo dessa forma mas não funcionou, alguém tem exemplo ???
{"C:\BENE\XML12181111194159000100550010000070421527821207.XML"}, ;

Moderador: Moderadores
O anexo você está enviando como texto. Tem que ser Array:Fernando queiroz escreveu:FIZ o anexo dessa forma mas não funcionou, alguém tem exemplo ???
{"C:\BENE\XML12181111194159000100550010000070421527821207.XML"}, ;
if !hb_SendMail( ;
"smtp.gmail.com", ;
Val(cPort), ;
cFrom, ;
dstmail, ;
NIL /* CC */, ;
{} /* BCC */, ;
"teste1", ;
"teste2", ;
{""}, ;
cFrom, ;
cPassword, ;
"", ;
NIL /* nPriority */, ;
NIL /* lRead */, ;
.T. /* lTrace */, ;
.F., ;
NIL /* lNoAuth */, ;
NIL /* nTimeOut */, ;
NIL /* cReplyTo */, ;
iif(cPort=="465",.T.,.F.) /* lSSL */ )
Liberou no Gmail para enviar email por aplicativo menos seguro.. acho que é isso...
Rubens
cjp escreveu:Liberou no Gmail para enviar email por aplicativo menos seguro.. acho que é isso...
Rubens
Não sabia que precisava disso. Tentei fazer isto agora, mas não achei nada sobre isso nas configurações do Gmail. Sabe onde fica?
Fernando queiroz escreveu:verifiquei que durante o envio ele cria um arquivo de LOG com o nome
SMTP-X.log para cada e-mail enviado eu apago após a confirmação do envio
para não ficar cheio de arquivos dentro da pasta
.T. /* lTrace */, ;Para:
.F. /* lTrace */, ;Isso faz com que o arquivo de Log não seja gerado.
Jairo Maia escreveu:Fernando queiroz escreveu:verifiquei que durante o envio ele cria um arquivo de LOG com o nome
SMTP-X.log para cada e-mail enviado eu apago após a confirmação do envio
para não ficar cheio de arquivos dentro da pasta
Altera a linha lTrace que está assim:.T. /* lTrace */, ;Para:.F. /* lTrace */, ;Isso faz com que o arquivo de Log não seja gerado.
/* Copyright 2009 Viktor Szakats (vszakats.net/harbour) */
#require "hbssl"
#require "hbtip"
#if ! defined( __HBSCRIPT__HBSHELL )
REQUEST __HBEXTERN__HBSSL__
#endif
#include "simpleio.ch"
PROCEDURE Email_Envia( cFrom, cPassword, cTo, cHost, aFilesAttch, cBody, cSubject )
LOCAL nPort
LOCAL lSTARTTLS := .F.
LOCAL lsucesso := .F.
IF ! tip_SSL()
? "Error: Requires SSL support"
RETURN
ENDIF
hb_default( @cFrom , "usuario@gmail.com" )
hb_default( @cPassword, "password" )
hb_default( @cTo , "usuario@hotmail.com" )
hb_default( @cHost , "google" )
cHost := Lower( cHost )
/* SMTPS works with SSL/TLS on port 465 and with STARTTLS
on port 587. STARTTLS mode is fully automatic and requires
SSL/TLS be disabled at first (it will be activated on
request after STARTTLS command) */
DO CASE
CASE cHost == "apple" .OR. "@icloud.com" $ cFrom .OR. "@mac.com" $ cFrom .OR. "@me.com" $ cFrom
cHost := "smtp.mail.me.com"; lSTARTTLS := .T.
CASE cHost == "fastmail" .OR. "@fastmail.com" $ cFrom .OR. "@fastmail.fm" $ cFrom
cHost := "smtp.fastmail.com"
CASE cHost == "gmx.net" .OR. "@gmx.net" $ cFrom .OR. "@gmx.ch" $ cFrom .OR. "@gmx.de" $ cFrom
cHost := "mail.gmx.net"; lSTARTTLS := .T.
CASE cHost == "google" .OR. "@gmail.com" $ cFrom .OR. "@googlemail.com" $ cFrom
cHost := "smtp.gmail.com"
CASE cHost == "mail.ru" .OR. "@mail.ru" $ cFrom
cHost := "smtp.mail.ru"
CASE cHost == "netease" .OR. "@163.com" $ cFrom
cHost := "smtp.163.com"
CASE cHost == "office365"
cHost := "smtp.office365.com"; lSTARTTLS := .T.
CASE cHost == "outlook" .OR. "@outlook.com" $ cFrom .OR. "@hotmail.com" $ cFrom
cHost := "smtp-mail.outlook.com"; lSTARTTLS := .T.
CASE cHost == "sina" .OR. "@sina.com" $ cFrom
cHost := "smtp.vip.sina.com"
CASE cHost == "uol" .OR. "@uol.com.br" $ cFrom
cHost := "smtps.uol.com.br"
CASE cHost == "yahoo" .OR. "@yahoo.com" $ cFrom
cHost := "smtp.mail.yahoo.com"
CASE ":" $ cHost
IF TUrl():New( cHost ):nPort != -1
nPort := TUrl():New( cHost ):nPort
ENDIF
lSTARTTLS := ( nPort == 587 )
cHost := TUrl():New( cHost ):cServer
ENDCASE
hb_default( @nPort, iif( lSTARTTLS, 587, 465 ) )
? "Host:", cHost, hb_ntos( nPort ), iif( lSTARTTLS, "(STARTTLS)", "" )
lsucesso := tip_MailSend( ;
cHost, ;
nPort, ;
cFrom, ;
cTo, ;
NIL /* CC */, ;
{} /* BCC */, ;
cBody, ;
cSubject, ;
aFilesAttch, ;
cFrom, ;
cPassword, ;
"", ;
NIL /* nPriority */, ;
NIL /* lRead */, ;
.F. /* lTrace */, ;
.F., ;
NIL /* lNoAuth */, ;
NIL /* nTimeOut */, ;
NIL /* cReplyTo */, ;
nPort == 465 )
RETURN lsucesso
cSubject := "SGC - NOTA FISCAL ELETRONICA NF-E"
cBody := "emitida por: " + HB_EOL() +;
FLAG->n_xFant+ HB_EOL() +;
FLAG->n_xNome+ HB_EOL() +;
"CPF/CNPJ: " + FLAG->n_CNPJ + HB_EOL() +;
"NOTA FISCAL ELETRONICA Nr. " + NOTAFE->b_serie + "/" + NOTAFE->b_nNF + HB_EOL() + HB_EOL() +;
"para: " + HB_EOL() + ;
RTRIM(NOTAFE->e_xNome) + HB_EOL() +;
"CPF/CNPJ: " + RTRIM(NOTAFE->e_CNPJ) + HB_EOL() +;
"VALOR: R$ " + LTRIM(STR(NOTAFE->w_vNF,14,2)) + HB_EOL()+ HB_EOL() +;
"chave acesso: " + substr(NOTAFE->a_Id,4,44) + HB_EOL()+ HB_EOL() +;
"Obs: E-mail enviado automaticamente por SGC-SISTEMA DE GESTAO DE COMERCIO, nao responda."
aFilesAttch := {cPrefixo + ".xml",cPrefixo + ".PDF"}
lSucesso := Email_Envia( cFrom, cPassword, cTo, cHost, aFilesAttch, cBody, cSubject )
IF ! lSucesso
hwg_MsgInfo("E-MAIL NAO FOI ENVIADO"+ HB_EOL() )
ELSE
hwg_MsgInfo("E-MAIL FOI ENVIADO COM SUCESSO"+ HB_EOL() )
ENDIF
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes