Discussion :

[JulienNvr]

Bonjour,

Code :

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

1
2
3
Private Sub Application_NewMail()
    Macro
End Sub

Avec ce code ma macro se lance à la réception d'un mail dans mon dossier par défaut, comment faire pour changer ça et faire en sorte que ça soit à la réception d'un mail dans une autre boite aux lettres svp ?

Merci

[Golonne]

Salut,

L'évènement Application_NewMail ne s'applique qu'à ton Inbox. Il existe néanmoins des solutions en passant par l'évènement Items_ItemAdd

Dans ThisOutlookSession copie le code 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Dim WithEvents m_colInbox As Outlook.Items
 
Private Sub Application_Startup ()
 
Dim objNS As Outlook.NameSpace
Dim objNomBoite As Recipient
Dim objDossier As Outlook.MAPIFolder
 
Set objNS = objSession.GetNamespace("MAPI")
    Set objNomBoite = objNS.CreateRecipient("Le nom de la boîte")
        Set objDossier = Application.Session.GetSharedDefaultFolder(objNomBoite, olFolderInbox)
 
    Set m_colInbox = objDossier.Items
 
Set objNS = Nothing
Set objNomBoite = Nothing
Set objDossier=Nothing
End Sub
 
Private Sub m_colInbox_ItemAdd (ByVal Item as Object)
 
Dim objMsg as Outlook.MailItem
On Error Resume Next
    If Item.Class = olMail Then
        Set objMsg = Item
        Call Macro 'Nom de ta macro
    End If
Set objMsg = Nothing
End Sub

Cependant si tu reçois plus de 16 mails en même temps tu risques d'en rater car l'évènement risque de ne pas se déclencher.

Cordialement,

Guillaume.

[JulienNvr]

Bonjour merci beaucoup pour ta réponse, je venais tout juste de tomber sur une solution proposant l'utilisation de "MAPIFolder.Items.ItemAdd" mais sans avoir la moindre idée de comment l'utiliser.

Je n'ai pas tout suivi dans ta macro en particulier dans la première partie, ce que tu lances à l'ouverture d'outlook:

Code :

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

1
2
3
4
 Set objNomBoite = objNS.CreateRecipient("Le nom de la boîte")
        Set objDossier = Application.Session.GetSharedDefaultFolder(objNomBoite, olFolderInbox)
 
    Set m_colInbox = objDossier.Items

Je découvre .CreateRecipient qui à priori sert à créer un objet "recipient" qui "Représente un utilisateur ou une ressource Outlook. Il s’agit en règle générale du destinataire d’un message électronique ou mobile."
Alors je ne comprends pas l'utilisation , tu pourrai m'éclairer stp ?

Encore merci

EDIT : JE crois que j'ai trouvé ma réponse en me renseignant sur la fonction 1 ligne plus bas : http://msdn.microsoft.com/en-us/libr.../ff869575.aspx

[Golonne]

Cela permet de créer un objet qui représente un autre compte de messagerie.

Exemple tu bosses chez Microsoft à la comptabilité. Tu as paramétré plusieurs comptes de messagerie dans ton client Outlook : julien@microsoft.com et compta@microsoft.com (l'adresse du service). Ton inbox par défaut est celle à ton nom. Avec .CreateRecipient("Compta@microsoft.com") tu indiques la boîte mail dans laquelle tu vas travailler. Désormais, les répertoires "boîte de réception", "éléments envoyés" etc. pointent vers ceux ce "compta" et non pas ceux de "Julien"

Guillaume

[JulienNvr]

Ok, merci encore.

Par contre je rencontre des problèmes lors de l'execution de la seconde macro,
la macro que j'appelle dans celle la boucle sur tous les mails de mon dossier et enregistre leurs pièces jointes, quand je test en m'envoyant un nouveau mail ça m'enregistre un nombre infini de pièces jointes ... Pourquoi ma macro n'est elle pas appelé qu'une seule fois ?

D'avance merci

[Jloub]

Bonjour,
novice en programmation j'ai besoin de votre aide.
J'ai récupéré le code ci-dessous qui va ouvir le mail dans la boite par défaut (en double cliquant sur la cellule excel contenant l'objet du message).
Maintenant je souhaiterai aller chercher le mail dans une autre BAL qui n'est pas celle par défaut.

Comment faire?

En vous remerciant.

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
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim OlApp As Object, NS As Object, Dossier As Object
     Dim OlExp As Object
     Dim i As Object
 
     Cancel = True
     Set OlApp = CreateObject("OutLook.Application")
     Set fs = CreateObject("Scripting.FileSystemObject")
     Set OlExp = OlApp.ActiveExplorer
     Set NS = OlApp.GetNamespace("MAPI")
 
     Set Dossier = NS.Folders(1).Folders("Boîte de réception")
     For Each i In Dossier.Items
         If i.Subject = Target.Value Then
         i.Display
         End If
    Next i
End Sub

[Golonne]

La réponse à ta question se trouve dans ma réponse à JulienNvr. Il faut utiliser un objet Recipient

Guillaume