Блог

Главная - Вопросы по программированию - VBA Сохраняет активную электронную почту во вложенную папку в папке Входящие

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

#vba #outlook

#vba #outlook

Вопрос:

Я застрял с проблемой перемещения активной электронной почты во вложенную папку в папке «Входящие». Необходимо заменить («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

Ответ №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
Метки: