Envoyer un fax + pièce jointe depuis Delphi

Bonjour

J'ai la version 6 de delphi
Je souhaiterais envoyé un fax + piece jointe depuis
Delphi.

Quelqu'un peut-il m'aider ?

ce n'est pas forcement simple (si tu exclus le cas d'imprimer directement sur le fax avec la saisie manuelle du numéro .

sinon voici ce que j'ai pu faire suite à beaucoup de recherche [D3]
le document à envoyer étant un pdf , toutefois cela bug si Adobe Reader > version 7

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TPDFForm.FaxClick(Sender: TObject); var FaxServer,FaxDoc : OleVariant; document : String; JobId : Variant; begin Faxserver:=CreateOleObject('FaxComex.FaxServer'); Faxserver.Connect(''); FaxDoc := CreateOleObject('FaxComex.FaxDocument'); // FaxDoc.CoverPageType:=1; // FaxDoc.CoverPage:='C:\Temp\Generic.cov'; Document:=PReport1.FileName; FaxDoc.Body:=Document; FaxDoc.Subject := 'Confirmation de Commande'; FaxDoc.DocumentName:='Fax Confirmation'; FaxDoc.Sender.FaxNumber:=RegFax; FaxDoc.Sender.Name :=RegSoc; FaxDoc.Sender.TSID :='PC Fax Auto'; FaxDoc.Recipients.Add(FaxClient.Text,'Moi'); JobId:=FaxDoc.Submit(''); FaxServer.Disconnect; FaxDoc := Unassigned; FaxServer := Unassigned; end;

---

il 'y a bien sur des composants payants :(
et Turbo Async Pro free :) mais là je peux pas aider

Quoi comme composants payants ??

ben , j'ai fait une teuf d'enfer , et ça fait surtout un bail

mais :google: est ton ami , non ?