Discussion :

[jj2s1]

Bonjour,

J'utilise Outlook avec plusieurs boites, une perso (utilisée par défaut) et 3 génériques.
Mon objectif est d'utiliser une macro qui permettra, dès lors qu'un mail arrivera dans une boite générique précise, de stocker les infos dans un fichier Excel et de répondre à l'expéditeur pour lui communiquer un numéro.

Pour le moment, j'en suis à l'étape de la détection de l'arrivée de mails avec la macro ci-dessous. Pour le moment je déclenche un MsgBox à la réception d'un mail sur l'une de mes 4 boites.
Comment faire pour que la macro scrute l'arrivée d'une boite générique précise ?

Cordialement,
JJ

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
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
 
'Déclaration des variables
Dim arrID() As String
Dim i, num_ticket As Integer
Dim ns_outlook As Outlook.NameSpace
Dim item_outlook As MailItem
Dim itm As Outlook.MailItem
Dim expediteur As String
Dim objet_email As String
Dim corps_mail As String
 
'En cas d'erreur on continue
On Error Resume Next
 
'On définit la session
Set ns_outlook = Application.Session
 
'On sépare le matricule de l'objet Outlook
arrID = Split(EntryIDCollection, ",")
 
 
'Boucle sur l'objet Outlook
For i = 0 To UBound(arrID)
 
'On identifie l'objet en cours
Set item_outlook = ns_outlook.GetItemFromID(arrID(i))
 
'On vérifie si c'est un email
If item_outlook.Class = olMail Then
 
    'On identifie l'email
    Set itm = item_outlook
 
    'On identifie certains objets du mail
    expediteur = itm.SenderName
    objet_mail = itm.Subject
    corps_mail = itm.Body
 
MsgBox (expediteur & " " & objet_mail)
 
End If
Next
 
'On réinitialise les variables
Set ns_outlook = Nothing
Set item_outlook = Nothing
Set itm = Nothing
 
 
End Sub

[jj2s1]

Bonjour ,
Personne n'a une petite idée pour m'aider à résoudre mon problème ?
Bonne journée