[ XP ] message d'erreur 800a01b6

Ok je vois ce que c'est ^^
mais tu pense que les bugs et tout ça , c'est dut a ça ? ... j'ai l'impression que les deux problèmes ne sont pas liés maintenant que j'y repense :S

Salut,

j'ai trouvé ça................... mais c'est un peu du chinois pour moi, si ça peut t'aider ou si quelqu'un d'autre peut te guider........

@+ et bonne chance.

Impossible d'obtenir les propriétés de rendez-vous
Voir les produits auxquels s'applique cet article
Numéro d'article : 468647
Dernière mise à jour : mardi 17 février 2004
Version : 1.0
Ancien nº de publication de cet article : F18647
Symptômes

Lorsque vous installez un script d'événement sur un dossier Calendrier
pour traiter les rendez-vous, les propriétés spécifiques de
AppointmentItem, telles que Location, StartTime et EndTime, ne peuvent
être extraites. Lorsque vous tentez de les acquérir, l'erreur d'exécution
VBScript suivante s'affiche :
- 800a01b6 : "Cet objet ne gère pas cette propriété ou cette méthode."

Retour au début

Cause

EventDetails.MessageID renvoie l'EntryID d'un objet Message au lieu d'un
objet AppointmentItem.

SITUATION ACTUELLE :

Ce comportement est lié à la conception du produit.

INFORMATIONS COMPLEMENTAIRES :

Pour reproduire le problème, suivez les étapes suivates.

1. Installez dans le dossier Calendrier par défaut d'une boîte aux lettres
le script ci-dessous pour l'événement "Un nouvel élément est publié dans
ce dossier".

---
<SCRIPT RunAt=Server Language=VBScript>
Option Explicit
Dim g_bstrDebug ' Débogage chaîne

' DESCRIPTION : Déclenché par l'ajout d'un nouveau message au dossier
Public Sub Folder_OnMessageCreated
Dim oMsg
Dim CDOPR_ENTRYID

Call DebugAppend("Calendar -- Folder_OnMessageCreated", False)

Set oMsg = EventDetails.Session.GetMessage(EventDetails.MessageID, Null)

Call DebugAppend("MessageClass: " & oMsg.Class, False)
Call DebugAppend("MessageSubject: " & oMsg.Subject, False)
'Call DebugAppend("MessageLocation: " & oMsg.Location, False)

' Recherche d'erreurs sys possibles
Call DebugAppend("Error Detected: ", True)

Script.Response = g_bstrDebug
End Sub

' Nom : DebugAppend
' Domaine : Debug
' Desc : Fonction de débogage simple
' Param : Chaîne texte, ErrorFlag booléen
Private Sub DebugAppend(bstrParm,boolErrChkFlag)
If boolErrChkFlag = True Then
If err.number <> 0 Then
g_bstrDebug = g_bstrDebug & bstrParm & "-" & cstr(err.number) &
err.description & vbCrLf
err.clear
End If
Else
g_bstrDebug = g_bstrDebug & bstrParm & vbCrLf
End If
End Sub

</SCRIPT>
---

2. Ajoutez un nouveau rendez-vous au dossier Calendrier afin de déclencher
l'exécution du script.

3. Vérifiez le résultat dans le journal Agent. Constatez que oMsg.Class
reçoit la valeur 3 (celle d'un objet Message) au lieu de 26 (correspondant
à un élément rendez-vous AppointmentItem).

4. Supprimez la marque de commentaire dans la ligne de script afin
d'extraire oMsg.Location.

5. Ajoutez un autre rendez-vous au calendrier afin de déclencher
l'exécution du script.

6. Vérifiez le résultat dans le journal Agent. Observez qu'une erreur
800a01b6 de VBScript survient à l'exécution de oMsg.Location.

Retour au début

Références

Pour plus d'informations sur la composition de scripts d'événements,
reportez-vous à l'article suivant de la Base de connaissances Microsoft :

- 184271 (https://support.microsoft.com/en-us/help/184271/) Info: Updated AutoAccept Event Script

MOTS-CLES :

La liste de(s) mot(s) suivant(s) permet une recherche plus efficace de
cette fiche technique :

kbCDO kbCDO121 kbXchge550 kbMsg kbGrpMsg kbDSupport

EventDetails.MessageID

Retour au début

--------------------------------------------------------------------------------

Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
• Microsoft Collaboration Data Objects 1.21
• Microsoft Exchange Server 5.5 Standard Edition

Retour au début

Mots-clés : KB468647

Retour au début

L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

©2006 Microsoft Corporation. Tous droits réservés. Conditions d'utilisation |Marques |Confidentialité |A propos de ce site