Problem with sending mail

Freud · October 2010

Good evening All,

I tried to use the TfrxMailExport component but it seems it doesn't work and I am not the first who has this problem.
Anyway, as i built my own client mail with Indy before using FR I 'd like to use it within FR instead of using TfrxMailExport component. Instead of loading the FR mail form in the preview when I click on the mail button I'd like to load my own client mail which is located in a .DLL file.

In my application I load the client mail as this :

For the declaration :

Procedure fmMail(HandleApp :Integer;);StdCall;External MyDll.dll';

For the call :

var
Handle : THandle;
Ptr : TFarProc;
Begin
 HandleApp:=Application.Handle;
 Handle := LoadLibrary ('MyDll.dll');
 Ptr := GetProcAddress (Handle,Â Â 'fmMail');
 If Ptr <> NIL Then
Â Â BeginÂ Â  fmMail(HandleAppl);
Â Â Ptr := Nil;
Â Â End;
End;

Can I write that code where FR mail form is called ?

Thanks.

gpi · October 2010

Try

procedure TForm1.ButtonClick(Sender: TObject);
begin
Â Â Â Â  ShowMessage('My Button pressed');
end;

procedure TForm1.frxReport1Preview(Sender: TObject);
var
Â Â Button: TSpeedButton;
begin
Â Â // add new button
Â Â Button := TSpeedButton.Create(TfrxPreviewForm(frxReport1.PreviewForm).ToolBar);
Â Â Button.Parent:=TfrxPreviewForm(frxReport1.PreviewForm).ToolBar;
Â Â Button.Caption:='My Button';
Â Â Button.Width:=60;
Â Â Button.Left:=650;
Â Â Button.OnClick:=ButtonClick;
Â Â TfrxPreviewForm(frxReport1.PreviewForm).EmailB.OnClick:=ButtonClick;
Â Â end;

Freud · October 2010

Good Morning,

It works fine !!!

Thank you very much gpi [img]style_emoticons/<#EMO_DIR#>/smile.gif" style="vertical-align:middle" emoid=":)" border="0" alt="smile.gif" />) Best Regards[/img]

Problem with sending mail

Comments

Leave a Comment