☰

宏 - 将用户指定的电子邮件移动到文件夹

tag-icon • tag-icon vba microsoft-outlook-2013
宏 - 将用户指定的电子邮件移动到文件夹

我以前写过一些小脚本，但从未写过 Outlook VBA。我希望有人能给我指点迷津，或者提供几行代码来帮助我入门。

我们在共享邮箱中收到工单的电子邮件通知。电子邮件的主题以请求号 XXXXXX 开头。我想创建一个宏，当您运行该宏时，它会提示输入请求编号。

一旦找到电子邮件，它就会自动将电子邮件移动到共享邮箱中的用户文件夹。请注意，移动到的文件夹名称是用户的用户名。

希望我解释清楚了。提前谢谢。

答案1

您可以这样探索 Outlook 中的不同对象：

Sub exploreItems()
'Namespace is the big picture
Set ns = Outlook.GetNamespace("MAPI")
'Then come the folders:
For Each fold In ns.Folders
    'If you have any subfolder:
    For Each f In fold.Folders
        'Now the mail items:
        For Each it In f.Items
            'once you arrive to the mail item, you can do anything with it
            MsgBox it.Subject
        Next it
    Next f
Next fold
End Sub

由于您熟悉编写脚本，因此请查看MailItem 对象的方法和属性要了解您可以使用它做什么，您可以根据需要复制、移动、保存、另存为等。

相关内容