VBA Outlook: как создать новую папку Outlook и вставить? - PullRequest
Новая
       55

VBA Outlook: как создать новую папку Outlook и вставить?

0 голосов
/ 22 октября 2019

Я хотел бы назначить вновь вставленную почту новой папке. Когда дело доходит до реализации, я все еще узнаю, что папка создана, но не вставляет почту мгновенно. Не могли бы вы сказать мне способ переназначения папки и назначения новой почты для новой папки?

Вот мой код: ТЕСТ 

If Matches.Count > 0 Then
    Dim MatchFile As String
    Dim MatchSubFile As String
    MatchFile = Matches(0)
    MatchSubFile = Matches(0).SubMatches(0)
    Dim TargetFolder As String
    If Len(MatchFile) > 0 Then
        TargetFolder = MatchFile
    End If

    If InStr(MatchFile, "[") > 0 Then
        TargetFolder = MatchSubFile
    End If

    Set oloUtlook = CreateObject("Outlook.Application")
    Set ns = oloUtlook.GetNamespace("MAPI")
    Set itm = ns.GetDefaultFolder(olFolderInbox)
    On Error Resume Next
    Set SubFolder = itm.Folders.Item(TargetFolder)
    If SubFolder Is Nothing Then
        SubFolder = itm.Folders.Add(TargetFolder)
        Item.Move SubFolder
    End If
    Item.Move SubFolder
End If
...