Bonjour, je souhaiterais récupérer les données d'un calendrier Outlook situé dans un dossier public. Dans le code ci-dessous, j'ai une erreur de variable non défini. comment résoudre ce problème ? merci
Code:
Public Function GetPublicFolder(strFolderPath) Dim colFolders Dim objFolder Dim arrFolders Dim i On Error Resume Next strFolderPath = Replace(strFolderPath, "/", "\") arrFolders = Split(strFolderPath, "\") Set objFolder = Application.Session.GetDefaultFolder(18) Set objFolder = objFolder.Folders.Item(arrFolders(0)) If Not objFolder Is Nothing Then For i = 1 To UBound(arrFolders) Set colFolders = objFolder.Folders Set objFolder = Nothing Set objFolder = colFolders.Item(arrFolders(i)) If objFolder Is Nothing Then Exit For End If Next End If Set GetPublicFolder = objFolder Set colFolders = Nothing Set objApp = Nothing Set objFolder = Nothing End Function
Code:
Sub ListAppointments() Dim golApp As OUTLOOK.Application Dim fldFolder As MAPIFolder Dim strPublicFolder As String Dim obj As AppointmentItem Set golApp = New OUTLOOK.Application strPublicFolder = "\Dossiers publics\Tous les dossiers publics\Agenda\Planning" Set fldFolder = GetPublicFolder(strPublicFolder) Set obj = fldFolder.Items.Add(olAppointmentItem) Range("A1:D1").Value = Array("Subject", "Start", "End", "Location") NextRow = 2 For Each fldFolder In obj.Items Cells(NextRow, "A").Value = golApp.Subject Cells(NextRow, "B").Value = golApp.Start Cells(NextRow, "C").Value = golApp.End Cells(NextRow, "D").Value = golApp.Location NextRow = NextRow + 1 Next fldFolder Set golApp = Nothing Set fldFolder = Nothing Set obj = Nothing Columns.AutoFit End Sub