VBA将活动电子邮件保存到收件箱中的子文件夹

Question

我遇到了将活动电子邮件移动到收件箱中的子文件夹的问题。需要替换("[e-mail]"(为olFolder收件箱或收件箱等，而无需在VBA代码中键入特定的电子邮件地址。

Dim objMail As Outlook.MailItem
Dim objNS As Outlook.NameSpace
Dim objFolderItem As Outlook.Folder
Set objNS = Application.GetNamespace("MAPI")
Set objFolderItem = objNS.Folders.Item("[e-mail]").Folders.Item("tmp")
objMail.Move objMoveItem

Answer 1

试试这个

Option Explicit
Public Sub Exampls()
    Dim olNs As Outlook.NameSpace
    Set olNs = Application.GetNamespace("MAPI")
    Dim Inbox  As Outlook.MAPIFolder
    Set Inbox = olNs.GetDefaultFolder(olFolderInbox)
    Dim Item As MailItem
    Set Item = ActiveExplorer.selection(1)
        Item.Move Inbox.Folders("Temp")
End Sub