Discussion :

[yanrcc]

Bonjour à tous,

Je suis en train de travailler sur un projet qui permet de pouvoir récupérer des pièces jointes envoyé sur ma boite mail Outlook et qui vient se copier sur mon serveur.

Ma macro fonctionne bien lorsque Outlook est ouvert.
Les différentes étapes de ma macro:

• Dès que je reçois un nouveau mail ma macro se lance
• Tester l'objet du mail
• Changer le status du mail en "lu"
• Déplacer le mail dans un dossier Outlook particulier
• Enregistrer la pièce jointe dans un dossier de mon serveur

Mon problème est qu'il faudrait que ma macro fonctionne lorsque Outlook est fermé. Il me semble que ce n'est pas possible à faire.

Du coup, je voulais créer une autre macro que je viendrais activer à chaque fois que je lance Outlook afin de pouvoir traiter les différentes pièces jointes des mails reçus.
J'ai une contrainte qui est que cette macro s’exécute de façon chronologique afin que si j'ai deux fois le même nom de pièce jointe, la plus récente reste sur le serveur.

Pour ce qui est de mon niveau VBA, je n'ai fait qu'apprendre via différent tutos/forum du coup mon niveau n'est pas top ...

J'aimerai savoir si vous pensez qu'il est judicieux de résoudre mon problème comme ça? Sinon si vous avez une autre solution pour mon problème, je suis preneur.


Merci d'avance,

Yan

[Jean-Philippe André]

Salut,

la macro qui se lance au demarrage d'Outlook est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Application_Startup()
 
End Sub

Attention toutefois, lors de l'ouverture, tes mails ne sont pas encore tous arrives

[Oliv-]

Bonjour,
Si ton comptes OUTLOOK est bien paramétré avec l'option "Utiliser le mode Exchange mis en cache" (en bas à droite cela doit être noté "Connecté à Microsoft Exchange")
Ta macro va être traité au fur et à mesure de la réception de Emails.

Par contre rien ne garanti qu'ils arrivent par ordre Chronologique d'envoi.

le mieux serait d'avoir un "variable public" où tu enregistres la date et tu la compare au suivant

[yanrcc]

Merci de vos réponses

Attention toutefois, lors de l'ouverture, tes mails ne sont pas encore tous arrives

D'accord, du coup il va falloir que j'utilise une variable comme me préconise Oliv-.
Je suis bien connecté à Microsoft Exchange pour info.

Du coup si vous êtes d'accord, il va falloir que je fasse deux boucles:

• une qui me permet de tester les différentes dates de réception des mails afin de pouvoir faire un ordre de traitement;
• une autre qui permet d'activer ma macro en fonction de l'ordre de traitement.

Çà à l'air facile à faire écrit comme ça si seulement

Une autre petite question, actuellement mon code se lance lors de la réception d'un nouveau Mail, pourquoi du coup lorsqu'on lance Outlook le code ne se lance pas alors que je reçois mes mails reçus pendant que Outlook était fermé. Ils ne sont pas considérés comme nouveaux mail reçus?

Yan.

[Oliv-]

Une autre petite question, actuellement mon code se lance lors de la réception d'un nouveau Mail, pourquoi du coup lorsqu'on lance Outlook le code ne se lance pas alors que je reçois mes mails reçus pendant que Outlook était fermé. Ils ne sont pas considérés comme nouveaux mail reçus?

Yan.

oui ca devrait !

tu devrais publier ton code qu'on y voit plus clair

[yanrcc]

Ci-joint mon code que j'ai mis dans ThisOutlookSession:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
    Dim MonApp As Outlook.Application
    Dim MonMail As Object
    Dim MonNameSpace As Outlook.NameSpace
    Dim MonDossier As Outlook.Folder
    Dim strAttachment As String
    Dim NbAttachments As Integer
    Dim body As String
    Dim chemin As String
    Dim i As Integer
 
 
    Set MonApp = Outlook.Application
    Set MonNameSpace = MonApp.GetNamespace("MAPI")
    Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
    Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
    Set XLapp = CreateObject("Excel.Application")
    numero = MonDossier.Items.Count
    Set MonMail = MonDossier.Items(numero)
    chemin = "C:\Users\yan\Desktop\DONNEES\"
 
 
    If MonMail.Subject = "donnees_test" Then
        MonMail.UnRead = False
        MonMail.Move MonDossier.Folders("Donnees")
        NbAttachments = MonMail.Attachments.Count
        i = 1
                Do While i <= NbAttachments
                strAttachment = MonMail.Attachments.Item(i).FileName
                MonMail.Attachments.Item(i).SaveAsFile chemin & strAttachment
                i = i + 1
                Loop
 
    End If
 
 
End Sub

S'il te faut plus d'informations, n'hésites pas. Merci d'avance.

Yan

[Oliv-]

Bonjour,
Qu'est ce qui te fait penser que la macro ne se déclenche pas à l'ouverture ? rien n'est déplacé ?