Buscar

Enviando email através de codificação da paleta indy do delphi

Código

(*

devemos fazer uso das seguintes bibliotecas do indy

*)


uses
IdComponent, IdTCPConnection, IdTCPClient,
IdMessageClient, IdSMTP, IdBaseComponent, IdMessage, IdPOP3;

(*

depois o código

*)


function EnviarEmail(aData, aHora : TDateTime; aHost, aLogin, aSenha,
aListaEmail, aAssunto, aCorpo : String) : Boolean;
var
  IdSMTP    : TIdSMTP;
  IdMessage : TIdMessage;
begin
  Cabecalho:= '';
  Result:= False;
  IdSMTP    := TIdSMTP   .Create(nil);
  IdMessage := TIdMessage.Create(nil);
  try
    IdSMTP.Host:= aHost;
    IdSMTP.AuthenticationType:= atLogin;
    IdSMTP.Username:= aLogin;
    IdSMTP.Password:= aSenha;
    IdSMTP.Connect;

    IdMessage.From.Address:= aLogin;
    IdMessage.Recipients.EMailAddresses:= aListaEmail;
    IdMessage.Subject:= aAssunto;
    IdMessage.Body.Text:=
'Data: '+DateToStr(aData)+#13#10+
'Hora: '+TimeToStr(aHora)+#13#10+ aCorpo;
    IdMessage.MessageParts.Clear;
    try
      IdSMTP.Send(IdMessage);
    except
      on E: Exception do
        begin
          MessageDlg('Erro ao tentar enviar este e-mail'+#13#10+e.Message,mtWarning,[mbok],0);
          Exit;
        end;
    end;
  finally
    IdSMTP   .Disconnect;
    IdSMTP   .Free;
    IdMessage.Free;
  end;
  Result:= True;
end;


(*

depois basta chamar a função passando os parâmetros
ex:

*)


EnviaEmail(Date,Time, 'smtp.seuprovedor.com.br','seuusuario@seuprovedor.com.br','suasenha','email1@email.com.br;email2@email.com.br;email3@email.com.br','Evido de email','Enviando email via programação utilizando os recursos da poderosa paleta indy');

Publicidade

Vote na dica




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


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 08/10/09
Por: Ricardo Silva Pereira
Visualizada: 6314 vezes

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