Email Groups using Gmail

rbuser

Hi,

Trying to setup a report to email each group as in the
http://www.digital-metaphors.com:8080/index.php?title=Output/Email/How_To...Email_Groups
example.

We need to this with a Gmail account, but using the
http://www.digital-metaphors.com:8080/index.php?title=Output/Email/How_To...Customize_Indy_Email_Settings
directions does not seem to have an effect on the TppFileDevice email
method.

Thanks.

rbuser

The following got I working for me. It required me to create an additional
IdSSLIOHandlerSocketOpenSSL as using the same as the one being assigned to
TppSMTPIndy(TppEmail(ppReport1.Email).SMTP).IndySMTP.IOHandler caused an AV
at application close. Is there a better way to do it?

Thanks

procedure TForm1.ppReport1FileDeviceCreate(Sender: TObject);
begin
TppSMTPIndy(ppReport1.FileDevice.SMTP).IndySMTP.Port := 587;
TppSMTPIndy(ppReport1.FileDevice.SMTP).IndySMTP.IOHandler :=
IdSSLIOHandlerSocketOpenSSL2;
TppSMTPIndy(ppReport1.FileDevice.SMTP).IndySMTP.UseTLS :=
utUseExplicitTLS;
end;