Buscar por:

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