Je dévéloppe un plugin pour outlook en visual basic 6, sp5.
J'explorer le dossier inbox d'outlook et lorsque j'arrive sur un message
généré automatiquement par un serveur comme les accusés de réception ou les
accusés d'ouverture des messages, mon plugin se plante allègrement.
J'essaye de trouver une solution, mais je suis bloqué.
Pouvez vous m'aider ?
Merci beaucouppour votre aide.
Voila le code source qui me permet d'explorer le dossier inbox par défaut :
For Each oMsg In oFolder.Items
With oMsg
'
' Si c'est un nouveau message (unread=true), on le regarde.
' Si dans le sujet du message on trouve la chaîne "Dossier
AGDREF numéro : ",
' on peut extraire le fichier joint
'
' Tester si le type de message.
' Si c'est un message automatique (acusé de réception ou de
lecture),
' on ne fait pas de teste.
'
'
If .UnRead = True Then
If InStr(1, .Subject, "Dossier AGDREF numéro : ") > 0 Then
NomdossierAGDREF = Right(.Subject, Len(.Subject) - 24)
oMsg.Attachments.Item(1).SaveAsFile
ChaineRepertoireImport & NomdossierAGDREF & ".zip"
FichierTrouver = True
.UnRead = False
End If
Else
MsgBox .Subject
End If
End With
Next
Merci de poster les réponses au groupe afin d'en faire profiter à tous
baledent
Bonsoir,
Excusez moi pour le peut de précisions de mon précédent message, mais c'était après une journée difficile.
-1) le message d'erreur obtenu lorsque j'exécute mon plug-in et qu'il arrive sur les messages automatiques d'un serveur exchange :
"Erreur d'exécution '13' : type incompatible"
-2) le plug-in se bloque lorsque je veux lire le sujet (.subject) de mon message.
En fait, lorsque c'est un message 'normal' (comme la réponse à l'un de mes messages ou la réception d'un message d'un autre utilisateur) il n'y a pas de problème.
En revanche, lorsque j'arrive sur un message de type 'notification de remise' ou 'notification de lecture' du message que j'ai envoyé, le plug-in affiche le message d'erreur en -1).
En fait, il n'arrive pas obtenir le sujet du message.
J'ai essayer de trouver sur le MSDN comment je pourrais différencier un message normal d'un message 'système' (transmis par les serveurs de messagerie) mais je n'ai pas réussi à trouver un réponse..
Précision : lorsque l'on ouvre les messages, dans la barre d'outils (Fichier/Propriétés) ou peut voir si c'est un message ou un rapport (type du message).
Et c'est sur ces derniers que mon code se plante !
Merci pour votre patiente...
"Zoury" a écrit dans le message de news: #
Salut Eric! :O)
> J'explorer le dossier inbox d'outlook et lorsque j'arrive sur un message > généré automatiquement par un serveur comme les accusés de réception ou les > accusés d'ouverture des messages, mon plugin se plante allègrement. > > Pouvez vous m'aider ?
Quel est le message d'erreur..?
> If .UnRead = True Then > If InStr(1, .Subject, "Dossier AGDREF numéro : ") > 0
Merci de poster les réponses au groupe afin d'en faire profiter à tous
Bonsoir,
Excusez moi pour le peut de précisions de mon précédent message, mais
c'était après une journée difficile.
-1) le message d'erreur obtenu lorsque j'exécute mon plug-in et qu'il arrive
sur les messages automatiques d'un serveur exchange :
"Erreur d'exécution '13' : type incompatible"
-2) le plug-in se bloque lorsque je veux lire le sujet (.subject) de mon
message.
En fait, lorsque c'est un message 'normal' (comme la réponse à l'un de mes
messages ou la réception d'un message d'un autre utilisateur) il n'y a pas
de problème.
En revanche, lorsque j'arrive sur un message de type 'notification de
remise' ou 'notification de lecture' du message que j'ai envoyé, le plug-in
affiche le message d'erreur en -1).
En fait, il n'arrive pas obtenir le sujet du message.
J'ai essayer de trouver sur le MSDN comment je pourrais différencier un
message normal d'un message 'système' (transmis par les serveurs de
messagerie) mais je n'ai pas réussi à trouver un réponse..
Précision : lorsque l'on ouvre les messages, dans la barre d'outils
(Fichier/Propriétés) ou peut voir si c'est un message ou un rapport (type du
message).
Et c'est sur ces derniers que mon code se plante !
Merci pour votre patiente...
"Zoury" <yanick_lefebvre@hotmail.com> a écrit dans le message de news:
#wdprhSbDHA.1492@TK2MSFTNGP12.phx.gbl...
Salut Eric! :O)
> J'explorer le dossier inbox d'outlook et lorsque j'arrive sur un message
> généré automatiquement par un serveur comme les accusés de réception ou
les
> accusés d'ouverture des messages, mon plugin se plante allègrement.
>
> Pouvez vous m'aider ?
Quel est le message d'erreur..?
> If .UnRead = True Then
> If InStr(1, .Subject, "Dossier AGDREF numéro : ") > 0
Excusez moi pour le peut de précisions de mon précédent message, mais c'était après une journée difficile.
-1) le message d'erreur obtenu lorsque j'exécute mon plug-in et qu'il arrive sur les messages automatiques d'un serveur exchange :
"Erreur d'exécution '13' : type incompatible"
-2) le plug-in se bloque lorsque je veux lire le sujet (.subject) de mon message.
En fait, lorsque c'est un message 'normal' (comme la réponse à l'un de mes messages ou la réception d'un message d'un autre utilisateur) il n'y a pas de problème.
En revanche, lorsque j'arrive sur un message de type 'notification de remise' ou 'notification de lecture' du message que j'ai envoyé, le plug-in affiche le message d'erreur en -1).
En fait, il n'arrive pas obtenir le sujet du message.
J'ai essayer de trouver sur le MSDN comment je pourrais différencier un message normal d'un message 'système' (transmis par les serveurs de messagerie) mais je n'ai pas réussi à trouver un réponse..
Précision : lorsque l'on ouvre les messages, dans la barre d'outils (Fichier/Propriétés) ou peut voir si c'est un message ou un rapport (type du message).
Et c'est sur ces derniers que mon code se plante !
Merci pour votre patiente...
"Zoury" a écrit dans le message de news: #
Salut Eric! :O)
> J'explorer le dossier inbox d'outlook et lorsque j'arrive sur un message > généré automatiquement par un serveur comme les accusés de réception ou les > accusés d'ouverture des messages, mon plugin se plante allègrement. > > Pouvez vous m'aider ?
Quel est le message d'erreur..?
> If .UnRead = True Then > If InStr(1, .Subject, "Dossier AGDREF numéro : ") > 0
