Erreur 13 lors du parcours de ma boite de reception (avec accusé de reception/LU)

Mustard007 · 31/07/2008, 19h14

Bonjour !

Je veux parcourir ma boite de réception pour vérifier si ce client a déjà été traité.

Le problème est, lorsque que la boucle tombe sur un accusé de réception / Message de email LU, ca plante avec l'erreur 13 "Incompatibilité de type"

Les email d'accusé de réception / et de message LU sont pas des email ordinaire ? comment arrangé ça pour que ma bloucle plante pas avec ces type de email ?

Merci !!
Danny.

Dolphy35 · 31/07/2008, 19h58

Salut,

Peux-tu nous montrer ton code, stp.

Tu peux faire une gestion d'erreur sur ton code pour intercepter l'erreur ou bien tester si c'est un mail :

Code :

If Selection.Item(1).Class = olMail Then
...
End If

Dolphy

Mustard007 · 31/07/2008, 21h21

Bonjour !
Ce simple bout de code donne l'erreur lorsqu'il rencontre un accusé de réception et /ou un mail de message LU (Pris dans le cours VBA pour Outlook).
Dans ce cas, olMail = Nothing

Code :

For Each olMail In mapDossier.Items
strResultat = strResultat & olMail.SenderName & vbCr
Next

Merci !

Dolphy35 · 31/07/2008, 21h40

re,

tu peux ajouter ceci en début de code après le la déclarations

Code :

On Error Resume Next

Dolphy

Oliv- · 01/08/2008, 11h38

Salut,
ca vient sans doute parce que que tu as défini

Code :

olMail as outlook.mailitem

alors que tous les éléments de ce dossier ne sont pas des mails!

ici un test http://www.developpez.net/forums/sho...67&postcount=4

Mustard007 · 01/08/2008, 14h52

Merci !

Pour ma recherche j'ai changer pour un AdvancedSearch, beaucoup plus rapide qu'une boucle qui parcourt tout le inbox

Merci encore, j'ai pris note pour le type d'objet.

31/07/2008, 19h14	#1 (permalink)
Mustard007 Nouveau membre du Club Date d'inscription: octobre 2005 Messages: 57	Erreur 13 lors du parcours de ma boite de reception (avec accusé de reception/LU) Bonjour ! Je veux parcourir ma boite de réception pour vérifier si ce client a déjà été traité. Le problème est, lorsque que la boucle tombe sur un accusé de réception / Message de email LU, ca plante avec l'erreur 13 "Incompatibilité de type" Les email d'accusé de réception / et de message LU sont pas des email ordinaire ? comment arrangé ça pour que ma bloucle plante pas avec ces type de email ? Merci !! Danny.

31/07/2008, 19h58	#2 (permalink)
Dolphy35 Responsable Outlook Date d'inscription: octobre 2004 Localisation: Rennes Messages: 3 296	Salut, Peux-tu nous montrer ton code, stp. Tu peux faire une gestion d'erreur sur ton code pour intercepter l'erreur ou bien tester si c'est un mail : Code : If Selection.Item(1).Class = olMail Then ... End If Dolphy __________________ Initiation au VBA d'Outlook venez défier mabrute Je ne réponds pas aux questions techniques par MP

31/07/2008, 21h21	#3 (permalink)
Mustard007 Nouveau membre du Club Date d'inscription: octobre 2005 Messages: 57	Bonjour ! Ce simple bout de code donne l'erreur lorsqu'il rencontre un accusé de réception et /ou un mail de message LU (Pris dans le cours VBA pour Outlook). Dans ce cas, olMail = Nothing Code : For Each olMail In mapDossier.Items strResultat = strResultat & olMail.SenderName & vbCr Next Merci ! Dernière modification par Dolphy35 ; 31/07/2008 à 21h29 Motif: Balise Code (#) !

31/07/2008, 21h40	#4 (permalink)
Dolphy35 Responsable Outlook Date d'inscription: octobre 2004 Localisation: Rennes Messages: 3 296	re, tu peux ajouter ceci en début de code après le la déclarations Code : On Error Resume Next Dolphy __________________ Initiation au VBA d'Outlook venez défier mabrute Je ne réponds pas aux questions techniques par MP

01/08/2008, 11h38	#5 (permalink)
Oliv- Membre éprouvé Date d'inscription: mars 2006 Localisation: Tourcoing Âge: 37 Messages: 492	Salut, ca vient sans doute parce que que tu as défini Code : olMail as outlook.mailitem alors que tous les éléments de ce dossier ne sont pas des mails! ici un test http://www.developpez.net/forums/sho...67&postcount=4 __________________ Have a nice day. Oliv' OUI à l'utilisation, NON au « copillage » Merci de citer la source

01/08/2008, 14h52	#6 (permalink)
Mustard007 Nouveau membre du Club Date d'inscription: octobre 2005 Messages: 57	Merci ! Pour ma recherche j'ai changer pour un AdvancedSearch, beaucoup plus rapide qu'une boucle qui parcourt tout le inbox Merci encore, j'ai pris note pour le type d'objet.

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Outlook > VBA Outlook
Erreur 13 lors du parcours de ma boite de reception (avec accusé de reception/LU)

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email