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 perduLe 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 normaleEssaie 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,ya-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, ettuycolles 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
danslaliste(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ù Xcorrespond 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
franckLa méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans
undossier,etquiimprime 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
pourledossier destockage 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'avanceBonjour !
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
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:2E6BCC4B-CE3E-4FE3-8893-352C69249054@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:3001B8C0-0A19-4316-A338-CDFF72A8AD97@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:2413EF69-4A3F-4250-ABD3-D91D1AE116B1@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:2900B2F3-3EDB-4CF1-B03F-6E38A858847F@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:7C45DC5D-EEDF-4DA1-8EA4-0164CF5620FD@microsoft.com...
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 franckserpico@hotmail.fr
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:DB9B34A5-56E9-48EB-B393-ACA743F0B888@microsoft.com...
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 Serpico@discussions.microsoft.com> a écrit dans le message de
news:890AAC65-DF33-4A96-A069-BD56790D94A0@microsoft.com...
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
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 perduLe 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 normaleEssaie 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,ya-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, ettuycolles 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
danslaliste(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ù Xcorrespond 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
franckLa méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages dans
undossier,etquiimprime 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
pourledossier destockage 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'avanceBonjour !
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
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???
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???
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???
Bonjoir(c) Franck
l'AV en question n'a t'il pas une option nommé "plugin pour office" ou
qqchose dans ce gout la ?
PS : pensez à élaguer un peu le bas du message, vos echanges deviennent
long à télécharger pour ceux qui sont encore en RTC
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Le 10/02/2005 11:35 vous avez écrit ceci :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???
Bonjoir(c) Franck
l'AV en question n'a t'il pas une option nommé "plugin pour office" ou
qqchose dans ce gout la ?
PS : pensez à élaguer un peu le bas du message, vos echanges deviennent
long à télécharger pour ceux qui sont encore en RTC
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Le 10/02/2005 11:35 vous avez écrit ceci :
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???
Bonjoir(c) Franck
l'AV en question n'a t'il pas une option nommé "plugin pour office" ou
qqchose dans ce gout la ?
PS : pensez à élaguer un peu le bas du message, vos echanges deviennent
long à télécharger pour ceux qui sont encore en RTC
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Le 10/02/2005 11:35 vous avez écrit ceci :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???
OUi exactement j'ai rentre un nom et j'ai clique sur OK.
Par contre il me demande d'installer lez certificat dans le magasin autorite
de certification de la racine de confiance.
Ou trouver ce magason autorite????
OUi exactement j'ai rentre un nom et j'ai clique sur OK.
Par contre il me demande d'installer lez certificat dans le magasin autorite
de certification de la racine de confiance.
Ou trouver ce magason autorite????
OUi exactement j'ai rentre un nom et j'ai clique sur OK.
Par contre il me demande d'installer lez certificat dans le magasin autorite
de certification de la racine de confiance.
Ou trouver ce magason autorite????
Donc, même si pas publié, ça marche en local !
Je soupçonne plutôt Kaspersky, pour le GetObject !
Donne ta version !
Isa
Donc, même si pas publié, ça marche en local !
Je soupçonne plutôt Kaspersky, pour le GetObject !
Donne ta version !
Isa
Donc, même si pas publié, ça marche en local !
Je soupçonne plutôt Kaspersky, pour le GetObject !
Donne ta version !
Isa
c'est la version 5.0.121Donc, même si pas publié, ça marche en local !
Je soupçonne plutôt Kaspersky, pour le GetObject !
Donne ta version !
Isa
c'est la version 5.0.121
Donc, même si pas publié, ça marche en local !
Je soupçonne plutôt Kaspersky, pour le GetObject !
Donne ta version !
Isa
c'est la version 5.0.121Donc, même si pas publié, ça marche en local !
Je soupçonne plutôt Kaspersky, pour le GetObject !
Donne ta version !
Isa
PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
Bonjoir(c) Isabelle Prawitz
Le 10/02/2005 12:25 vous avez écrit ceci :PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
No sou saye ;-) j'engueulais personne ;-)))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Bonjoir(c) Isabelle Prawitz
Le 10/02/2005 12:25 vous avez écrit ceci :
PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
No sou saye ;-) j'engueulais personne ;-)))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Bonjoir(c) Isabelle Prawitz
Le 10/02/2005 12:25 vous avez écrit ceci :PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
No sou saye ;-) j'engueulais personne ;-)))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Bonjour,
alors j'ai mis ajour kapersky et bien rien de nouveau cela ne marche
toujours pas.
Tu crois que l'on peut pas essayer une petite macro toute simple style
imprimer la mail recu pour voir si cela vient de la macro ou de la
configuration outlook ou l'ordi?Bonjoir(c) Isabelle Prawitz
Le 10/02/2005 12:25 vous avez écrit ceci :PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
No sou saye ;-) j'engueulais personne ;-)))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Bonjour,
alors j'ai mis ajour kapersky et bien rien de nouveau cela ne marche
toujours pas.
Tu crois que l'on peut pas essayer une petite macro toute simple style
imprimer la mail recu pour voir si cela vient de la macro ou de la
configuration outlook ou l'ordi?
Bonjoir(c) Isabelle Prawitz
Le 10/02/2005 12:25 vous avez écrit ceci :
PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
No sou saye ;-) j'engueulais personne ;-)))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
Bonjour,
alors j'ai mis ajour kapersky et bien rien de nouveau cela ne marche
toujours pas.
Tu crois que l'on peut pas essayer une petite macro toute simple style
imprimer la mail recu pour voir si cela vient de la macro ou de la
configuration outlook ou l'ordi?Bonjoir(c) Isabelle Prawitz
Le 10/02/2005 12:25 vous avez écrit ceci :PS pour JièL : Oups, désolée ! J'ai fait le ménage !!!
No sou saye ;-) j'engueulais personne ;-)))))))
--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/
New ----->>>>> "Maîtriser Office 2003" <<<<<----- New
http://faq.outlook.free.fr/eska/maitriser_office_2003.htm
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 aideBonjour !
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 perduLe 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 normaleEssaie 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,ya-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 enhaut àgauche.Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, ettuycolles 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,
etdanslaliste(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
ObjectLibrary(où Xcorrespond 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
franckLa méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages
dansundossier,etquiimprime 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 à
adapterpourledossier destockage 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'avanceBonjour !
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
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:E7C2801D-B047-4A42-9E39-EA1AF9BC378B@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:0642A9DE-7989-4823-A5AF-4E66B6679916@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:3001B8C0-0A19-4316-A338-CDFF72A8AD97@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:2413EF69-4A3F-4250-ABD3-D91D1AE116B1@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:2900B2F3-3EDB-4CF1-B03F-6E38A858847F@microsoft.com...
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:7C45DC5D-EEDF-4DA1-8EA4-0164CF5620FD@microsoft.com...
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 franckserpico@hotmail.fr
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" <Franck@discussions.microsoft.com> a écrit dans le message de
news:DB9B34A5-56E9-48EB-B393-ACA743F0B888@microsoft.com...
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 Serpico@discussions.microsoft.com> a écrit dans le message de
news:890AAC65-DF33-4A96-A069-BD56790D94A0@microsoft.com...
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
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 aideBonjour !
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 perduLe 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 normaleEssaie 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,ya-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 enhaut àgauche.Tu fais un double-clic sur ThisOutlookSession pour afficher le code de session Outlook dans la fenêtre
principale, ettuycolles 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,
etdanslaliste(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
ObjectLibrary(où Xcorrespond 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
franckLa méthode que je peux te proposer est une macro qui enregistre les pièces jointes de ces messages
dansundossier,etquiimprime 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 à
adapterpourledossier destockage 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'avanceBonjour !
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
