Buscar por:

Enviar E-Mail (Função que funciona)

Código

// Declare no Uses IdMessage, IdSMTP

// USE ASSIM:

// EMail_Enviar(Porta (normalmente usada a 25),'SMTP do E-Mail do servidor - smtp.servidor.com.br','Sua conta de email - usuário','Sua conta de email - senha','email@destinatario.com.br','Assunto da mensagem',Nome do Memo com o corpo da mensagem ex:Memo1,'email@remetente.com.br',Se será exibido mensagem de confirmação de envio ou não = False ou True);

procedure TForm1.EMail_Enviar(Portam : Integer; Hostm: String; UserNamem: String; Passwordm : String; Destinatariom : String; Assuntom : String; Mensagemm : TMemo; EMail_Remetentem: String; Mensagem_Confirmacao : Boolean);

Var Message_ : TidMessage;

    IdSMTP_  : TIdSMTP;

begin

   IdSMTP_                    := TIdSMTP.Create(Application);

   IdSMTP_.Port               := Portam;

   IdSMTP_.AuthenticationType := atLogin;

   IdSMTP_.Host               := Hostm;

   IdSMTP_.Username           := UserNamem;

   IdSMTP_.Password           := Passwordm;

   IdSMTP_.Connect;

   If (IdSMTP_.Connected = False) Then

   Begin

      ShowMessage('Falha na conexão!');

      IdSMTP_.Disconnect;

      Exit;

   End;

   try

      Message_ := TidMessage.Create(Application);

      Message_.Recipients.EMailAddresses := Destinatariom;    // EMail destinatario

      Message_.Subject                   := Assuntom;         // Assunto

      Message_.Body                      := Mensagemm.Lines;  // Mensagem que será enviada

      Message_.From.Address              := EMail_Remetentem; // Email do Remetente

      IdSMTP_.Send(Message_);

   finally

      IdSMTP_.Disconnect;

      Application.ProcessMessages;

   end;

   If (Mensagem_Confirmacao = True) Then

      ShowMessage('Enviado com sucesso!');

   Message_.Free;

   IdSMTP_.Free;

end;