Как сохранить отправленные сообщения в Outlook

Question

Как сохранить отправленное письмо в выбранную папку? Item.SaveSentMessageFolder не работает. Нет ошибок при отладке

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)     
     Dim message As String
     Dim header As String
     Dim selectFolderName As String
     Dim selectFolderItem As Outlook.MAPIFolder
     Dim oOutlook As New Outlook.Application
     Dim MyData As DataObject
     Set MyData = New DataObject

     message = "Do you want to save the letter to a folder?"
     header = "Save"

     If MsgBox(message, vbYesNo + vbQuestion, header) = vbYes Then
         SavePopUp.Show
         MyData.GetFromClipboard

        selectFolderName = MyData.GetText(1)
         Set oNameSpace = oOutlook.GetNamespace("MAPI")
         Set selectFolderItem = oNameSpace.Folders(1).Folders.Item("Projects").Folders.Item(selectFolderName)
         Set Item.SaveSentMessageFolder = selectFolderItem
     End If

End Sub

Answer 1

Это то, что вы пытаетесь сделать?

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim Select_Folder As folder

    Dim message As String
        message = "Do you want to save the letter to a folder?"
    Dim header As String
        header = "Save"

    If TypeName(Item) = "MailItem" And Item.DeleteAfterSubmit = False Then

       If MsgBox(message, vbYesNo + vbQuestion, header) = vbYes Then
          'Display dialog box
          Set Select_Folder = Application.Session.PickFolder
          Set Item.SaveSentMessageFolder = Select_Folder
       End If

    End If
End Sub

Answer 2

Во-первых, не указывайте жестко индекс магазина (1). Получите доступ к нему по имени.
Во-вторых, SaveSentMessageFolder может быть установлен только в папку из того же хранилища, где находится сообщение.