Outlook 2007 pin opções “mover para pasta”

Question

No Outlook 2007, a mudança para as opções de pasta é alterada com base na pasta pela qual você moveu o arquivo pela última vez.

É possível corrigir essas opções para uma lista de pastas de minha escolha.

    

Answer 1

Como seu Outlook 2007, acabei usando a macro a seguir para definir a movimentação personalizada para os botões de pasta das pastas que uso com mais freqüência.

' 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 2

As etapas rápidas são o Office 2010. No Office 2007, a mover para pasta na caixa de entrada apenas dá a última pasta usada. Com a mensagem aberta, no entanto, você pode clicar em Mensagem para abrir a faixa de opções, onde também há uma opção Mover para pasta, que fornece as pastas mais recentes usadas. Você pode clicar com o botão direito do mouse em Mover para pasta na faixa de opções e optar por adicioná-lo à Barra de Ferramentas de Acesso Rápido. Você pode acessá-lo rapidamente do teclado tocando em Alt e, em seguida, no número correspondente à opção Mover para pasta na Barra de Ferramentas de Acesso Rápido.

    

Answer 3

Parece um trabalho para as etapas rápidas.