OVH Cloud OVH Cloud

lire des messages

1 réponse
Avatar
Gilles Lebret
Bonsoir à tous et à toutes

j'ai un serveur exchange 5.5 (avec le der SP) sous NT4 sp6a
je cherche à écrire un petit script dans exchange pour aller lire dans une
boite publique le nombre de messages qui s'y trouvent et l'objet de chaque
mail.
La boite en question est une file d'attente et je veux surveiller son flux
de messages avec ce script
est-ce que c'est possible ?

merci d'avance de vos réponses

Gilles Le Bret

1 réponse

Avatar
Thierry DEMAN \(MVP\)
Bonsoir,

oui, celà est bien entendu tout à fait possible !

Voici un début de script d'accès aux dossiers publics :

'---------------------------------------------------------------------------
---
' Global Variables
'---------------------------------------------------------------------------
---
dim AMSession
dim fldrTarget
dim fldrInbox
dim idMessage

Dim fsysfolder
Dim NewSession
Dim Outbox

dim PubFold
dim Tous
dim Appli
dim Echanges
dim Sortie
dim FID

'On Error Resume Next

dbg = False
fsysfolder = "C:temp"

Set fsys = CreateObject("scripting.FileSystemObject")
Set EntFolder = fsys.GetFolder(fsysfolder)

set NewSession= CreateObject( "mapi.session")
NewSession.Logon "administrateur"


set PubFold = NewSession.InfoStores("Dossiers publics")
IF PubFold is Nothing Then
MsgBox "Dossiers publics non accessible"
End if

set Tous = PubFold.RootFolder
IF Tous is Nothing Then
MsgBox "Dossier TOUS non accessible"
else
MsgBox(tous.name)
End if

set Racine = Tous.folders("Tous les dossiers publics")
IF Racine is Nothing Then
MsgBox "Dossier Racine non accessible"
else
MsgBox(Racine.name)
End if

'DossierTest peut être remplacé par tout dossier public!!!
set DossierTest = Racine.folders("DossierTest")
IF DossierTest is Nothing Then
MsgBox "Dossier DossierTest non accessible"
else
MsgBox(DossierTest.ID)
End if


NewSession.logoff
Set NewSession = Nothing

Dans la FAQ Exchange, et sur l'objet "CDO", tu pourras trouver des exemples
de traitements sur les messages...

A bientôt,
--
Thierry DEMAN-BARCELÒ
MVP Exchange,SQL/Server
FAQ Exchange: http://faqexchange.dyndns.org ou http://exchange.faq.free.fr
Site personnel: http://webfamilial.dyndns.org/thierry/pageprincipale.htm
http://tdeman.free.fr/thierry/pageprincipale.htm

"Gilles Lebret" wrote in message
news:#Xw0P$
Bonsoir à tous et à toutes

j'ai un serveur exchange 5.5 (avec le der SP) sous NT4 sp6a
je cherche à écrire un petit script dans exchange pour aller lire dans une
boite publique le nombre de messages qui s'y trouvent et l'objet de chaque
mail.
La boite en question est une file d'attente et je veux surveiller son flux
de messages avec ce script
est-ce que c'est possible ?

merci d'avance de vos réponses

Gilles Le Bret