Fórum Ajuda Envio de E-mail para hotmal #449546

           //Carrega as variaveis
           SMTP.Host               := trim(sSmtp);
           SMTP.Username           := trim(sUsuario);
           SMTP.Password           := trim(sSenha);
           SMTP.Port               := strToInt(sPorta);
           //Checa se o servidor requer autenticação
           if bAutenticacao then
              smtp.AuthenticationType := atLogin
           else
              smtp.AuthenticationType := atNone;

           //Checa se o servidor requer SSL
           if bSSL then
           begin
              AuthSSL := TIdSSLIOHandlerSocket.Create(nil);
              AuthSSL.SSLOptions.Method  := sslvSSLv2;
              AuthSSL.SSLOptions.Mode    := sslmUnassigned;
              SMTP.IOHandler             := AuthSSL;
           end
           else
              SMTP.IOHandler := nil;


           IMessage.From.Address               := trim(edtDe.text);
           if (flBuscacampo(''cadgar'',''cd_usuario'',''cd_usuario = '''''' + usuario.Nome + '''''''') <> '''') then
              IMessage.From.Name               := trim(flBuscacampo(''cadgar'',''ds_email'',''cd_usuario = '''''' + usuario.Nome + ''''''''))
           else
              IMessage.From.Name               := trim(usuario.Nome);
           IMessage.Recipients.EMailAddresses  := trim(edtDestinatario.text);
           IMessage.CCList.EMailAddresses      := trim(edtDestinatario.text);
           IMessage.Subject                    := trim(edtAssunto.Text);
           IMessage.Body                       := (mmMensagem.Lines);

           //Carrega os anexos
           for i := 0 to lstAnexos.Items.Count -1 do
              TIdAttachment.create(imessage.MessageParts, TFileName(lstAnexos.Items.Strings[i]));

           //Testa se ja esta conectado, senão estiver conecta
           if not SMTP.Connected then
              SMTP.Connect(2000);

           //Caso esteja conectado, faz o envio
           if SMTP.Connected then
              SMTP.Send(IMessage);

           //Disconecta
           SMTP.Disconnect;
           Application.MessageBox(''Email enviado com sucesso!'', ''Confirmação'', MB_ICONINFORMATION + MB_OK);