Outlook Action Automatique

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)]

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 !

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_)

Hélas, à ma connaissance il n'y a pas de macro dans Outlook ...

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 !

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 )

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 !