Discussion :

[Pitou5464]

Salut à tous,

J'ai un soucis dans ma boucle, il m'envoi le premier fax, recommence à envoyer le premier fax, puis passe au deuxieme, reviens au premier, passe au deuxieme, au troisieme, reviens au premier, comme si il remettait a zéro le varItem chaque fois qu'il change de destinataires de ma liste ListeFax.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub Commande86_Click()
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objSender As FaxSender
Dim JobID As Variant
Dim varItem As Variant
Dim path As String
path = FindFax("c:\")
Dim pathcov As String
pathcov = FindCov("C:\Documents and Settings\All Users\Application Data\Microsoft\Windows NT\MSFax\Common Coverpages\")
For varItem = 0 To Me.ListeFax.ListCount - 1
 
'Connect to the fax server
objFaxServer.Connect ""
 
'Set the fax body
objFaxDocument.Body = path
 
'Name the document
objFaxDocument.DocumentName = "Fax Atlantique"
 
'Add the recipient with the fax number 12225550100
objFaxDocument.Recipients.Add "'" & Me.ListeFax.ItemData(varItem) & "'", ""
 
'Choose to attach the fax to the fax receipt
objFaxDocument.AttachFaxToReceipt = True
 
'Set the cover page type and the path to the cover page
objFaxDocument.CoverPage = pathcov
 
'Set the sender properties.
objFaxDocument.Sender.Title = "Mr."
objFaxDocument.Sender.Name = "Jean-Pierre "
 
'Save sender information as default
objFaxDocument.Sender.SaveDefaultSender
 
'Submit the document to the connected fax server
'and get back the job ID.
 
JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
 
Next varItem
End Sub

Merci pour votre aide

[random]

tu as essayé avec for each à la place de for ?
en fait il semble ajouter les fax envoyés à la liste
je suppose que les fax envoyés ont un indicateur envoi qu'il faut toper
sinon tu pourrais faire
nb=Me.ListeFax.ListCount - 1

puis for 0 to nb

[pgz]

Bonjour,

Je ne suis pas sûr du tout, mais je me demande si avec

Code :

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

objFaxDocument.Recipients.Add "'" & Me.ListeFax.ItemData(varItem) & "'", ""

tu n'ajoutes pas un destinataire à chaque passage, au même message.
Au premier passage tu aurais des tinataires = d1
au deuxième passage destinataires = d1;d2
etc...

et dans ce cas l'envoie du fac se ferait à d1,d1,d2,d1,d2,d3,d1,d2,d3,d4,...

Pourquoi, si c'est toujours le même message, ne pas le remplir, et mettre tous les destinataires avant de l'envoyer?

Bon courage,

pgz

[pc75]

Bonjour,

C'est normal que la connexion au serveur soit à l'intérieur de la boucle ?

[Pitou5464]

nan en effet c'est pas normal que la connexion au serveur soit dans la boucle.
Je pense que ce que tu dit est juste pgz.
Est ce que tu pourrai me donner un exemple de code pour voir comment tu ferai?
Je suis en train de regarder pour changer le code et d'appliquer ta soluce.Merci

Ce que je ne comprend pas c'est que le varItem est incrémenté apres chaque boucle, donc il devrait incorporé le destinataire correspondant a varItem, non?

[Pitou5464]

En fait, j'ai appliquer la réponse de pgz et ça marche.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Dim path As String
path = FindFax("c:\")
Dim pathcov As String
pathcov = FindCov("C:\Documents and Settings\All Users\Application Data\Microsoft\Windows NT\MSFax\Common Coverpages\")
Dim varItem As Integer
 
 
Dim objFaxServer As New FAXCOMEXLib.FaxServer
Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
Dim objSender As FaxSender
Dim JobID As Variant
 
 
 
 
'Connect to the fax server
objFaxServer.Connect ""
 
'Set the fax body
objFaxDocument.Body = path
 
'Name the document
objFaxDocument.DocumentName = "Fax Atlantique"
 
'Add the recipient with the fax number 12225550100
For varItem = 0 To Me.ListeFax.ListCount - 1
objFaxDocument.Recipients.Add "'" & Me.ListeFax.ItemData(varItem) & "'", ""
Next varItem
 
'Choose to attach the fax to the fax receipt
objFaxDocument.AttachFaxToReceipt = True
 
'Set the cover page type and the path to the cover page
objFaxDocument.CoverPageType = fcptLOCAL
objFaxDocument.CoverPage = pathcov
 
objFaxDocument.NOTE = "Salut"
 
'Set the sender properties.
objFaxDocument.Sender.Title = "Mr."
objFaxDocument.Sender.Name = "Jean-Pierre"
 
'Save sender information as default
objFaxDocument.Sender.SaveDefaultSender
 
'Submit the document to the connected fax server
'and get back the job ID.
 
JobID = objFaxDocument.ConnectedSubmit(objFaxServer)
 
End Sub