Erro Ao Enviar Email

Ricardo Menon Luchesi · 7 Julho, 2014

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,

Juliomar Marchetti · 7 Julho, 2014

Boa tarde

veja se esse post lhe ajuda

Recommended Posts

	Juliomar Marchetti	skype: juliomar telegram: juliomar e-mail: [email protected] http://www.juliomarmarchetti.com.br