Buscar

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;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Rede
Adicionada dia: 19/07/10
Por: Rodrigo
Visualizada: 6383 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009