canceling email

rbuser

Hi
i'm useing

TppSMTPPlugIn.RegisterClass(TppSMTPMapi);
ppreport1.EmailSettings.Attachments.Clear;
ppReport1.EmailSettings.ShowEmailDialog := False;
ppReport1.EmailSettings.PreviewInEmailClient := True;
*** filling in data***
ppReport1.SendMail;

Is there anyway to check if the mail is sendt or the mail is canceled?

best regards
Brian

nicocizik

Hi Brian,

Starting with RB 10.04, we included the OnEmailError and OnStatusChange
events to track the email message. These events are part of the TppSMTPMapi
class and are currently not available directly from the report so you will
need to create your own TppEmail object. Something like the following...

var
lEmail: TppEmail;
begin

//insert your own code below here.

lEmail := TppEmail.Create;

try

lEmail.AddReport(ppReport1);

lEmail.SMTP.OnStatusChange := EmailStatusChange;
lEmail.SMTP.OnEmailError := EmailErrorEvent;

lEmail.Send;

finally
lEmail.Free;
end;


--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

Hello Nico

TppEmail is not known

I just updated to version 10.04

Regards
Brian

nicocizik

You need to include ppEmail in your uses clause.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

This is a multi-part message in MIME format.

nicocizik

This is a multi-part message in MIME format.

rbuser

This is a multi-part message in MIME format.

nicocizik

This is a multi-part message in MIME format.