vba - Outlook 2010 VBA 脚本部署

Question

我为 Outlook 2010 编写了一个 VBA 脚本。该脚本的目的是清除用户任务和联系人中的一些元素。这需要在迁移到新的客户端管理解决方案后完成。由于 Exchange 连接到新解决方案，某些项目增加了一倍，因此我们需要从 Outlook 中删除这些项目。理想情况下，这将在 Exchange 服务器上完成，但我们无法直接访问它...

我的脚本已经可以工作，但我的问题在于该脚本的分发。我们无法直接访问这些人的计算机，因此我们需要一种将其打包到下载中的方法，让他们通过电子邮件中的链接运行一次，然后就忘记它。这些用户大多数的计算机知识大约为零。理想情况下，我不希望该脚本在执行一次后保留在 Outlook 中。

我寻找解决方案但一无所获......

如果有帮助的话，这是我的脚本。另外，我不是一个好的程序员......所以如果有更好的方法来做到这一点，请毫不犹豫地告诉我。

Private Sub CleanUp()
Dim TaskFolder As Folder
Set TaskFolder = Session.GetDefaultFolder(olFolderTasks)
Dim Task As TaskItem
Dim objProperty As Outlook.UserProperty
Dim uProperty As String
Dim collTasks As New Collection

Dim ContactFolder As Folder
Set ContactFolder = Session.GetDefaultFolder(olFolderContacts)
Dim Contact As ContactItem
Dim objPropertyCLS As Outlook.UserProperty
Dim uPropertyCLS As String
Dim collContacts As New Collection

uProperty = "crmxml"
uPropertyCLS = "crmLinkState"

For Each Task In TaskFolder.Items
    Set objProperty = Task.UserProperties.Find(uProperty, Outlook.OlUserPropertyType.olText)
    If objProperty Is Nothing Then
        Debug.Print "objProperty is Nothing"
    ElseIf InStr(objProperty, "phonecall") > 0 Then
            collTasks.Add Task
    ElseIf InStr(objProperty, "letter") > 0 Then
        collTasks.Add Task
    ElseIf InStr(objProperty, "fax") > 0 Then
        collTasks.Add Task
    End If
Next

For Each Contact In ContactFolder.Items
    Set objPropertyCLS = Contact.UserProperties.Find(uPropertyCLS, Outlook.OlUserPropertyType.olNumber)

    If objPropertyCLS Is Nothing Then
        Debug.Print "objPropertyCLS is Nothing"
    ElseIf Not objPropertyCLS Is Nothing Then
        collContacts.Add Contact
    End If
Next

For Each Task In collTasks
    Task.Delete
Next

For Each Contact In collContacts
    Contact.Delete
Next
End Sub

非常感谢!

Answer 1

VBA 脚本并不是为在多台 PC 上部署而设计的。如果您需要在多台 PC 上运行代码，则必须开发一个插件。用户可以像任何其他 Windows 程序一样轻松安装加载项。如果不再需要该加载项，可以从 Outlook 中的 COM 加载项对话框中卸载或禁用它。请参阅Walkthrough: Creating Your First VSTO Add-In for Outlook快速上手。