Macro VBA compter mail arrivés dans mois dans dossier spécificique
Résolu
Amlie
-
Amlie -
Amlie -
Bonjour à tous,
Je me permets de vous écrire afin de trouver un solution à mon blocage.
Afin d'éviter de compter manuellement le nombre de mail reçu dans le mois dans un sous dossier spécifique de ma boite de reception, je souhaite l'automatiser dans une macro.
J'ai réussi à créer une macro qui compte le nombre de mail dans le dossier spécifique. C'est le critère reçu entre 01/12/2020 et 31/12/2020 qui tombe en erreur.
<code>
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim NewInbox As MAPIFolder
Dim Item As Object
Dim FileName As String
Dim DossierConteneur As Outlook.MAPIFolder
Dim MaBoite As Store
Dim Dossier As Folder
Dim Dossier2 As Folder
Dim MyItemsSet ns = GetNamespace("MAPI")
Set MaBoite = ns.Stores("Cessions Auto")
Set Dossier = MaBoite.GetDefaultFolder(olFolderInbox).Folders("Correspondance épave")
MsgBox Dossier.Name & " " & Dossier.Items.Count
Set Dossier = MaBoite.GetDefaultFolder(olFolderInbox).Folders("Correspondance épave")
Set MyItems = Dossier.MailItems("[ReceivedTime] >= '" & Format("01/12/2020", "ddmmyyyy") & "'" & "' and < '" & Format("31/12/2020") & "'")
MsgBox Dossier.Name & " " & Dossier.MyItems.Count
<code basic>
Je vous remercie de votre aide.
Amélie
Je me permets de vous écrire afin de trouver un solution à mon blocage.
Afin d'éviter de compter manuellement le nombre de mail reçu dans le mois dans un sous dossier spécifique de ma boite de reception, je souhaite l'automatiser dans une macro.
J'ai réussi à créer une macro qui compte le nombre de mail dans le dossier spécifique. C'est le critère reçu entre 01/12/2020 et 31/12/2020 qui tombe en erreur.
<code>
Dim ns As NameSpace
Dim Inbox As MAPIFolder
Dim NewInbox As MAPIFolder
Dim Item As Object
Dim FileName As String
Dim DossierConteneur As Outlook.MAPIFolder
Dim MaBoite As Store
Dim Dossier As Folder
Dim Dossier2 As Folder
Dim MyItemsSet ns = GetNamespace("MAPI")
Set MaBoite = ns.Stores("Cessions Auto")
Set Dossier = MaBoite.GetDefaultFolder(olFolderInbox).Folders("Correspondance épave")
MsgBox Dossier.Name & " " & Dossier.Items.Count
Set Dossier = MaBoite.GetDefaultFolder(olFolderInbox).Folders("Correspondance épave")
Set MyItems = Dossier.MailItems("[ReceivedTime] >= '" & Format("01/12/2020", "ddmmyyyy") & "'" & "' and < '" & Format("31/12/2020") & "'")
MsgBox Dossier.Name & " " & Dossier.MyItems.Count
<code basic>
Je vous remercie de votre aide.
Amélie
A voir également:
- Macro VBA compter mail arrivés dans mois dans dossier spécificique
- Dossier appdata - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment enregistrer un mail dans un dossier - Guide
- Excel compter cellule couleur sans vba - Guide
- Windows live mail - Télécharger - Mail
3 réponses
bonjour,
peux-tu utiliser les balises de code quand tu partages du code?
"qui tombe en erreur": que se passe-t-il exactement?
peux-tu utiliser les balises de code quand tu partages du code?
"qui tombe en erreur": que se passe-t-il exactement?
Bonjour,
J'ai un message d'erreur "Erreur d'execution '438' : Propriété ou Methode non gérée par cet objet" qui apparait et souligne ma ligne Set MyItems en jaune.
J'ai un message d'erreur "Erreur d'execution '438' : Propriété ou Methode non gérée par cet objet" qui apparait et souligne ma ligne Set MyItems en jaune.
tu ne peux pas écrire
il faut écrire
ensuite, je suis sceptique quand je vois quelque chose comme
j'essaierais plutôt:
ou bien, si tu préfères:
format(ReceivedTime , "yyyymmdd") >= 20201201 and format(ReceivedTime , "yyyymmdd") <= 20201231