Bonjour ,j'ai un petit soucis avec ma macro . Je l'ai testé manuellement ,et elle marche bien . Je voudrais simplement qu'elle s'éxecute lorsque je recois un mail. Pour l'instant ,rien ne se passe quand je recois le mail. Si quelqu'un pouvait y jeter un oeil et me dire ce qu'il ne va pas.
Pour cette macro ,elle est placée en module1
je passe un peu mon code ,car ce n'est pas l'objet de la question.
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 SaveAttachmentsToFolder_ItemAdd(ByVal Item As Object) On Error GoTo SaveAttachmentsToFolder_err ' Declare variables Dim ns As NameSpace Dim Inbox As MAPIFolder Dim Subfolder As MAPIFolder Dim Atmt As Attachment Dim FileName As String Dim i As Integer Dim varResponse As VbMsgBoxResult Set ns = GetNamespace("MAPI") Set Inbox = ns.Folders("Boîte aux lettres - LFP-Gestion_Club") Set Subfolder = Inbox.Folders("Boîte de réception") ' Enter correct subfolder name. i = 0
Ensuite je pensais le lancer au démarrage d'outlook avec ca dans ThisoutlookSession.
Quelqu'un aurait l'amabilité de m'aider svp?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Private Sub Application_Startup() module1.SaveAttachmentsToFolder_ItemAdd End Sub
Merci
Partager