Je souhaiterais que certains messages envoy=E9s ou re=E7us soient
automatiquement class=E9s dans un dossier sp=E9cifique. Pour les messages
re=E7us, pas de probl=E8me, j'ai cr=E9=E9 une r=E8gle qui le fait tr=E8s
bien. Par contre, pour les messages envoy=E9s, j'ai un probl=E8me.
J'utilise les accus=E9s de r=E9ception et de lecture. Or, Outlook 2000,
que j'utilise (je ne sais pas si c'est la m=EAme chose pour les
versions suivantes), ne sait pas g=E9rer les AR si le message n'est
pas dans les "El=E9ments envoy=E9s" (vous m'arr=EAtez si je dis
n'importe quoi).
Donc, j'aimerais que mes messages envoy=E9s soient d=E9plac=E9s dans le
dossier kivabien *apr=E8s* traitement des AR.
Est-ce que c'est possible ou est-ce que je r=EAve debout ?
Merci d'avance =E0 ceux qui prendront le temps de me lire et un merci
encore plus grand =E0 ceux qui prendront le temps de me r=E9pondre :-)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Spectre
Le 13/06/2006, Geraldine Majere a supposé :
Bonjour,
Je souhaiterais que certains messages envoyés ou reçus soient automatiquement classés dans un dossier spécifique. Pour les messages reçus, pas de problème, j'ai créé une règle qui le fait très bien. Par contre, pour les messages envoyés, j'ai un problème. J'utilise les accusés de réception et de lecture. Or, Outlook 2000, que j'utilise (je ne sais pas si c'est la même chose pour les versions suivantes), ne sait pas gérer les AR si le message n'est pas dans les "Eléments envoyés" (vous m'arrêtez si je dis n'importe quoi). Donc, j'aimerais que mes messages envoyés soient déplacés dans le dossier kivabien *après* traitement des AR. Est-ce que c'est possible ou est-ce que je rêve debout ?
Merci d'avance à ceux qui prendront le temps de me lire et un merci encore plus grand à ceux qui prendront le temps de me répondre :-)
Bonjour,
Ci joint un bout de code qui peurêtre lancé par un bouton. Il a pour object de déplacer les mails reçus et lus depuis plus de 8 jours dans un dossier "arc".
Il peut être facilement adapté à ce que vous recherchez.
Public Function archiver() ' déplace les mails reçus depuis plus de 7 jours dans le répertoire arc.
'Dim objNS As New Outlook.Application Dim olItem As MailItem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim i As Integer
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderInbox) Set oSelection = objInbox.Items
Set arc = objInbox.Folders("arc") ' répertoire de destination
For i = 1 To oSelection.Count ' on parcours tous les mails de la boite de réception Set olItem = oSelection.Item(i) If oSelection.Count <> 0 Then ' si il ya des mails If olItem.UnRead = False And olItem.ReceivedTime < Date - 7 Then olItem.Move arc 'déplacement du mail dans le dossier arc Else End If End If Next End Function
-- Bonjour
Bye Spectre
Le 13/06/2006, Geraldine Majere a supposé :
Bonjour,
Je souhaiterais que certains messages envoyés ou reçus soient
automatiquement classés dans un dossier spécifique. Pour les messages
reçus, pas de problème, j'ai créé une règle qui le fait très
bien. Par contre, pour les messages envoyés, j'ai un problème.
J'utilise les accusés de réception et de lecture. Or, Outlook 2000,
que j'utilise (je ne sais pas si c'est la même chose pour les
versions suivantes), ne sait pas gérer les AR si le message n'est
pas dans les "Eléments envoyés" (vous m'arrêtez si je dis
n'importe quoi).
Donc, j'aimerais que mes messages envoyés soient déplacés dans le
dossier kivabien *après* traitement des AR.
Est-ce que c'est possible ou est-ce que je rêve debout ?
Merci d'avance à ceux qui prendront le temps de me lire et un merci
encore plus grand à ceux qui prendront le temps de me répondre :-)
Bonjour,
Ci joint un bout de code qui peurêtre lancé par un bouton.
Il a pour object de déplacer les mails reçus et lus depuis plus de 8
jours dans un dossier "arc".
Il peut être facilement adapté à ce que vous recherchez.
Public Function archiver() ' déplace les mails reçus depuis plus de 7
jours dans le répertoire arc.
'Dim objNS As New Outlook.Application
Dim olItem As MailItem
Dim objInbox As MAPIFolder
Dim oSelection
Dim arc As Outlook.MAPIFolder
Dim i As Integer
Set objNS = Application.GetNamespace("MAPI")
Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
Set oSelection = objInbox.Items
Set arc = objInbox.Folders("arc") ' répertoire de
destination
For i = 1 To oSelection.Count ' on parcours tous les mails de la
boite de réception
Set olItem = oSelection.Item(i)
If oSelection.Count <> 0 Then ' si il ya des mails
If olItem.UnRead = False And olItem.ReceivedTime < Date
- 7 Then
olItem.Move arc 'déplacement du mail dans le
dossier arc
Else
End If
End If
Next
End Function
Je souhaiterais que certains messages envoyés ou reçus soient automatiquement classés dans un dossier spécifique. Pour les messages reçus, pas de problème, j'ai créé une règle qui le fait très bien. Par contre, pour les messages envoyés, j'ai un problème. J'utilise les accusés de réception et de lecture. Or, Outlook 2000, que j'utilise (je ne sais pas si c'est la même chose pour les versions suivantes), ne sait pas gérer les AR si le message n'est pas dans les "Eléments envoyés" (vous m'arrêtez si je dis n'importe quoi). Donc, j'aimerais que mes messages envoyés soient déplacés dans le dossier kivabien *après* traitement des AR. Est-ce que c'est possible ou est-ce que je rêve debout ?
Merci d'avance à ceux qui prendront le temps de me lire et un merci encore plus grand à ceux qui prendront le temps de me répondre :-)
Bonjour,
Ci joint un bout de code qui peurêtre lancé par un bouton. Il a pour object de déplacer les mails reçus et lus depuis plus de 8 jours dans un dossier "arc".
Il peut être facilement adapté à ce que vous recherchez.
Public Function archiver() ' déplace les mails reçus depuis plus de 7 jours dans le répertoire arc.
'Dim objNS As New Outlook.Application Dim olItem As MailItem Dim objInbox As MAPIFolder Dim oSelection Dim arc As Outlook.MAPIFolder Dim i As Integer
Set objNS = Application.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderInbox) Set oSelection = objInbox.Items
Set arc = objInbox.Folders("arc") ' répertoire de destination
For i = 1 To oSelection.Count ' on parcours tous les mails de la boite de réception Set olItem = oSelection.Item(i) If oSelection.Count <> 0 Then ' si il ya des mails If olItem.UnRead = False And olItem.ReceivedTime < Date - 7 Then olItem.Move arc 'déplacement du mail dans le dossier arc Else End If End If Next End Function
