Параметры вывода Outlook 2007 "Переместить в папку"

Question

В Outlook 2007 параметры перехода в папку изменяются в зависимости от того, в какую папку вы последний раз перемещали файл.

Можно ли исправить эти параметры в списке папок на мой выбор.

Answer 1

Быстрые шаги в Office 2010. В Office 2007 при перемещении в папку на панели инструментов «Входящие» отображается только последняя использованная папка. Однако, открыв сообщение, вы можете нажать на «Сообщение», чтобы открыть ленту, на которой также есть «Переместить в папку», в которой отображаются самые последние используемые папки. Вы можете щелкнуть правой кнопкой мыши этот элемент «Переместить в папку» на ленте и выбрать его добавление на панель быстрого доступа. Вы можете быстро получить к нему доступ с клавиатуры, нажав Alt, а затем номер, соответствующий значку «Переместить в папку» на панели быстрого доступа.

Answer 2

В качестве его Outlook 2007 я использовал следующий макрос для определения пользовательских кнопок перемещения в папки, которые я использую чаще всего.

' This/These macro(s) implement the procedure for different folders
Sub MoveSelectedMessagesToArchive()
    MoveSelectedMessagesToFolder ("Archive")
End Sub

' This macro does the heavy lifting, and is only called from another VBA procedure
Sub MoveSelectedMessagesToFolder(FolderName As String)

'On Error Resume Next
    Dim objFolder As Outlook.MAPIFolder, objInbox As Outlook.MAPIFolder
    Dim objNS As Outlook.NameSpace, objItem As Outlook.MailItem

    Set objNS = Application.GetNamespace("MAPI")
    Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolder = objInbox.Folders(FolderName)

'Assume this is a mail folder

    If objFolder Is Nothing Then
        MsgBox "This folder doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
    End If

    If Application.ActiveExplorer.Selection.Count = 0 Then
        'Require that this procedure be called only when a message is selected
        Exit Sub
    End If

    If Application.ActiveExplorer.Selection(1).Class = 43 Then
    ' 43 is the literal constant for a mail item
    ' sometimes a calendar item is in the inbox, in which case there is a type
    ' conflict with the objItem variable, which is declared as a mail item.

       For Each objItem In Application.ActiveExplorer.Selection
           If objFolder.DefaultItemType = olMailItem Then
               If objItem.Class = olMail Then
                    objItem.UnRead = False
                    objItem.Move objFolder
               End If
           End If
       Next
    Else
        MsgBox ("This is not a message; it may be a calendar request")
    End If

    Set objItem = Nothing
    Set objFolder = Nothing
    Set objInbox = Nothing
    Set objNS = Nothing

End Sub

Answer 3

Похоже, работа для быстрых шагов.