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
Pas de demande par MP, sinon j'correctionne plus, j'dynamite, j'disperse, j'ventile !!!
---------------------------------------------------------------------
Vous avez un talent insoupçonné... Faites-en profitez les autres. Un p'tit CLIC pour une grande cause.
Et si vous faisiez un bon geste en 2024 ? Soyez utile, ça vous changera ! Moi, ça m’a changé !
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
Pas de demande par MP, sinon j'correctionne plus, j'dynamite, j'disperse, j'ventile !!!
---------------------------------------------------------------------
Vous avez un talent insoupçonné... Faites-en profitez les autres. Un p'tit CLIC pour une grande cause.
Et si vous faisiez un bon geste en 2024 ? Soyez utile, ça vous changera ! Moi, ça m’a changé !
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