récupérer les journaux d'outlook

Question

j'aimerais recevoir le contenu du journal d'outlook, mais d'une autre personne dont j'ai accès

pour moi, c'est:
Set JournalOutlook = nspOutlook.GetDefaultFolder(olFolderJournal)

c'est facile, masi pour un autre, j'immagine que c'est :
Set JournalOutlook = nspOutlook.GetFolderFromID(ID, olFolderJournal)

le problème est comment connaitre le ID. il y a la commande EntryID qui el donne, mais celui du outlook par défaut et non celui que j'ai accès.

Donc j'aimerais connaitre l'ID d'un outlook, grâce à mon carnet surement, puisqu'Outlook permet déjà de le faire avec la sourie, masi ej veux le faire par le code. Par la sourie: Fichier -> ouvrir -> Dossier d'un autre utilisateur

tout ça sous outlook 2000
merci

cs_dragon · Answer

c,est beau trouvé

Set appOutlook = New Outlook.Application
    Set nspOutlook = appOutlook.GetNamespace("MAPI")
    Set JournalOutlook = nspOutlook.GetDefaultFolder(olFolderJournal)
    
    Set item = appOutlook.CreateItem(olJournalItem)
    
    Set recipient = item.Recipients.Add("utilisateur")
    recipient.Resolve
    If recipient.Resolved Then
    
    Set JournalOutlook = _
        nspOutlook.GetSharedDefaultFolder(recipient, olFolderJournal)
    
    End If

Récupérer les journaux d'outlook

1 réponse

Discussions similaires