[OL-2016] Règle pour le transfert des mails d'un dossier

Règle pour le transfert des mails d'un dossier

Bonjour à tous,

existe t'il un moyen de créer une règle pour transférer le contenu d'un dossier vers une autre adresse mail (d'Outlook 2016 également) ?

Bonne journée
Curt

Bonjour, je sais pas s'il existe une option pour cela.
Mais ce qui est sûr c'est que tu peux le faire en VBA à partir de l'onglet Développeur.

Voici un code qui te permet de transférer les mails d'un dossier vers une autre adresse mail.

Code:

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
 
Sub TransfereMails(NomDuDossier As String, AdresseMailExp As String, AdresseMailDest As String)
 
 Dim myItem As Object
 Dim myFolder As Folder
 Dim OLapp As Outlook.Application
 Set OLapp = CreateObject("Outlook.application")
 Dim Fmyitem As Object
 Dim Doss As Outlook.MAPIFolder
 
 Dim objNomBoite As Object
 
 Dim Index As Integer
 Dim nbrMax As Integer
 
 Set myNamespace = OLapp.GetNamespace("MAPI")
 Set objNomBoite = myNamespace.CreateRecipient(AdresseMailExp)
 
 
 Set Doss = OLapp.Session.GetSharedDefaultFolder(objNomBoite, olFolderInbox).Parent
 Set myFolder = Doss.Folders(NomDuDossier)
    Index = 1
    nbrMax = myFolder.Items.Count
    While Index <= nbrMax
 
        DateEnvoie = Doss.Folders(NomDuDossier).Items(Index).ReceivedTime
 
        Set Fmyitem = myFolder.Items(Index).Forward
            Fmyitem.Recipients.Add AdresseMailDest
            Fmyitem.Send
 
        Index = Index + 1
    Wend
 
 
End Sub
 
Sub main()
 
Call TransfereMails("Dossieràtransférer", "mailExpediteur@XXXX.com", "mailDestinaire@XXXX.com")
End Sub

Bonjour KareemSaid,

c'est parfait (même si une commande propre à Outlook aurait été préférable)

Merci

De rien, et n'oublie pas le petit :plusser: ;)

Bonne journée :)