Outlook 在哪里存储 VBA 代码文件

客户端

Outlook 是一款广泛使用的邮件客户端，它不仅具备强大的邮件管理功能，还支持通过 VBA（Visual Basic for Applications）编写自定义宏代码，以实现更加个性化的邮件处理和自动化任务。在本文中，我们将探讨 Outlook 中 VBA 代码文件的存储位置，并提供一些案例代码来帮助读者更好地理解。

VBA
Sub 自动标记邮件()
    Dim objInbox As Outlook.MAPIFolder
    Dim objMAIl As Outlook.MAIlItem
    Dim objItems As Outlook.Items
    Dim objNamespace As Outlook.NameSpace
    Dim objFilter As String
    ' 获取当前收件箱
    Set objNamespace = Application.GetNamespace("MAPI")
    Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)
    ' 设置过滤条件
    objFilter = "@SQL(""urn:schemas:httpmAIl:subject"" LIKE '%关键词%')"
    ' 应用过滤条件并标记邮件
    Set objItems = objInbox.Items.Restrict(objFilter)
    For Each objMAIl In objItems
        objMAIl.FlagStatus = olFlagMarked
        objMAIl.FlagIcon = olFlagIconRed
    Next objMAIl
    ' 释放对象
    Set objMAIl = Nothing
    Set objItems = Nothing
    Set objInbox = Nothing
    Set objNamespace = Nothing
End Sub

VBA
Sub 自动回复邮件()
    Dim objInbox As Outlook.MAPIFolder
    Dim objMAIl As Outlook.MAIlItem
    Dim objItems As Outlook.Items
    Dim objNamespace As Outlook.NameSpace
    Dim objFilter As String
    ' 获取当前收件箱
    Set objNamespace = Application.GetNamespace("MAPI")
    Set objInbox = objNamespace.GetDefaultFolder(olFolderInbox)
    ' 设置过滤条件
    objFilter = "@SQL(""urn:schemas:httpmAIl:subject"" LIKE '%关键词%')"
    ' 应用过滤条件并自动回复邮件
    Set objItems = objInbox.Items.Restrict(objFilter)
    For Each objMAIl In objItems
        ' 创建回复邮件
        Dim objReply As Outlook.MAIlItem
        Set objReply = objMAIl.Reply
        ' 编写回复内容
        objReply.Subject = "自动回复：" & objMAIl.Subject
        objReply.Body = "您好，我已收到您的邮件。"
        ' 发送回复邮件
        objReply.Send
        ' 标记原始邮件为已处理
        objMAIl.FlagStatus = olFlagComplete
    Next objMAIl
    ' 释放对象
    Set objMAIl = Nothing
    Set objReply = Nothing
    Set objItems = Nothing
    Set objInbox = Nothing
    Set objNamespace = Nothing
End Sub

Outlook本身并不存储VBA代码文件，VBA代码通常存储在Outlook的项目文件中（.olk文件），或者以宏的形式存储在Outlook的Normal.dotm模板文件中。用户也可以直接在VBA编辑器中编写和保存代码。