Outlook Action Automatique
Résolu
Razaii
Messages postés
85
Date d'inscription
Statut
Membre
Dernière intervention
-
Razaii Messages postés 85 Date d'inscription Statut Membre Dernière intervention -
Razaii Messages postés 85 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
j'utilise Outlook 2010 pour un usage professionnel.
L'objectif est de crée une action automatique. (Règle)
Exemple : Je reçois chaque jour un E-Mail de *Pierre suivit d'une pièce jointe.
Je souhaite donc imprimer automatiquement 2x la pièce jointe de l'E-mail de Pierre lors de la réception de celui-ci.
Pour l'instant je n'arrive qu'à imprimer le tout (pièces jointe 1x+ E-mail 1x)
Tout idée est la bienvenue.
Bonne soirée et Merci d'avance.
j'utilise Outlook 2010 pour un usage professionnel.
L'objectif est de crée une action automatique. (Règle)
Exemple : Je reçois chaque jour un E-Mail de *Pierre suivit d'une pièce jointe.
Je souhaite donc imprimer automatiquement 2x la pièce jointe de l'E-mail de Pierre lors de la réception de celui-ci.
Pour l'instant je n'arrive qu'à imprimer le tout (pièces jointe 1x+ E-mail 1x)
Tout idée est la bienvenue.
Bonne soirée et Merci d'avance.
A voir également:
- Impression automatique pièce jointe mail
- Spouleur d'impression - Guide
- Réponse automatique thunderbird - Guide
- Impression livret a5 - Guide
- Pièce d'identité - Accueil - Services publics
- 1 pièce jointe - Guide
7 réponses
Salut le forum
Jete un oeil au lien suivant :
Comment imprimer une pièce jointe lors de l'arrivée d'un mail ?
Mytå
Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]
Jete un oeil au lien suivant :
Comment imprimer une pièce jointe lors de l'arrivée d'un mail ?
Mytå
Quelle prétention de prétendre que l'informatique est récente
Adam et Eve avaient déjà un Apple ! [MsProject 2003(FR), Excel 2003-2007(FR)]
Merci, Mytå.
Le lien que tu nous as aimablement indiqué stipule bien que "Toutes les applications Office 2010 utilisent le Ruban. Celui-ci contient plusieurs onglets, dont l'un nommé Développeur à partir duquel vous pouvez accéder à Visual Basic Editor et d'autres outils de développement. Office 2010 n'affichant pas l'onglet Développeur par défaut, vous devez l'activer en appliquant la procédure suivante : ..."
Il n'est pas étonnant que, si on n'est pas utilisateur habituel des macros, on puisse penser qu'Outlook n'en dispose pas ...
D'autant que je n'ai jamais vu, depuis 2007 où je me suis inscrit à CCM, une seule discussion impliquant les macros d'Outlook !
Le lien que tu nous as aimablement indiqué stipule bien que "Toutes les applications Office 2010 utilisent le Ruban. Celui-ci contient plusieurs onglets, dont l'un nommé Développeur à partir duquel vous pouvez accéder à Visual Basic Editor et d'autres outils de développement. Office 2010 n'affichant pas l'onglet Développeur par défaut, vous devez l'activer en appliquant la procédure suivante : ..."
Il n'est pas étonnant que, si on n'est pas utilisateur habituel des macros, on puisse penser qu'Outlook n'en dispose pas ...
D'autant que je n'ai jamais vu, depuis 2007 où je me suis inscrit à CCM, une seule discussion impliquant les macros d'Outlook !
salut
la 2e macro : Sub test_script ne sert qu'à tester la 1ère,
il faut qu'un mail (donc venant de Pierre) qui correspond à ta règle soit déjà ouvert et tu lances cette 2e macro
de plus dans la macro 1 à mon avis il faut répéter une 2e fois la dernière ligne : ShellExecute 0, "print", fichier(1).FileName, "", Repertoire, 0
pour avoir 2 impression de ta PJ
on te laisse tester
sans VBA :
clic droit sur la PJ / impression rapide
refaire la même chose pour la 2e impression
:-)
(_Usul d'Arrakis
Serial_Dreamer_)
la 2e macro : Sub test_script ne sert qu'à tester la 1ère,
il faut qu'un mail (donc venant de Pierre) qui correspond à ta règle soit déjà ouvert et tu lances cette 2e macro
de plus dans la macro 1 à mon avis il faut répéter une 2e fois la dernière ligne : ShellExecute 0, "print", fichier(1).FileName, "", Repertoire, 0
pour avoir 2 impression de ta PJ
on te laisse tester
sans VBA :
clic droit sur la PJ / impression rapide
refaire la même chose pour la 2e impression
:-)
(_Usul d'Arrakis
Serial_Dreamer_)
Hélas, à ma connaissance il n'y a pas de macro dans Outlook ...
Salut Raymond et le Forum
Outlook 2010 possède bien des macros : Mise en route avec VBA dans Outlook 2010
Mytå
Outlook 2010 possède bien des macros : Mise en route avec VBA dans Outlook 2010
Mytå
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Oui très peu de discution traite ce sujet...
Ce qui est bien dommage, car la maîtrise des Macros sur outlook serait un grand avantage.
Si quelqu'un aurait une idée sur le coeur de la macro, je suis preneur.
Merci de vos réponse déjà.
Bonne journée !
Ce qui est bien dommage, car la maîtrise des Macros sur outlook serait un grand avantage.
Si quelqu'un aurait une idée sur le coeur de la macro, je suis preneur.
Merci de vos réponse déjà.
Bonne journée !
Sur le site il parle d'une macro en Scripte sous module 1 du projet.
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub script(MyMail As MailItem)
Set fichier = MyMail.Attachments
Repertoire = "C:\temp\"
fichier(1).SaveAsFile Repertoire & fichier(1).FileName
ShellExecute 0, "print", fichier(1).FileName, "", Repertoire, 0
End Sub
Puis d'une seconde sous module 2 je pense.
Sub test_script()
Dim Oitem As Outlook.MailItem
Set Oitem = ActiveInspector.CurrentItem
script Oitem
End Sub
Mais cela ne fonctionne pas...
Il me dis que "Set Oitem = ActiveInspector.CurrentItem"
est non valide.
Je ne cherche pas à gagner ma vie, je l'ai déjà. (Boris Vian )
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub script(MyMail As MailItem)
Set fichier = MyMail.Attachments
Repertoire = "C:\temp\"
fichier(1).SaveAsFile Repertoire & fichier(1).FileName
ShellExecute 0, "print", fichier(1).FileName, "", Repertoire, 0
End Sub
Puis d'une seconde sous module 2 je pense.
Sub test_script()
Dim Oitem As Outlook.MailItem
Set Oitem = ActiveInspector.CurrentItem
script Oitem
End Sub
Mais cela ne fonctionne pas...
Il me dis que "Set Oitem = ActiveInspector.CurrentItem"
est non valide.
Je ne cherche pas à gagner ma vie, je l'ai déjà. (Boris Vian )
Merci pour la correction de la macro =)
Je vais essayer quand je rentre de vacance.
Pour l'instant j'utilisais toujours le Clique Droit ==> Impression Rapide.
Mais 30x par jour c'est un peu beaucoup =).
La 2ème macro étant destinée à tester la 1ère, ne fonctionnait pas apparemment.
Bonne journée et Merci !
Je vais essayer quand je rentre de vacance.
Pour l'instant j'utilisais toujours le Clique Droit ==> Impression Rapide.
Mais 30x par jour c'est un peu beaucoup =).
La 2ème macro étant destinée à tester la 1ère, ne fonctionnait pas apparemment.
Bonne journée et Merci !
