Próbuję użyć funkcji z tej strony:http://www.outlookcode.com/d/code/getfolder.htm aby użyć ścieżki folderu, aby przejść do folderu. (Skopiuję ten kod na dole tego pytania - użyłem go w takiej postaci, w jakiej jest, niezmodyfikowany w ogóle.) Powód, dla którego muszę to wykorzystać, jest taki, że domyślna skrzynka odbiorcza w programie Outlook nie jest taka sama jak skrzynka odbiorcza, której potrzebuję być aktywnym. Znam ścieżkę odpowiedniej skrzynki odbiorczej, klikając ją prawym przyciskiem myszy i trafiając w właściwości, i patrząc na lokalizację.

To jest kod, którego używam:

Set objOutlook = CreateObject("Outlook.Application", "localhost")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set Inbox = GetFolder("\\[email protected]\inbox")
Debug.Print Inbox '<-- This fails
Set InboxItems = Inbox.Items '<-- This also fails
InboxItems.SetColumns ("SentOn")

Zwraca to błąd wykonania 91, zmienną obiektową lub nie ustawioną zmienną blokową.

Nie mam pojęcia, co to znaczy. Gdybyś mógł mi pomóc w rozwiązaniu tego błędu, byłoby to niesamowite, a jeśli masz sposób, aby całkowicie uniknąć tego problemu, byłoby to również niesamowite. Dzięki!

Public Function GetFolder(strFolderPath As String)As MAPIFolder
  ' strFolderPath needs to be something like 
  '   "Public Folders\All Public Folders\Company\Sales" or
  '   "Personal Folders\Inbox\My Folder"

  Dim objApp As Outlook.Application
  Dim objNS As Outlook.NameSpace
  Dim colFolders As Outlook.Folders
  Dim objFolder As Outlook.MAPIFolder
  Dim arrFolders() As String
  Dim I As Long
  On Error Resume Next

  strFolderPath = Replace(strFolderPath, "/", "\")
  arrFolders() = Split(strFolderPath, "\")
  Set objApp = Application
  Set objNS = objApp.GetNamespace("MAPI")
  Set objFolder = objNS.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 GetFolder = objFolder
  Set colFolders = Nothing
  Set objNS = Nothing
  Set objApp = Nothing
End Function