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 à 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 : 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 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
Bonne journée
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager