Fórum Enviando email #355371

  try
    // Mensagem
    IdMsgSend.Subject   := xassunto;
    IdMsgSend.Body.Text := xmensagem;

    // Remetente
    idMsgSend.From.Address           := xretorno;
    IdMsgSend.ReplyTo.EMailAddresses := xretorno;
    idMsgSend.From.Name              := ´TESTE´;

    // 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);

    // 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.Body.Add(xmensagem);
      lTextPart.ContentType := ´text/html´;
    end;

    // Autenticação - Use apenas quando o servidor exigir
//  SMTP.AuthenticationType := atNone;
    SMTP.AuthenticationType := atLogin;

    SMTP.Username := ´nome@xxx.com.br´;
    SMTP.Password := ´xxxyyy´;

    // Dados do Servidor
    SMTP.Host := ´smtp.xxx.com.br´;
    SMTP.Port := 25;

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

    { Faz o loop na Query com os emails }
    While not QRYEmail.Eof do
      Begin
        { Se cancelado para tudo }
        If Terminated Then
          Begin
            Atualiza(´Envio cancelado´);
            Exit;
          End;

       { Monta corpo do email }
        MontaCorpo;

        { Envia o email }
        EnviaEmail;

        { Deleta da lista }
        DeletaDaLista;

        { Navega para o proximo }
        QRYEmail.Next;

        { Aguarda para enviar proximo }
        Sleep(2000);

      End;