Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Outlook Imprimer le fichier joint d'un mail

Imprimer le fichier joint d'un mail

32 réponses
Avatar
Franck Serpico
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3 4
Avatar
Isabelle Prawitz
Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement ça, y
a-t-il


"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en haut à
gauche.


Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre principale, et
tu




y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et dans la
liste




(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object Library
(où X




correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans un
dossier,






et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter pour le
dossier de




stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance






























Avatar
Franck
Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement ça, y
a-t-il


"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en haut à
gauche.


Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre principale, et
tu




y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et dans la
liste




(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object Library
(où X




correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans un
dossier,






et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter pour le
dossier de




stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance



































Avatar
Franck
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement ça, y
a-t-il


"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en haut à
gauche.


Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre principale, et
tu




y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et dans la
liste




(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object Library
(où X




correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans un
dossier,






et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter pour le
dossier de




stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance





































Avatar
Isabelle Prawitz
Bonjour !
Non, pas besoin de règle.
Par contre, il faut que la sécurité permette les macros. Va dans Outils/Macro/Sécurité... et mets-la à "moyen".
Relance Outlook.
Si ça bloque encore, il faut que ton projet de session Outlook soit certifié.
As-tu déjà créé un certificat électronique (ou signature numérique) pour tes projets VBA ?
A+
Isa

"Franck" a écrit dans le message de
news:
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement ça,
y





a-t-il
"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en
haut à







gauche.
Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, et







tu
y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et dans
la







liste
(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object
Library







(où X
correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans un
dossier,






et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter pour
le









dossier de
stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance







































Avatar
Franck
Ca yest j'ai mis le niveau moyen et le certificat numerique a l'ouverture de
outlook il m'a demande pour le certificat et je lui est cocher qu'il pouvait
avoir confiance.
Mais toujours rien.

Je n'insisterais jamais assez mais merci de ton aide


Bonjour !
Non, pas besoin de règle.
Par contre, il faut que la sécurité permette les macros. Va dans Outils/Macro/Sécurité... et mets-la à "moyen".
Relance Outlook.
Si ça bloque encore, il faut que ton projet de session Outlook soit certifié.
As-tu déjà créé un certificat électronique (ou signature numérique) pour tes projets VBA ?
A+
Isa

"Franck" a écrit dans le message de
news:
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement ça,
y





a-t-il
"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en
haut à







gauche.
Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, et







tu
y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et dans
la







liste
(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object
Library







(où X
correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans un
dossier,






et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter pour
le









dossier de
stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance












































Avatar
Franck
Par contre il mets ceci : "Ce certificat racine de l'Autorité de
certification n'est pas de confiance car il ne fait pas partie du magasin
d'autorités de certification de racine de confiance."

au niveau du certificat dans l'onglet "CHEMIN D'ACCES DE CERTIFICATION"


Bonjour !
Non, pas besoin de règle.
Par contre, il faut que la sécurité permette les macros. Va dans Outils/Macro/Sécurité... et mets-la à "moyen".
Relance Outlook.
Si ça bloque encore, il faut que ton projet de session Outlook soit certifié.
As-tu déjà créé un certificat électronique (ou signature numérique) pour tes projets VBA ?
A+
Isa

"Franck" a écrit dans le message de
news:
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement ça,
y





a-t-il
"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en
haut à







gauche.
Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, et







tu
y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et dans
la







liste
(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object
Library







(où X
correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans un
dossier,






et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter pour
le









dossier de
stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance












































Avatar
Isabelle Prawitz
Va en environnement Visual Basic (Alt+F11), et dans le menu Outils/Signature électronique... choisis ton certificat
numérique. Valide et ressaie.
Autre question, as-tu un anti-virus qui te bloquerait tes macros ? J'ai dû changer les paramètres du mien pour qu'il me
laisse le choix !
Isa

"Franck" a écrit dans le message de
news:
Ca yest j'ai mis le niveau moyen et le certificat numerique a l'ouverture de
outlook il m'a demande pour le certificat et je lui est cocher qu'il pouvait
avoir confiance.
Mais toujours rien.

Je n'insisterais jamais assez mais merci de ton aide


Bonjour !
Non, pas besoin de règle.
Par contre, il faut que la sécurité permette les macros. Va dans Outils/Macro/Sécurité... et mets-la à "moyen".
Relance Outlook.
Si ça bloque encore, il faut que ton projet de session Outlook soit certifié.
As-tu déjà créé un certificat électronique (ou signature numérique) pour tes projets VBA ?
A+
Isa

"Franck" a écrit dans le message de
news:
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement
ça,







y
a-t-il
"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en
haut à







gauche.
Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, et







tu
y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et
dans









la
liste
(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object
Library







(où X
correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans
un











dossier,
et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter
pour











le
dossier de
stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance














































Avatar
Isabelle Prawitz
Comment as-tu fait ton certificat ? Par Démarrer/Tous les programmes/Microsoft Office/Outils Microsoft Office/Certificat
numérique pour les projets VBA ?
Isa

"Franck" a écrit dans le message de
news:
Par contre il mets ceci : "Ce certificat racine de l'Autorité de
certification n'est pas de confiance car il ne fait pas partie du magasin
d'autorités de certification de racine de confiance."

au niveau du certificat dans l'onglet "CHEMIN D'ACCES DE CERTIFICATION"


Bonjour !
Non, pas besoin de règle.
Par contre, il faut que la sécurité permette les macros. Va dans Outils/Macro/Sécurité... et mets-la à "moyen".
Relance Outlook.
Si ça bloque encore, il faut que ton projet de session Outlook soit certifié.
As-tu déjà créé un certificat électronique (ou signature numérique) pour tes projets VBA ?
A+
Isa

"Franck" a écrit dans le message de
news:
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement
ça,







y
a-t-il
"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en
haut à







gauche.
Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, et







tu
y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et
dans









la
liste
(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object
Library







(où X
correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans
un











dossier,
et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter
pour











le
dossier de
stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance














































Avatar
Franck
Mon antivirus est Kapersky et je ne trouve rien qui bloque les macro apparement
Et j'ai Windows XP SP2 avec son firewall.

Peut tu me faire faire une petite macro que tu es sur qui marche pour voir
pour faire un test si cela vient de la macro ou de l'ordi qui bloque.

Est ce une bonne idee???


Va en environnement Visual Basic (Alt+F11), et dans le menu Outils/Signature électronique... choisis ton certificat
numérique. Valide et ressaie.
Autre question, as-tu un anti-virus qui te bloquerait tes macros ? J'ai dû changer les paramètres du mien pour qu'il me
laisse le choix !
Isa

"Franck" a écrit dans le message de
news:
Ca yest j'ai mis le niveau moyen et le certificat numerique a l'ouverture de
outlook il m'a demande pour le certificat et je lui est cocher qu'il pouvait
avoir confiance.
Mais toujours rien.

Je n'insisterais jamais assez mais merci de ton aide


Bonjour !
Non, pas besoin de règle.
Par contre, il faut que la sécurité permette les macros. Va dans Outils/Macro/Sécurité... et mets-la à "moyen".
Relance Outlook.
Si ça bloque encore, il faut que ton projet de session Outlook soit certifié.
As-tu déjà créé un certificat électronique (ou signature numérique) pour tes projets VBA ?
A+
Isa

"Franck" a écrit dans le message de
news:
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas exactement
ça,







y
a-t-il
"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet normalement en
haut à







gauche.
Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, et







tu
y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application, et
dans









la
liste
(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de message.
Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0 Object
Library







(où X
correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans
un











dossier,
et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à adapter
pour











le
dossier de
stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance



















































Avatar
Isabelle Prawitz
Moi aussi c'est Kaspersky ! Quelle version ? Pro ?
Voici une petite macro qui donne le chemin du dossier courant, pour tester !


Sub NomDoss()
Dim leDoss As MAPIFolder
Dim monExp As Explorer

Set monExp = ActiveExplorer
Set leDoss = monExp.CurrentFolder
MsgBox leDoss.FolderPath
End Sub

Isa
"Franck" a écrit dans le message de
news:
Mon antivirus est Kapersky et je ne trouve rien qui bloque les macro apparement
Et j'ai Windows XP SP2 avec son firewall.

Peut tu me faire faire une petite macro que tu es sur qui marche pour voir
pour faire un test si cela vient de la macro ou de l'ordi qui bloque.

Est ce une bonne idee???


Va en environnement Visual Basic (Alt+F11), et dans le menu Outils/Signature électronique... choisis ton certificat
numérique. Valide et ressaie.
Autre question, as-tu un anti-virus qui te bloquerait tes macros ? J'ai dû changer les paramètres du mien pour qu'il me
laisse le choix !
Isa

"Franck" a écrit dans le message de
news:
Ca yest j'ai mis le niveau moyen et le certificat numerique a l'ouverture de
outlook il m'a demande pour le certificat et je lui est cocher qu'il pouvait
avoir confiance.
Mais toujours rien.

Je n'insisterais jamais assez mais merci de ton aide


Bonjour !
Non, pas besoin de règle.
Par contre, il faut que la sécurité permette les macros. Va dans Outils/Macro/Sécurité... et mets-la à "moyen".
Relance Outlook.
Si ça bloque encore, il faut que ton projet de session Outlook soit certifié.
As-tu déjà créé un certificat électronique (ou signature numérique) pour tes projets VBA ?
A+
Isa

"Franck" a écrit dans le message de
news:
Par contre il faudrait que je creer une regle non?
Si oui il n'y a pas executer une macro ou autre
J'ai trouver juste srcipt mais il n'y pas la macro

En tous les cas encore merci de ton aide car la je suis vraiment perdu




Le probleme est que j'ai voulu executer la marco depuis VBA mais il est me
dit "les macros de ce projet sont desactiver"
Donc j'ai beau chercher dans les aides et rien n'y fait.
Est ce normale


Essaie avec une ligne en plus :

MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.Application.Activate ' **** la ligne à rajouter
MonDoc.PrintOut

A+
Isa

"Franck" a écrit dans le message de
news:
Oui effectivement je l'avais adapter, car c'est "Demande d' Enquête"
Non il ny' a pas "RE:"
Alors je ne comprend pas.


Bonjour !
Oui, je l'ai testé !
Vérifie le sujet du mail à gérer, j'ai mis en code "Demande d'enquete", mais ça n'est peut-être pas
exactement









ça,
y
a-t-il
"RE:" devant ?
Le code est à adapter !
A+
Isa

"Franck" a écrit dans le message de
news:
Merci pour tout Isabelle,

Mais malheureusment cela ne marche pas je recois le mail mais rien ne se
passe, j'ai bien cree sous C: le dossier PIECES JOINTES et tous ce que tu
m'as dit j'ai verifie plusieurs fois et cela ne marche pas.

L'as tu essaye?


Voici le code, avec un peu de retard (pb de boulot !).
Pour accéder au code de session Outlook, tu tapes Alt+F11, ou Outils/Macro/Visual Basic Editor.
Tu ouvres l'arborescence Projet1/Microsoft Office Outlook Objets, de l'explorateur de projet
normalement en











haut à
gauche.
Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, et







tu
y
colles le code de ImpressionPJ ci-dessous :

' code de macro qui imprime les pièces jointes compatibles Word
Sub ImpressionPJ()
Dim leMess As MailItem
Dim LItem As Object
Dim LaSelection As Selection
Dim MonEsp As NameSpace
Dim monExp As Explorer
Dim i As Integer
Dim leDoss As String
Dim DossBal As MAPIFolder
Dim intRep As Integer
Dim MonDoc As Word.Document
Dim AppWord As Word.Application


leDoss = "C:Pieces jointes" ' dossier à créer avec le nom voulu
Set MonEsp = Session
Set DossBal = MonEsp.GetDefaultFolder(olFolderInbox)
For Each LItem In DossBal.Items
' Subject à mettre comme il faut
If TypeName(LItem) = "MailItem" And LItem.Subject = "Demande d'enquete" Then
Set leMess = LItem
If leMess.Attachments.Count > 0 Then
For i = 1 To leMess.Attachments.Count
Dim strNomFic As String
strNomFic = leDoss & leMess.Attachments.Item(i).FileName
leMess.Attachments.Item(i).SaveAsFile strNomFic
Set MonDoc = GetObject(strNomFic)
MonDoc.Application.Visible = True
MonDoc.Application.WindowState = wdWindowStateMinimize
MonDoc.PrintOut
Set AppWord = MonDoc.Application
MonDoc.Close False
Set MonDoc = Nothing
Next
End If
End If
If Not AppWord Is Nothing Then
AppWord.Quit
End If
Next
End Sub

'fin de macro


Ensuite, dans la liste déroulante(Général) en haut de ta fenêtre de code tu sélectionnes Application,
et











dans
la
liste
(Déclarations) tu sélectionnes NewMail.
Ca va te générer la procédure évènementielle Application_NewMail, qui réagit à chaque arrivée de
message.











Tu y inscris:
ImpressionPJ
Tu dois donc obtenir :

Private Sub Application_NewMail()
ImpressionPJ
End Sub

Dernière chose, la référence à Word : dans le menu Outils/Références, tu cherches Microsoft Word X.0
Object











Library
(où X
correspond au n° de version, 11 pour 2003, 10 pour XP) et tu coches la case.
Enfin tu enregistres le projet Outlook par le bouton Enregistrer ou Fichier/Enregistrer VbaProject.OTM
Voilà !
Si ça coince, demande !
A+
Isa


"Franck" a écrit dans le message de
news:
Cela serait vraiment super. Je me doutais qu'ilm fallait passer par une macro
mais visual basic cela me dapasse grave.
Merci encore Isabelle de me fopurnir le fichier
Si tu veux mon adresse mail c

Vraiment merci
franck


La méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages
dans













un
dossier,
et
qui
imprime les fichiers en question à l'aide de Word en masqué.
Si ça te convient, je te mets le code à intégrer au code d'évènement Application_NewMail, et à
adapter













pour
le
dossier de
stockage et le sujet de messages à traiter (Demande d'enquete).
A+
Isa

"Franck" a écrit dans le message de
news:
Merci de la rapifdite de vos reponse
Merci quand meme de ton aide circe mais avec la regle cela imprime que le
mail pas la piece jointe.

Alors je dispose de outlook2003 et ce sont des fichiers rtf qui s'ouvre sous
word.
Si tu peux m'aider Isabelle cela serait super car j'ai beau cherche mais le
mieux que j'ai trouver dans les faq c'etait de cliquer avec le bouton droit
de la souris et faire imprime
et en fait c'est ce que je fais tout le temps.
Donc rien de bien neuf.

Merci d'avance



Bonjour !
Quel est le type du fichier joint, Word, message, Excel ?
A+
Isa

"Franck Serpico" <Franck a écrit dans le message de
news:
Bonjour,

J'ai un client qui m'envoyer des mail avec comme OBJET "Demande d'enquete"
Et je voudrais imprimer le fichier joint des que je recois ces mails avec ces
objet au lieu de le faire manuellement.
Mais Comment?
Merci d'avance





















































1 2 3 4