Fórum Problemas com envio de e-mail em alguns provedores #279745

Boa tarde amigos,

Tenho uma aplicação em delphi 7 que envia e-mails utilizando IdSMTP, em alguns servidores smtp ele envia normal e com outros da erro de envio e não manda a msg de maneira nenhuma. Ex: Pelo email da Tutopia (smtp.tutopia.com.br) ele envia normalmente, mas com o do Bol (smtp.bol.com.br) não envia o que pode está acontecendo? Uso o seguinte código:

procedure TfMailDep.SpeedButton1Click(Sender: TObject);
begin
if odAnexos.Execute then
ListBox1.Items.Add(odAnexos.FileName);
end;

procedure TfMailDep.SpeedButton2Click(Sender: TObject);
var
Cont, xAnexo : Integer;

begin
IdMessage.Recipients.EMailAddresses := edtPara.Text;
IdMessage.CCList.EMailAddresses := edtCC.Text;
IdMessage.BccList.EMailAddresses := edtCCO.Text;

//Trata a Prioridade da mensagem
case cbxPrioridade.ItemIndex of
0 : IdMessage.Priority := mpLow;
1 : IdMessage.Priority := mpNormal;
2 : IdMessage.Priority := mpHigh;
end;

IdMessage.Subject := edtAssunto.Text;
IdMessage.Body := Memo3.Lines;

if cbxConfirmaLeitura.Checked then
IdMessage.ReceiptRecipient.Text := IdMessage.From.Text; // Auto Resposta

//Tratando os arquivos anexos
for xAnexo := 0 to ListBox1.Items.Count-1 do
TIdAttachment.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo]));

// Tentando conectar
try
IdSMTP.Connect;
except
on EIdSocketError do
Application.MessageBox(´Não Conectado´,´Confirmação´,Mb_Ok + Mb_IconInformation);
end;

// Tentando enviar a msg
try
IdSMTP.Send(IdMessage);
except
begin
Application.MessageBox(´Erro de Envio, Verifique seu login e senha e Tente Novamente!´, ´Confirmação´, MB_ICONINFORMATION + MB_OK);
IdSMTP.Disconnect;
abort;
end;
end;
// Envio com sucesso
Application.MessageBox(´Email enviado com sucesso!´, ´Confirmação´, MB_ICONINFORMATION + MB_OK);


Obrigado a todos.

Leandro Lins.