В Outlook, как я могу выбрать все сообщения и переместить их в папку одним щелчком мыши?

Question

Мне нравятся настраиваемые "Быстрые действия" вверху, и я настроил некоторые для перемещения вещей в разные папки или преобразования сообщений в встречи и т.д. Однако я все еще не могу понять, как это сделать, это иметь кнопка, которая выберет все сообщения в папке и переместит их в другую указанную (предварительно настроенную) папку.

По сути, из папки «Входящие» я хочу, чтобы одна кнопка переместила всю мою почту в другую папку, не нажимая Ctrl+A, чтобы сначала выбрать их все.

Это возможно?

Answer 1

Это возможно; вам нужно написать макрос, чтобы сделать это, хотя.

Из « Написание макроса Outlook »:

Макрос - это любая открытая подпрограмма в модуле кода. Функция или частная подпрограмма не могут быть макросом, и макрос не может быть расположен в модуле класса или формы.

Создать новый макрос

1. В Outlook укажите «Макрос» в меню «Сервис» и выберите «Редактор Visual Basic».
2. В окне Project дважды щелкните модуль, в котором вы хотите разместить макрос.
3. В меню «Вставка» выберите «Процедура».
4. В поле Имя введите имя для макроса. Имя не может содержать пробелов.
5. Нажмите ОК. (Шаблон для подпрограммы макроса появляется в окне модуля кода).
6. Введите код, который вы хотите запустить в теле подпрограммы.

Вот некоторый пример (непроверенный) код для начала работы:

Sub MoveItems() 

  Dim Messages As Selection 
  Dim Msg As MailItem 
  Dim NS As NameSpace 

  Set NS = Application.GetNamespace("MAPI") 
  Set Messages = ActiveExplorer.Selection 

  If Messages.Count = 0 Then 
    Exit Sub 
  End If 

  For Each Msg In Messages 
    Msg.Move NS.Folders("Personal Folders").Folders("SavedMail") 
  Next 

End Sub