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 ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <lebret@guetali.fr> wrote in message
news:#Xw0P$PiDHA.2004@TK2MSFTNGP12.phx.gbl...
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 ?
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 ?