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

VBA Outlook Discussion :

Macro Outlook trier mails par destinataire


Sujet :

VBA Outlook

  1. #1
    Nouveau Candidat au Club
    Macro Outlook trier mails par destinataire
    Bonjour a tous,

    Je souhaiterais mettre en place une macro qui va trier dans une boite outlook commune à plusieurs personnes donc plusieurs destinataires pour une même boite car j'ai des ALIAS.

    Elle a pour but de prendre le mail dont le destinataire est TOTO1@TRUC.COM et le ranger dans le dossier TOTO1, TOTO2@TRUC.COM dans le dossier TOTO2 ...

    A ce jour je n'arrive pas a traiter le champ A, quelle est sa variable?

    voici mon debut de macro :

    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
    Public Sub Tri_BOITE()
     
    Dim objNS As Outlook.NameSpace
    Dim startFolder As MAPIFolder
    Dim destParentFolder As MAPIFolder
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Dim nameOfDestFolder As String
    Dim destFolder As Outlook.Folder
     
     
    Set objNS = Outlook.GetNamespace("MAPI")
    Set startFolder = objNS.Folders("Réservations").Folders("Boîte de réception")
    Set myItems = startFolder.Items
     
    'QUELLE VALEUR METRE ICI POUR REMPLACER "DE" '
    Set myItem = myItems.Find("[SentOnBehalfOfName] = 'EXPEDITEUR@PRESTATAIRE.COM'")
     
     
    While TypeName(myItem) <> "Nothing"
    If myItem.Subject <> "Nothing" Then
     
    On Error Resume Next
    Set destFolder = startFolder.Folders("Suivi TOTO").Folders("TOTO1")
    myItem.Move destFolder
    End If
    Set myItem = myItems.FindNext
    Wend


    Merci de votre aide.

    Nils

  2. #2
    Expert éminent
    Bonjour,
    Quel type de messagerie est-ce ? Si c'est un EXCHANGE, les Emails arrivent tous avec l'adresse principale dans le champs a:

    il faut consulter l'en tête internet du message. mais cela peut être compliqué lorsqu'il y a plusieurs destinataires

    en principe en créant des règles cela marche bien.

    https://www.developpez.net/forums/bl...nvoye-message/

###raw>template_hook.ano_emploi###