Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3553 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 para o comentário
Compartilhar em outros sites

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.