Bonjour à tous.
Mon problème peut paraître bête mais cela fait plusieurs heures que je recherche partout une solution et je n'en trouve pas.
J'espère donc pouvoir compter sur vous pour m'aiguiller.
J'ai construit une macro VBA Outlook qui vient lire les pièces-jointes et les enregistrer sur un emplacement spécifique. Jusque là, tout fonctionnait parfaitement, car je travaillais sur un lancement de ma macro via une règle à réception de mon message qui possédait un sujet particulier.
Mon code était le suivant :
A présent, je souhaiterai lancer cette macro manuellement. je sélectionne donc mon message préalablement reçu et je lance ma macro. Mon nouveau code est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Sub MacroGSER(MyItem As Outlook.MailItem) Dim myAttachments As Object Dim myOrt As String Dim i As Integer 'Boîte de dialogue simple pour le chemin de sauvegarde myOrt = "J:\Planning_indispo\Test\" Set myAttachments = MyItem.Attachments If myAttachments.Count > 0 Then 'Pour chaque pièce jointe, faire etc...
sauf qu'à l'exécution, la ligne "Set myAttachments = MyItem.Attachments" renvoit un message d'erreur d'exécution '91' : Variable objet ou variable de bloc With non définie.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Sub MacroGSER() Dim MyItem As Outlook.MailItem Dim myAttachments As Object Dim myOrt As String Dim i As Integer 'Boîte de dialogue simple pour le chemin de sauvegarde myOrt = "J:\Planning_indispo\Test\" Set myAttachments = MyItem.Attachments If myAttachments.Count > 0 Then 'Pour chaque pièce jointe, faire etc...
Comment dois-je donc rédiger mon nouveau code pour pouvoir le lancer manuellement et non pas avec une règle ?
Merci d'avance pour aide !
Amicalement,
hobbit3
Partager