OVH Cloud OVH Cloud

PDFCreator et sauvegarde

4 réponses
Avatar
ORDINO
Je veux utiliser PDFCreator pour envoyer mes bons d'achat=20
(=E9tat) par courriel avec le moins d'intervention possible=20
de l'utilisateur.

PDFCreator envoie des messages de sauvegarde et donne le=20
choix du fichier de sauvegarde.
Est-il possible

*Soit de sauvegarder le fichier .pdf produit avec un=20
suffixe (no de bon ou date compl=E8te )sans recevoir de=20
message. Dans ce cas j'enverrais le courriel avec CDO=20
avec le fichier .pdf en attachement.

*Soit PDFCreator =E9crase toujours le m=EAme fichier .pdf et=20
envoie le courriel avec le fichier en attach=E9. Dans ce=20
cas j'aimerais, par code, que les attributs=20
(A:,DE:,Sujet:et commentaire)soit automatiquement=20
transf=E9r=E9s =E0 Outlook.

*Soit toute autre fa=E7on qui demande le moins possible=20
l'intervention de l'utilisateur =E9tant donn=E9 que la base a=20
tout ces renseignements.

Toute aide sera tr=E8s appr=E9ci=E9.

ORDINO

4 réponses

Avatar
Sylvain Lafontaine
C'est un problème courant parmi tous les générateurs de PDF qui utilise le
pilote d'imprimante comme interface avec l'usager. À moins d'utiliser une
solution tarabiscotée, comme l'écriture du nom désiré dans la base de
registre juste avant l'appel au pilote d'impression, il n'y a pas vraiment
de solution simple à ce problème.

Je ne connais pas PDFCreator, n'ayant jamais eu la chance de l'installer.
Cependant, comme vous avez accès au code source, vous pourriez facilement
(peut-être ...) intégrer la solution ci-haut là-dedans. Sinon, vous en
serez quitte pour utiliser un autre générateur de fichier PDF.

S. L.

"ORDINO" wrote in message
news:405b01c4aadf$bb32e400$
Je veux utiliser PDFCreator pour envoyer mes bons d'achat
(état) par courriel avec le moins d'intervention possible
de l'utilisateur.

PDFCreator envoie des messages de sauvegarde et donne le
choix du fichier de sauvegarde.
Est-il possible

*Soit de sauvegarder le fichier .pdf produit avec un
suffixe (no de bon ou date complète )sans recevoir de
message. Dans ce cas j'enverrais le courriel avec CDO
avec le fichier .pdf en attachement.

*Soit PDFCreator écrase toujours le même fichier .pdf et
envoie le courriel avec le fichier en attaché. Dans ce
cas j'aimerais, par code, que les attributs
(A:,DE:,Sujet:et commentaire)soit automatiquement
transférés à Outlook.

*Soit toute autre façon qui demande le moins possible
l'intervention de l'utilisateur étant donné que la base a
tout ces renseignements.

Toute aide sera très apprécié.

ORDINO
Avatar
ORDINO
MERCI Sylvain
ORDINO
-----Message d'origine-----
C'est un problème courant parmi tous les générateurs de
PDF qui utilise le

pilote d'imprimante comme interface avec l'usager. À
moins d'utiliser une

solution tarabiscotée, comme l'écriture du nom désiré
dans la base de

registre juste avant l'appel au pilote d'impression, il
n'y a pas vraiment

de solution simple à ce problème.

Je ne connais pas PDFCreator, n'ayant jamais eu la
chance de l'installer.

Cependant, comme vous avez accès au code source, vous
pourriez facilement

(peut-être ...) intégrer la solution ci-haut là-dedans.
Sinon, vous en

serez quitte pour utiliser un autre générateur de
fichier PDF.


S. L.

"ORDINO" wrote in
message

news:405b01c4aadf$bb32e400$
Je veux utiliser PDFCreator pour envoyer mes bons d'achat
(état) par courriel avec le moins d'intervention possible
de l'utilisateur.

PDFCreator envoie des messages de sauvegarde et donne le
choix du fichier de sauvegarde.
Est-il possible

*Soit de sauvegarder le fichier .pdf produit avec un
suffixe (no de bon ou date complète )sans recevoir de
message. Dans ce cas j'enverrais le courriel avec CDO
avec le fichier .pdf en attachement.

*Soit PDFCreator écrase toujours le même fichier .pdf et
envoie le courriel avec le fichier en attaché. Dans ce
cas j'aimerais, par code, que les attributs
(A:,DE:,Sujet:et commentaire)soit automatiquement
transférés à Outlook.

*Soit toute autre façon qui demande le moins possible
l'intervention de l'utilisateur étant donné que la base a
tout ces renseignements.

Toute aide sera très apprécié.

ORDINO


.



Avatar
reno
bonjour j'utilise également pdfcreator avec le code
suivant pour le paramétrer avant l'impression pdf :

syntaxe : Call PDFCreatorSetUp(1, NomPDF,
CurrentProject.Path & "Tempenvoi")

où nompdf est le nom du fichier sans extention

aprés l'impression Call PDFCreatorSetUp(0) pour pouvoir
utiliser pdf creator normalement depuis d'utre appli



Public Sub PDFCreatorSetUp(valeur As Integer, Optional
Nom As String, Optional Fold As String)

Dim Wsh, WshSystem, fso, fileTxt, rep
Dim MesDocuments, Wchemin As String
Dim Wlignes()
Dim ix1 As Integer
Const ForReading = 1, ForWriting = 2, ForAppending = 8

If Not IsNumeric(valeur) Or (valeur <> 0 And valeur
<> 1) Then Exit Sub

Set Wsh = CreateObject("WScript.Shell")
Set WshSystem = Wsh.Environment("SYSTEM")

MesDocuments = Wsh.SpecialFolders("MyDocuments")

Set WshSystem = Nothing
Set Wsh = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.folderexists(MesDocuments)) Then
Set fso = Nothing
Exit Sub
End If

Set rep = fso.GetFolder(fso.GetParentFolderName
(MesDocuments))
Wchemin = rep & "Application
DataPDFCreatorPDFCreator.ini"

If Not (fso.FileExists(Wchemin)) Then
Set fso = Nothing
Exit Sub
End If

' -------------------------modifier les lignes
concernées--------------------------

ix1 = 0
ReDim Wlignes(1000)

Set fileTxt = fso.opentextfile(Wchemin, ForReading,
False)
Do While fileTxt.AtEndOfStream <> True
Wlignes(ix1) = fileTxt.ReadLine
If Left(Wlignes(ix1), 18) = "AutosaveDirectory="
Then
Wlignes(ix1) = "AutosaveDirectory=" & Fold
End If
If Left(Wlignes(ix1), 12) = "UseAutosave=" Then
Wlignes(ix1) = "UseAutosave=" & valeur
End If
If Left(Wlignes(ix1), 21)
= "UseAutosaveDirectory=" Then
Wlignes(ix1) = "UseAutosaveDirectory=" &
valeur
End If
If Left(Wlignes(ix1), 17) = "AutosaveFilename="
Then
Wlignes(ix1) = "AutosaveFilename=" & Nom
End If

ix1 = ix1 + 1
Loop
fileTxt.Close

ReDim Preserve Wlignes(ix1 - 1)
Set fileTxt = Nothing

Set fileTxt = fso.GetFile(Wchemin)
fso.deletefile (fileTxt)
Set fileTxt = Nothing

Set fileTxt = fso.opentextfile(Wchemin, ForWriting,
True)
For ix1 = 0 To UBound(Wlignes, 1)
fileTxt.WriteLine (Wlignes(ix1))
Next
fileTxt.Close

Set fileTxt = Nothing
Set fso = Nothing



End Sub
-----Message d'origine-----
Je veux utiliser PDFCreator pour envoyer mes bons
d'achat

(état) par courriel avec le moins d'intervention
possible

de l'utilisateur.

PDFCreator envoie des messages de sauvegarde et donne le
choix du fichier de sauvegarde.
Est-il possible

*Soit de sauvegarder le fichier .pdf produit avec un
suffixe (no de bon ou date complète )sans recevoir de
message. Dans ce cas j'enverrais le courriel avec CDO
avec le fichier .pdf en attachement.

*Soit PDFCreator écrase toujours le même fichier .pdf et
envoie le courriel avec le fichier en attaché. Dans ce
cas j'aimerais, par code, que les attributs
(A:,DE:,Sujet:et commentaire)soit automatiquement
transférés à Outlook.

*Soit toute autre façon qui demande le moins possible
l'intervention de l'utilisateur étant donné que la base
a

tout ces renseignements.

Toute aide sera très apprécié.

ORDINO

.



Avatar
reno
rebonjour,

par contre je recherche une possibilité de récupérer
l'état d'un envoi mail (surtout si une adresse est
érronée) envoi via CDO

Merci
-----Message d'origine-----
Je veux utiliser PDFCreator pour envoyer mes bons
d'achat

(état) par courriel avec le moins d'intervention
possible

de l'utilisateur.

PDFCreator envoie des messages de sauvegarde et donne le
choix du fichier de sauvegarde.
Est-il possible

*Soit de sauvegarder le fichier .pdf produit avec un
suffixe (no de bon ou date complète )sans recevoir de
message. Dans ce cas j'enverrais le courriel avec CDO
avec le fichier .pdf en attachement.

*Soit PDFCreator écrase toujours le même fichier .pdf et
envoie le courriel avec le fichier en attaché. Dans ce
cas j'aimerais, par code, que les attributs
(A:,DE:,Sujet:et commentaire)soit automatiquement
transférés à Outlook.

*Soit toute autre façon qui demande le moins possible
l'intervention de l'utilisateur étant donné que la base
a

tout ces renseignements.

Toute aide sera très apprécié.

ORDINO

.