VBA Сохранить активную электронную почту в подпапку во входящих

Question

Я застрял с проблемой, чтобы переместить активную электронную почту в подпапку в папке "Входящие". Необходимо заменить ("xxxx@xxx.xxx") на что-то вроде olFolderInbox или inbox и т. Д. Без указания типа адреса электронной почты в коде 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("xxxx@xxx.xxx").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