Pesquisar na Comunidade

Pessoal, estou utilizando a unit alterada que foi publicada em outro post (link abaixo). Eu criei as credenciais oauth no google e estou tentando fazer o envio de email com a unit alterada que está em anexo, contudo está dando erro ao enviar. Eu estou configurando conforme está no exemplo que foi apresentado no post anterior, onde estou enviando o escopo, client id, cliente secret, redirect uri, entre outros dados. Quando tento enviar, sou redirecionado para uma página onde eu clico para autorizar e gero o access token, refresh token e o tempo de expiração de 1 hora, mas dá o erro abaixo: Erro: SMTP Error: Unable to send MailFrom. 535 5.7.8 https://support.google.com/mail/?p=BadCredentials d9443c01a7336-20c13934817sm1435145ad.158 - gsmtp 530 5.7.0 https://support.google.com/mail/?p=WantAuthError d9443c01a7336-20c13934817sm1435145ad.158 - gsmtp Configurações: Host: smtp.gmail.com Email: [email protected] Porta: 587 e 465 (testei ambas) Client id: xxxxxxxxxxxxxxxxxxxxxx Cliente Secrect: yyyyyyyyyyyyyyyyyyyy Redirect URI: http://127.0.0.1:1500 Escopo: https://www.googleapis.com/auth/gmail.send URL AccessToken: https://accounts.google.com/o/oauth2/token URL: Autorization Token: https://accounts.google.com/o/oauth2/auth TLS: True e False (testei ambas) SSL: True e False (testei ambas) SSLType: LT_TLSv1_2 Link Post Anterior: Configuração OAUTH Gmail.pdf ACBrMail.pas OAuth2.Gmail.pas OAuth2.Outlook.pas OAuth2.pas

Pessoal, estava tendo muita dificuldade para criar as credenciais oauth do Gmail e graças a videos no youtube, pesquisas no google e pessoal da comunidade, eu consegui. Com isto eu criei um tutorial ensinando o passo a passo de como criar esta credencial no Gmail e configurar o seu aplicativo de email, isto levando em consideração que estará apto a fazer autenticação OAUTH. Eu recomendo olharem o tópico abaixo, onde há algumas units atualizadas do ACBrMail como contribuição de um membro da comunidade. O ACBr deve atualizar os fontes logo, mas já podem utilizar o código disponibilizado no tópico abaixo. Observação: eu coloquei o arquivo pdf no meu site por que há um limite de tamanho de arquivo que posso disponibilizar no tópico. Fiquem avontade para compartilhar. Link do pdf: https://ctec.com.br/downloads/Envio_de_Email_pelo_GMAIL.pdf

Olá pessoal! Recentemente temos recebido relatos de membros da comunidade com problemas para realizar o envio de e-mail quando o provedor é o da Microsoft(@hotmail, @outlook e afins). Um membro de nossa comunidade compartilhou a seguinte mensagem que recebeu da Microsoft: Esses "métodos modernos de autenticação" se referem ao Oauth 2.0 (Veja mais em Os Métodos de Autenticação Modernos agora necessários para continuar a sincronizar o E-mail do Outlook em aplicações de e-mail não Microsoft). O que é o Oauth 2.0? O Oauth 2.0 é um protocolo de autorização que funciona através de tokens de acesso e foi projetado primariamente com o objetivo de conceder acesso a determinados recursos de aplicações de usuários. Neste caso em questão, seria o acesso ao e-mail. Como fica o ACBrMail? Atualmente o ACBrMail não tem suporte a Oauth 2.0, foi criada em nosso backlog a tarefa #TK-6042 para análise e implementação da mesma. É o fim do ACBrMail então? O que eu faço agora? Não é o fim do ACBrMail. Conforme mencionado anteriormente, será analisada implementação do Oauth 2.0 no mesmo. Enquanto isso não ocorre, para provedores como o g-mail, por exemplo, ainda é possível fazer a comunicação com a Senha de App. Para a Microsoft, nos testes realizados pela equipe de consultores, Microsoft365 ainda demonstra estar funcionando, o HotMail e o Outlook que pararam de funcionar. Outra opção também seria o uso de um provedor de e-mail próprio.

Olá, estou com uma dificuldade em um cliente onde o processo de envio do e-mail da NFe está levando um tempo muito fora do normal. No código fonte logo após a validação e retorno da nota eu realizo a chamada para o envio do e-mail: GravarLog('Chama enviar e-mail'); NFe.NotasFiscais.Items[vloc_Contador].EnviarEmail(vloc_MailTo, aConfiguracao.Email.Assunto + ' Série: ' + IntToStr( NFe.NotasFiscais.Items[vloc_Contador].NFe.Ide.serie ) + ' Número: ' + IntToStr( NFe.NotasFiscais.Items[vloc_Contador].NFe.Ide.nNF ), mmEmailMsg.Lines, True, // Enviar PDF junto aEmailCC, // Lista com emails que serão enviado cópias - TStrings nil); // Lista de anexos - TStrings GravarLog('Depois da chamada e-mail'); Sleep(300); GravarLog('Depois do sleep'); No log retorna o tempo antes e depois de entrar na rotina: 02/09/2024 10:50:45 Chama enviar e-mail 02/09/2024 10:51:07 Enviando Email: 02/09/2024 10:51:07 Depois da chamada de e-mail 02/09/2024 10:51:07 Depois do sleep Existe algum parâmetro ou timer que faça algum controle sobre esse comando? Li alguns tópicos antigos que tornava lento para anexar o arquivo, tem algum relato desse problema? Fico no aguardo

Tem alguns dias que me relataram que não está indo o corpo do email, quando fui testar realmente não foi e estava funcionando bem. Eu consegui enviar o corpo do email, mas para isto que mudar a propriedade IsHTML para TRUE e antes funcionava com FALSE. O problema é que o texto agora não está indo com quebra de linha, qualquer texto que coloque no body vai tudo em uma única linha sem quebra de linha. Como faço para colocar quebra de linha no BODY? ACBrMail.Body.Text := MmTexto.Text; //Vai sem quebra de linha for I := 1 to MmTexto.Lines.Count do //Também vai sem quebra de linha ACBrMail.Body.Add(MmTexto.Lines[I]); ACBrMail.IsHTML := True; //No exemplo acima o MmTexto.Text é um memo com quebra de linha no texto.

Boa tarde, faz alguns dias que estou tendo um problema com envio do email pelo componente do ACBrEmail, erro a seguir: Este erro não acontece quando faço o procedimento com o mesmo arquivo de configuração pela minha máquina. Alguém saberia me informar oque eu poderia estar fazendo neste caso? já foi trocado de máquina, de versão do windows(atualmente 1909),e até mesmo de provedor de internet.

Olá a todos, como o termino do gmail para aplicativos menos seguro por smtp está próximo, teria alguma possibilidade de criar um componente de email usando o api do gmail? tenho procurado conteúdo a dias na internet e não tenho encontrado nada (que eu tenha entendido). Se alguém puder me dar uma luz eu ficarei muito grato e caso eu consiga desenvolver algo funcional e for de interesse de todos postarei aqui o resultado.

Olá Estou com um problema no envio de e-mail com o PDF em anexo, ao tentar enviar o e-mail exibe o seguinte erro: SMTP ERROR: Login:Success-Other undefined Status 220 2.0.0 Ready to start TLS Fiz vários teste e em alguns deles o e-mail foi enviado, mas tenho duvidas quanto ao procedimento que fiz, primeiramente vou passar os dados iniciais que ocorre o erro ACBr instalado para usar com a Capicom (Li em um outro tópico "Ainda Sobre O Envio de E-Mail" um problema parecido, mas dizia que só acontecia com OpenSSL então abri este por achar que era diferente) A Impressão da NFE é por Rave Report e da NFCe é por Fortes Report Servidor SMTP = smtps.bol.com.br porta = 587 SSL = False TLS = True Enviar PDF = True Situações 1 - Exibe o erro informado ao tentar enviar e-mail da NFCe, se for NFe envia normal desde que não tenha tentado enviar e-mail da NFCe antes, caso tenha tentado enviar e-mail da NFCe antes, também da o mesmo erro no envio da NFe. 2 - Alterei o TLS para ficar TRUE quando for NFe e FALSE quando for NFCe, neste caso enviou e-mail para a NFCe mas deu o erro para a NFe 3 - Alterei TLS para False, neste caso não da problema de envio em ambas as notas, gostaria de saber se pode deixar o TLS sempre False, ou se isso pode causar algum problema no cliente? 4 - Alterei o TLS para TRUE e também para não enviar o PDF como anexo, neste caso também enviou e-mail para ambas as notas apenas com o XML como anexo, porem isto não resolve o problema, mas deixa a entender que o problema é com o PDF 5 - Gerei os PDF das notas e comentei a linha "TACBrNFe( TNotasFiscais( Collection ).ACBrNFe ).DANFE.ImprimirDANFEPDF(NFe);" da procedure "NotaFiscal.EnviarEmail", como os PDF já estavam gerados, não precisava gerar novamente. Neste caso o envio do e-mail funcionou para ambas as notas, mas isso também não é a solução, pois se o PDF não estiver gerado vai dar outro erro. 6 - Tentei contornar o caso 5, escrevendo em uma mesma procedure, a chamada para imprimir o PDF e depois para enviar o email, mas ainda assim deu o erro 7- Testei criando o ACBrNFe em tempo de execução e depois do envio do e-mail fazendo a liberação da memória, mas o erro persistiu Os casos 3 e 5 foram os únicos que não houve erro ao enviar o e-mail com PDF no anexo, sendo que o caso tem a questão do TLS ser sempre FALSE e no caso 5, o Usuário terá que gerar o PDF antes e depois enviar o e-mail, ou seja fazer o processo em duas etapas Será que alguém já passou por isso? Gostaria de uma solução mais definitiva Obrigado

Bom dia pessoal, estou tentando realizar o envio de e-mail através do ACBrMail. Segue o código fonte: procedure TFrmMensagens.BitBtn1Click(Sender: TObject); var Anexos:TIdAttachmentFile; i, posicao:integer; s, email:string; begin with ACBrMail1 do begin Clear; Subject := MEN_ASSUNTO.Text; FromName := FrmPrincipal.QryConfigCONF_FANTASIA.AsString; //IdMessage1.Body.Add(MEN_MENSAGEM.Text); S:=Edit1.Text; while (S <> '') do begin posicao:=pos(';', s); if posicao > 0 Then begin email:=copy(s, 1, posicao-1); s:=copy(s, posicao+1, length(s)-posicao); if s = ';' then s:=''; end else begin email:=s; s:=''; End; AddAddress(email,''); End; For i:=0 to ListBox1.items.count-1 do if fileexists(Listbox1.Items.Strings) then AddAttachment(Listbox1.Items.Strings); //AddAttachment(Listbox1.Items.Strings, Listbox1.Items.Strings); IsHTML := False; AltBody.Assign(MEN_MENSAGEM.Lines); try Send(); except on E:Exception do begin ShowMessage('Erro ao enviar email: '+E.Message); Abort; end; end; end; Close; end; Não está dando nenhum erro, apenas não envia o e-mail. Testei realizar o envio para alguns e-mails diferente e não deu certo. Extrai as dlls do openssl na pasta do sistema também.

Boa tarde á todos, Estou pesquisando e procurando uma forma de enviar um e-mail "automático" pelo ACBRMonitor, quando uma NFe for autorizada houve retorno 100 enviar e-mail para o e-mail do destinatário, existe esta função ou alguma configuração que faça este envio? Desde já agradeço.

Olá, Estou tendo dificuldade de configurar o ACBRemail, ja li todos os posts de configuração sobre o assunto e erros semelhantes mas ainda não consegui resolver. Na minha aplicação esta retornando o erro : SMTP Error: Unable to Login No demo do acbremail retorna o erro: SMTP Error: Unable to sendo MailFrom Utilizo o HOTMAIL e configurei de acordo com post do Daniel sobre o assunto tanto na minha aplicação como no Demo. Me ajudem por favor.

Como consigo saber se o campo é obrigatório no CTe? por exemplo estes 3 campos eles não tem nenhum especificação, logo, não são obrigatórios? Se não forem eu informo eles no XML mas não preencho ou nem informo?

Opa, estou iniciando com o email usando o acbrmonitor agora . o Email de Nfe chega certinho mas o Email com outros tipos de arquivo não estao indo bem. O email chega no destinatario, mas, sem o anexo :/ Segue abaixo as rotinas que estou enviando : ps.: estou desconfiado que possa ser por causa do tamanho do arquivo de anexo, se for, gostaria de sasber o limite AdicionaAnexo.TXT AdicionaPara.TXT Assunto.TXT Enviar.TXT novo.txt respopstas do acbrmonitor.txt

Quais os limites pra o envio de anexo pelo componente email ?

Pessoal quando estou criando um email , na hora do comando pra anexar um arquivo. EMAIL.AdicionaAnexo("C:\Sistemas\zPadrao\zVers?o 2.1.2018\zPadrao\Zoom 161219 DARLUC.rar") repare que nessa parte(zVers?o 2.1) o monitor trocou o "ã" por "?" Como resolvo isso ?

Ola pessoal Uma necessidade que surgiu agora foi de salvar os email enviados na caixa de "Itens Enviados" usando a rotina abaixo eu consigo salvar em qualquer pasta no me servidor utilizando o componente TIdSMTP junto com o TIdIMAP4 mas eu preciso passar TIdMessage como paramentro. IdIMAP41.SelectMailbox('INBOX.ITENS_ENVIADOS'); IdIMAP41.AppendMsg('INBOX.ITENS_ENVIADOS', IdMessage ); Como minha rotina de email esta toda amarrada no ACBR e funcionando 100% gostaria de manter e nao precisar reescrever obrigado

Por favor alguem poderia me ajudar neste erro que esta dando no envio de email da nf-e, o erro acontece somente na maquina do cliente na minha esta enviando corretamente.

ACBrLibMail Visulizar Arquivo ACBrLibMail - Biblioteca para envio de email Faça Download pelo SVN, dos Demos de uso da ACBrLibMail em diversas linguagens, usando o endereço: http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/ Manual On-Line: https://acbr.sourceforge.io/ACBrLib/ACBrLib.html Autor Daniel Simoes Enviado 08-09-2019 Categoria ACBrLib - PRO  

Bom Dia. Esto fazendo envio de email de um documento fiscal e faço da seguinte forma: if Trim(TxtEmailNovo.Text) <> '' then Begin With PainelMDFe Do Begin ACBrMDFe1.Manifestos.Items[0].EnviarEmail(TxtEmailNovo.Text, // e-mail do destinatário BDados.NfeEmpresa.FieldByName('EMAILASSUNTO').AsString,// Assunto mmEmailMsg.Lines,// Mensagem True, // Enviar em PDF nil, // sCC nil) // Anexos End; End; Como faço para deixar opção para enviar CC e CCo ? Obrigado.

Olá, sou novo no projeto, então ainda estou explorando as funcionalidades e o que posso utilizar em nosso ERP. Gostaria de sanar uma dúvida, consigo utilizar o ACBR Monitor para enviar emails, que não sejam pelos métodos fiscais como por exemplo NFe.EnviarEmail ? Ou ele tem esta restrição de somente enviar emails vinculados aos métodos fiscais ? Obrigado pelo retorno.

Olá boa tarde, Estou com um problema, ao enviar o email, enviando diretamente ou não pelo aplicativo ocorre o erro abaixo: Erro ao enviar email Unable to create file "" Está compilado na versão 1.2.0.58 segue o log em anexo. LOG.TXT

Boa tarde, vi alguns problemas semelhantes ao meu, mas todos resolvidos usando os componentes Delphi, e uso o ACBrMonitor Plus1.2.0.18. Quando faço o envio do PDF e XML da nota por email, através do sistema da empresa pelos comandos TXT do ACBrMonitor, no gmail o XML não aparece como anexo, apenas no corpo da mensagem. Daí fui em "Mostrar Original" no gmail e lá consta o seguinte: --005432F3_08A59F45_Synapse_boundary Content-type: text/xml; name="42190107608242000101550010000033101394194342-nfe.xml" Content-Transfer-Encoding: Base64 Content-Disposition: inline; FileName="42190107608242000101550010000033101394194342-nfe.xml" Content-Description: 42190107608242000101550010000033101394194342-nfe.xml Depois eu olhei o email da NFe de algumas outras empresas e percebi que ali onde diz inline, está attachment. Eu vi em algumas postagens aqui no fórum que a galera alterou a propriedade do anexo para attachment também. Fiz um teste com o "Enviar Email" através da opção Teste, na Aba DF-e. Selecionei o XML e informei o meu email, daí deu certo. Fui verificar o "Mostrar Original" no GMAIL e estava assim: --010C4FDB_4B983502_Synapse_boundary Content-type: text/xml; name="42170707608242000101550010000054501307719415-nfe.xml" Content-Transfer-Encoding: Base64 Content-Disposition: attachment; FileName="42170707608242000101550010000054501307719415-nfe.xml" Content-Description: 42170707608242000101550010000054501307719415-nfe.xml Tem como eu fazer isto através dos comandos do ACBrMonitor? Faço uso do EMAIL.Enviar, do NFE.EnviarEmail e do NFE.EnviarEmailEvento. Não encontrei nada no manual. Ou talvez eu esteja com uma versão um pouco antiga do ACBrMonitor. Minha versão é 1.2.0.18. Desde já agradeço!!

Boa tarde, Procurei no forum, mas não consegui encontrar essa informação. Na impressão de boletos ou nota fiscais, como habilito a opção de enviar na pré-visualização? Já passei todos os dados e atribui o componente de ACBrEmail a propriedade MAIL do ACBrBoleto, mas mesmo assim não habilita.

Não sei se alguém usa esse comando, mas incluí essas linhas em "GerarRegistroTransacao400" no "ACBrBancoBrasil.pas" para que o banco envie o email ao sacado: