☰

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

tag-icon • tag-icon microsoft-outlook automation
Как в Outlook выделить все сообщения и переместить их в папку одним щелчком мыши?

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

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

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

решение1

Это возможно, но для этого вам придется написать макрос.

От "Написание макроса Outlook":

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

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

  1. В Outlook выберите пункт «Макрос» в меню «Сервис», а затем щелкните «Редактор Visual Basic».
  2. В окне «Проект» дважды щелкните модуль, в который вы хотите поместить макрос.
  3. В меню «Вставка» выберите команду «Процедура».
  4. В поле Имя введите имя макроса. Имя не может содержать пробелов.
  5. Нажмите OK. (Шаблон макроподпрограммы появится в окне модуля кода).
  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

Связанный контент