Вопрос:
Могу ли я узнать, какой код следует поместить в макрос, чтобы сразу же перенести файлы из моего почтового ящика в другую определенную папку после того, как я увидел, что он входит в мой почтовый ящик? Я не хочу автоматически пересылать его в другую папку, я хочу, чтобы это произошло, когда я нажал конкретную комбинацию клавиш. Помоги пожалуйста? Я не хорошо разбираюсь в Visual Basic?
Ответ №1
Для этого вам не нужен макрос, это можно сделать с помощью правил.
Я предполагаю Outlook 2013, но это будет в основном применяться к большинству версий:
- Перейдите в папку “Входящие”> “Правила”> “Создать правило”> “Дополнительные параметры”.
- Checkmark “Где мое имя находится в поле” Кому “(или любой другой вариант, который вы выберете)
- Нажмите “Далее
- Checkmark “переместите его в указанную папку”, а затем щелкните синий URL-адрес в названии “указанная папка” и выберите папку
- Нажмите “Далее
- Выберите любые другие правила, которые вы хотите, и нажмите “Далее”.
- Проверьте настройку своего правила и нажмите “Готово”.
Ответ №2
‘ http://msdn.microsoft.com/en-us/library/office/ff860683(v=office.15).aspx
Sub MoveMessageToTestFolder() ‘ Works on one selected item Dim myNameSpace As Outlook.Namespace Dim myInbox As Outlook.Folder Dim myDestFolder As Outlook.Folder Dim myItem As Object Set myNameSpace = Application.GetNamespace(«MAPI») Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox) ‘ Add As many .Folders(«SubfolderName») as needed Set myDestFolder = myInbox.Folders(«Test») Set myItem = Application.ActiveExplorer.Selection.Item(1) If TypeOf myItem Is mailitem Then myItem.Move myDestFolder End If Set myNameSpace = Nothing Set myInbox = Nothing Set myDestFolder = Nothing Set myItem = Nothing End Sub
http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/