Pesquisar na Comunidade
Showing results for tags 'ERRO AO ENVIAR EMAIL'.
Encontrado 1 registro
-
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,