Microsoft Outlook: настройка операции удаления?

Question

Я использую Microsoft Outlook уже много лет. Мне нравится хранить все письма, которые я получаю, никогда ничего не удаляя (я получаю 50-200 писем в день). В целях эффективности все, что я делаю, - это удаляю (т.е. нажимаю кнопку "Удалить" на моей клавиатуре) каждое полученное электронное письмо, которое не требует специальной обработки или регистрации. Примерно раз в неделю я копирую всю папку "Удаленные" в большую папку, которую я назвал "Вся не отправленная почта". Если я сталкиваюсь со спамом или другим письмом, которое "действительно" требует удаления, я просто использую Shift-Delete.

Я хорошо знаю об опасностях этого метода (например, риск очистки папки по ошибке), однако это единственная известная мне операция по удалению электронной почты из папки «Входящие» (Ctrl-что-то - это не одна клавиша) для этого) и я к этому привык.

Я хотел узнать, есть ли способ настроить действие кнопки «Удалить» для отправки элемента в определенную папку?

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

Answer 1

Будет ли достаточно автоархивирования? Вы можете настроить автоматический архив специально для "элементов старше 1 дня или недели" в папке "Удаленные". Даже отключите архив в других папках, если вы не хотите использовать средство архивации где-либо еще.

Answer 2

То, что вы делаете сейчас, действительно лучший ответ на ваш вопрос. Чтобы избежать очистки папки удаленных элементов, вы можете изменить действие по умолчанию в Сервис | Параметры и выберите вкладку Oter. Снимите флажок "Очистить папку удаленных элементов при выходе".

Answer 3

Я не знаю, какой процент писем попадает в папку « Все не отправленные письма». Но, учитывая, что этот процент выше, чем сортируемая почта (также может быть жизнеспособной независимо от процента), вы можете рассмотреть возможность создания правила для хранения всей полученной почты в папке « Все не отправленные письма» и просто отсортировать / пометить все остальные почта. После этого вся необработанная почта будет помечена как непрочитанная, и все, что вам нужно сделать, - это сохранить те письма, которые необходимо заполнить, и не трогать те, которые не

Я предполагаю, что вы должны прочитать / открыть / отсортировать всю почту, прежде чем предпринимать какие-либо действия, поэтому таким образом вы избавляетесь от необходимости удалять, а затем перемещать всю не поданную почту и очевидную опасность сценария "удалить все" .

Answer 4

Звучит как хороший кандидат для моего макроса Outlook VBScript, который я собрал несколько лет назад на основе нескольких примеров кодов. Этот макрос в настоящее время перемещает выбранные сообщения или текущее открытое сообщение в созданный мной PST-файл, который называется «Архивировать личные папки». Это может быть изменено на любую папку, которую вы хотите. Поместив этот макрос в Outlook, вы начнете. Вам нужно будет изменить код, чтобы сделать то, что вы хотите. Кроме того, вам нужно сгенерировать сертификат цифровой подписи, чтобы упростить процесс подписи кода. Я поместил кнопку на панели инструментов, чтобы запустить этот скрипт, чтобы я мог переместить сразу несколько сообщений в свою папку «Архив».

Sub MoveSelectedMessagesToArchiveInbox()
    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 = objNS.Folders("Archive Personal Folders").Folders("Inbox")

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

    Select Case TypeName(Outlook.Application.ActiveWindow)
        'Viewing Inbox, so act upon selected messages
        Case "Explorer"
            If Application.ActiveExplorer.Selection.Count = 0 Then
                'Require that this procedure be called only when a message is selected
                Exit Sub
            End If

            For Each objItem In Application.ActiveExplorer.Selection
                If objFolder.DefaultItemType = olMailItem Then
                    If objItem.Class = olMail Then
                        objItem.Move objFolder
                    End If
                End If
            Next
        'A message is open, act upon current open message
        Case "Inspector"
            Set objItem = Outlook.Application.ActiveInspector.CurrentItem
                If objFolder.DefaultItemType = olMailItem Then
                    If objItem.Class = olMail Then
                        objItem.Move objFolder
                    End If
                End If
        Case Else
            ' Do Nothing
    End Select

    Set objItem = Nothing
    Set objFolder = Nothing
    Set objInbox = Nothing
    Set objNS = Nothing
End Sub