IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    février 2021
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : février 2021
    Messages : 7
    Points : 3
    Points
    3
    Par défaut Evenement lors de la réception d'un mail dans une BAL
    Bonjour à tous,

    Je cale un peu sur un sujet qui me semble pourtant tout bete, déclancher une macro lors de la réception d'un mail dans une BAL.
    Par la suite je souhaite classer ce mail dans un dossier mais je n'en suis pas encore la.

    Pour l'heure j'ai testé ce code (copier coller) que je pensais être un code clé en main pour déclencher un simple msgbox.

    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
     
    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
            MsgBox ("recu2")
    '        Call Test3 'Nom de ta macro
        End If
    Set objMsg = Nothing
    End Sub
    Par la suite je voulais a peine compliquer les choses, retirer le commentaire et faire appel à ma macro que voici :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Sub Test3()
    MsgBox ("recu")
    End Sub
    Cela ne donne aucun résultat, pas le début d'un msgbox, même pas un petit rapport de plantage rassurant qui pourrait me dire que je suis sur la bonne voie. (j'ai bien tout ça dans thisoutlookcession)

    Pourriez vous me donner un coup de main.

    Merci d'avance

  2. #2
    Candidat au Club
    Homme Profil pro
    Étudiant
    Inscrit en
    février 2021
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 29
    Localisation : France, Charente Maritime (Poitou Charente)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : février 2021
    Messages : 7
    Points : 3
    Points
    3
    Par défaut
    Bonjour,

    Petit up,
    J'ai testé avec un autre code qui me semblait plus logique et que j'ai un peu modifié mais le résultat est exactement le même, pas le début d'un msgbox ou d'un message d’erreur.

    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
     
    Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
     
     
        'Déclartions
        Dim MonApp As Outlook.Application
        Dim MonMail As Object
        Dim MonNameSpace As Outlook.NameSpace
        Dim MonDossier As Outlook.Folder
        Dim MaBoite As Recipient
     
        'Instance des variables
        Set MonApp = Outlook.Application
        Set MonNameSpace = MonApp.GetNamespace("MAPI")
        Set MonDossier = MonNameSpace.GetDefaultFolder(olFolderInbox)
        Set olInbox = MonNameSpace.Folders("maBAL@xxx.com").Store.GetDefaultFolder(olFolderInbox)
     
     
    MsgBox ("recu3")
     
    End Sub
    Je pense que le problème est sur la détection de ma BAL car ce code (moins les petits rajouts) fonctionne très bien sur ma boite mail principal. Et j'ai d'ailleurs un message d'erreur a chaque fois que je reçois un mail sur ma boite principal, chose que je n'ai pas sur ma BAL.
    Si vous pouviez me donner un petit coup de main je vous en serez très reconnaissant.

    Bonne journée,

    Razou

Discussions similaires

  1. Réponses: 2
    Dernier message: 08/07/2020, 15h13
  2. Réponses: 4
    Dernier message: 09/06/2010, 17h44
  3. Réponses: 1
    Dernier message: 15/01/2009, 12h24
  4. Petit script à lancer lors de la réception d'un mail
    Par oc_alex86 dans le forum Applications et environnements graphiques
    Réponses: 2
    Dernier message: 11/12/2008, 10h35
  5. Réponses: 5
    Dernier message: 10/03/2007, 14h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo