Discussion :

[Calimero97224]

Bonjour à tous,
Je récupère mes mails du webmail de OVH sur OL-2007 mais mon webmail est soumis à un quota (100Mo) et ma messagerie est souvent pleine.
J'aimerais recevoir un msg lorsque ce quota est à 75% par exemple, mais cette fonction n'existe apparemment pas.
Ce problème a déjà dû être rencontré. Pouvez-vous m'aider?
Je m'oriente vers le développement d'une fonction vba, mais je ne connais pas bien les entrailles d'OL. Est-il possible de sauvegarder une variable (dans une table, champ ou note) que je pourrais incrémenter à chaque mail reçus?
merci d'avance pour votre aide.

[carden752]

Bonjour,

Il existe des options pour supprimer les messages du compte de messagerie automatiquement. Il ne s'agit pas d'une limite d'Outlook mais bien de ton compte de messagerie. Après avec les fonctions de recherches avancées, tu peux chercher les dernières messages reçus et savoir par exemple combien ils utilisent.

En sélectionnant ensuite tous les messages, puis un copier coller dans Excel et le remplacement des Ko en 000 et Mo en 000 000 puis une somme et on obtient la taille totale sur les messages recherchés

[Calimero97224]

Bonjour,

Merci pour ta réponse, mais je cherche à automatiser cette manip.
En me connectant à mon webmail, je peux visualiser son pourcentage de remplissage, et donc faire le ménage. Mais, si j'oublie d'y aller, ma boite se remplit.
Je cherche à récupérer, d'une façon ou d'une autre, la taille de mon webmail automatiquement, ou de calculer la tailles des messages qu'OL télécharge afin de m'avertir si les 100Mo sont proches.

[pc75]

Bonjour,

Dans Outlook, sur l'événement NewMail tu calcules la taille de ta boîte à chaque réception d'un message et tu testes la taille totale :

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
Dim myOlApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim i As Integer
Dim Taille As Long

' Sélection du dossier "Boite de réception"
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myOlApp.ActiveExplorer.CurrentFolder = myNameSpace.GetDefaultFolder(olFolderInbox)

' Boucler sur les messages
For i = 1 To ActiveExplorer.CurrentFolder.Items.count
    Taille = Taille + ActiveExplorer.CurrentFolder.Items.Item(1).size
Next i

If Taille >= ?????????? then
.....
.....
End If

Set myOlApp = Nothing
Set myNameSpace = Nothing

[Calimero97224]

Bonsoir,
Merci à vous deux. Je vais extrapoler pour appliquer cela à mon besoin.
Je passe le sujet en résolu, mais je suis surpris de ne pas rencontrer plus de sujet là dessus, car je ne pense pas être un cas isolé.