Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Erro Ao Enviar Email


  • Este tópico foi criado há 2881 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Pessoal

 

  Estou com  o seguinte erro SMTP Error : Unable to send Mailto, segue abaixo a rotina que estou utilizando

  ACBrMail1.From     := '[email protected]';
  ACBrMail1.FromName := 'Ricardo';
  ACBrMail1.Host     := 'smtp.uol.com.br'; // troque pelo seu servidor smtp
  ACBrMail1.Username := 'personal-soft';
  ACBrMail1.Password := 'XXXXXXX';
  ACBrMail1.Port     := '587'; // troque pela porta do seu servidor smtp
  ACBrMail1.AddAddress('[email protected]','Ricardo');
//  ACBrMail1.AddCC('[email protected]'); // opcional
//  ACBrMail1.AddReplyTo('[email protected]'); // opcional
//  ACBrMail1.AddBCC('um_email'); // opcional
  ACBrMail1.Subject := 'Teste de Envio'; // assunto
  ACBrMail1.IsHTML := True; // define que a mensagem é html
  // mensagem principal do e-mail. pode ser html ou texto puro
  ACBrMail1.Body.Text :=
  '<html>'+#13+#10+
  '<head>'+#13+#10+#13+#10+
  '  <meta http-equiv="content-type" content="text/html; charset=ISO-8859-1">'+#13+#10+
  '</head>'+#13+#10+
  '<body text="#000000" bgcolor="#FFFFFF">'+#13+#10+
  '<h1>Texto em HTML.</h1><br>'+#13+#10+
  '</body>'+#13+#10+
  '</html>'+#13+#10;
  ACBrMail1.AltBody.Text := 'Texto puro alternativo.';
//  ACBrMail1.AddAttachment('um_arquivo','um_nome_opcional');
  ACBrMail1.Send;
 
 
Obrigado,
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.