Fórum Authentication Failed #350043

Explique como você está enviando o email.

A mensagem de erro significa que o servidor de email exige que você faça login no servidor antes.

Segue a Rotina amigão!!

procedure Tfrme_mail.BitBtn1Click(Sender: TObject);
var
s:string;
// xAnexo : Integer;
begin
memo2.Visible:=true;
memo2.lines.Clear;

//smtp

idSmtp1.Host:=dm.tabususmtp.value;
idsmtp1.Username:=dm.tabusuemail.value;
IdSMTP1.Password :=dm.tabususenha.value;
IdSMTP1.Port:=dm.tabusuporta.value;
IdSMTP1.AuthenticationType:=atnone;


// remetente

idmessage1.Clear;
idMessage1.From.Address:=dm.tabusuemail.value;
idMessage1.From.Name:=dm.tabusuid.value;
idMessage1.From.Text:=dm.tabusuid.value+´<´+dm.tabusuemail.value+´>´;
IdMessage1.Recipients.EMailAddresses := combobox1.Text;
IdMessage1.CCList.EMailAddresses := edit2.text;
IdMessage1.BccList.EMailAddresses := edit3.Text;
IdMessage1.Subject := edit1.Text;
IdMessage1.Body := memo1.Lines;
idmessage1.ReplyTo.EMailAddresses:=dm.tabusuemail.value;
idmessage1.Headers.Values[´return-path´]:=dm.tabusuemail.value;
idmessage1.Headers.Values[´x-msmail-priority´]:=´Normal´;
idmessage1.Headers.Add(´message-id: <>´);
if checkbox1.Checked then
begin
idmessage1.ReceiptRecipient.Address:=dm.tabusuemail.value;
idmessage1.ReceiptRecipient.Name:=dm.tabusuid.value;
idmessage1.ReceiptRecipient.text:=idMessage1.From.Text;
idmessage1.Headers.Add(´disposition-notification-to: <dm.tabusuarioemail.value>´);
end;
if pdf = ´capa´ then
begin
exportQr1.Report:=frmcapa.QuickRep1;
frmcapa.QuickRep1.Prepare;
end;
if pdf = ´registro_cliente´ then
begin
exportQr1.Report:=frmrelregistro_cliente.QuickRep1;
frmrelregistro_cliente.QuickRep1.Prepare;
end;
if pdf = ´radar´ then
begin
exportQr1.Report:=frmrelradar.QuickRep1;
frmrelradar.QuickRep1.Prepare;
end;
exportQr1.ExportQRPDF(´relatorio´,true);
{
//Trata a Prioridade da mensagem
case cbxPrioridade.ItemIndex of
0 : IdMessage.Priority := mpHigh;
1 : IdMessage.Priority := mpNormal;
2 : IdMessage.Priority := mpLow;
end;
}
{
//Tratando os arquivos anexos
for xAnexo := 0 to ListBox1.Items.Count-1 do
TIdAttachment.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));

}
TIdAttachment.create(idmessage1.MessageParts, TFileName(edit5.text));
IdSMTP1.Connect;
if dm.tabusuautenticacao.value = ´Sim´ then
begin
IdSMTP1.AuthenticationType:=atlogin;
IdSMTP1.Authenticate;
end;
try
IdSMTP1.Send(IdMessage1);
finally
IdSMTP1.Disconnect;
end;
Application.MessageBox(´Email enviado com sucesso!´, ´Confirmação´, MB_ICONINFORMATION + MB_OK);
memo2.Visible:=false;
close;
end;

Para o caso do Terra, mude......para......que deve funcionar.

No caso do GMail, pesquise aqui o fórum que você deve encontrar tópicos explicando como proceder.

Acrescento um detalhe de suma importância: Alguns provedores exigem que antes de enviar e-mail, é necessário receber todos. dê uma olhadinha nisso