F�rum Enviar email para hotmail #392286

11/12/2010

Tenho uma funcao em delphi 7 para enviar emails utilizando Indy, funciona para quase todos os emails, menos para emais do hotmail, alguem sabe como fazer para que eu consiga enviar emails para essas contas ? Abs

Felipe Ip

Curtir t�pico

+ 0

Responder

Posts

13/12/2010

Leonardo Xavier

Nunca passei por isso. Sempre utilizei o indy, e sempre consegui enviar os emails para o hotmail, isso nao pode ser problema com o seu servidor de e-mail?quel vc esta utilizando?

Responder

Gostei + 0

20/12/2010

Felipe Ip

Uso uol, o incrivel � que testei com varias contas, inclusive com minhas, no BOL, no IG, na UOL, no TERRA, os emails chegam, menos nos hotmails. mh funcao:

function T.EnviarEmail(xpara,xcopia,xcopiaoculta,xassunto,xmensagem,xanexo1,xanexo2,xanexo3,xanexo4,xretorno,ximagem: String): Boolean;
var
  lTextPart: TIdText;
begin
  Result := True;
 
  if (Pos('@',xpara) = 0) then
  begin
    Result := False;
    Exit;
  end;
 
  try
    // Mensagem
    IdMsgSend.Subject   := xassunto;
    IdMsgSend.Body.Text := xmensagem;
 
    // Remetente
    idMsgSend.From.Address           := DM.xuseemp;
    IdMsgSend.ReplyTo.EMailAddresses := xretorno;
    idMsgSend.From.Name              := DM.xnomfan;
 
    // Destinat�rio
    IdMsgSend.Recipients.EMailAddresses := xpara;
 
    // Copia
    if (xcopia <> '') then
      idMsgSend.CCList.EMailAddresses := xcopia;
 
    // Copia Oculta
    if (xcopiaoculta <> '') then
      idMsgSend.BccList.EMailAddresses := xcopiaoculta;
 
    idMsgSend.MessageParts.Clear;
 
    // Anexa um arquivo
    if (xanexo1 <> '') then
      TIdAttachment.Create(idMsgSend.MessageParts,xanexo1);
 
    if (xanexo2 <> '') then
      TIdAttachment.Create(idMsgSend.MessageParts,xanexo2);
 
    if (xanexo3 <> '') then
      TIdAttachment.Create(idMsgSend.MessageParts,xanexo3);
 
    if (xanexo4 <> '') then
      TIdAttachment.Create(idMsgSend.MessageParts,xanexo4);
 
    // Caso tenha alguma imagem para inserir no corpo do email
    if (ximagem <> '') then
    begin
      lTextPart := TIdText.Create(idMsgSend.MessageParts);
      lTextPart.ContentType := 'text/plain';
      lTextPart := TIdText.Create(idMsgSend.MessageParts);
      lTextPart.Body.LoadFromFile(ximagem);
      lTextPart.ContentType := 'text/html';
    end;
 
    // Autentica��o - Use apenas quando o servidor exigir
    SMTP.AuthenticationType := atLogin;
    SMTP.Username := DM.xuseemp;
    SMTP.Password := DM.xpasemp;
 
    // Dados do Servidor
    SMTP.Host := DM.xhosemp;
    SMTP.Port := DM.xhospor;
    SMTP.Connect;

    try
      SMTP.Send(IdMsgSend);
    except
      Result := False;
    end;
    SMTP.Disconnect;
  except
    Result := False;
  end;
end;

Abs

Responder

Gostei + 0