Envio De E-Mail Com Tidsmpt

Delphi

25/03/2010

Olá pessoal, estou tentando enviar e-mail utilizando o componente tIdSmtp da Indy

faço todo o procedimento, o e-mail é enviado sem erros mais não chega,
quando eu envio para o mesmo e-mail que está enviando chega, ex: se envio de email@fulano1.com para
email@fulano1.com o e-mail chega, mais e envio de email@fulano1.com para outracoisa@outrodominio.com
o e-mail não chega, estou utilizando as mesmas configurações utilizadas no outlook, pelo outlook
os e-mails são enviados normalmente.

segue procedimento usado:


   with IdMsgSend do
      begin
        ContentType := 'text/html';
        xConteudo := mConteudo.Text;
        xConteudo := StringReplace(xConteudo, #$D#$A, '<br />', [rfReplaceAll]);
        Body.Text := xConteudo;
        
        From.Text := 'texto';
        Subject := 'assunto';
        CCList.EMailAddresses := ''; 
        BccList.EMailAddresses := ''; 
        Priority := mpHigh;
      end;


   SMTP.AuthenticationType := atLogin; {Simple Login}


   SMTP.Username := 'email@email.com';
   SMTP.Password := 'senha';

   {General setup}
   SMTP.Host := 'smtp.email.com'
   SMTP.Port := 25;

   {now we send the message}
   try
     SMTP.Connect;
     Erro := False;
   except
     Erro := True;
   end;

  if Erro = True then Exit;

    Screen.Cursor := crSQLWait;
   try
     try
      xMail := 'cliente@dominio.com';
      IdMsgSend.Recipients.EMailAddresses := xMail;
      SMTP.Send(IdMsgSend);
     except
       on E: Exception do
         begin
           lbStatus.Caption := 'Erro.: ' + E.Message;
         end;
     end; 
   finally
    Screen.Cursor := crDefault;
    SMTP.Disconnect;
   end;


Alguem tem ideia de pq os e-mails não chegam? alguma configuração especial?
o que falta para ficar igual a configuração do outlook que consegue enviar os e-mails
com as mesmas credenciais?

Obrigado desde já.
Murilo Junqueira

Murilo Junqueira

Curtidas 0
POSTAR