Как запустить макрос Outlook в учетной записи деловой электронной почты?

Question

Как запустить макрос Outlook в групповой учетной записи электронной почты?У меня есть макрос, который отлично работает в личной электронной почте.

Однако мне нужно, чтобы он работал в учетной записи электронной почты.Это мой код.

Sub CreateSearchFolder_AllNotRepliedEmails()

    Dim strScope As String

    Dim strRepliedProperty As String

    Dim strFilter As String

    Dim objSearch As Outlook.Search

    Dim ns As NameSpace


    'Specify the folders to be searched

    'Here we use Inbox folder for an example

    strScope = "'" & Application.Session.GetNamespace("MAPI")(olFolderInbox).FolderPath & "'"


    'Search filter

    strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"

    strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"

    Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")


    'Save the search folder

    objSearch.Save ("Not Replied Emails")

    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"

End Sub