Discussion :

[delphine_lep]

Bonjour

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

Quelqu'un peut-il m'aider ?

[SergioMaster]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ms91fr]

Quoi comme composants payants ??

[SergioMaster]

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

mais est ton ami , non ?