☰

Outlook에서 편집 중인 새 이메일 초안 삭제

tag-icon • tag-icon microsoft-outlook microsoft-outlook-2013
Outlook에서 편집 중인 새 이메일 초안 삭제

Outlook 2013 사용. 새 이메일을 작성할 때 더 이상 이메일을 보내고 싶지 않은 경우를 대비해 일반적으로 해당 이메일을 빠르게 제거할 수 있는 방법이 있습니다. Outlook에서 이 작업을 수행할 수 있는 방법이 있나요?

메시지를 닫으려고 했지만(요청 시 저장/보관하지 않음) 삭제된 항목 폴더에 읽지 않은 새 항목이 생성되어 크리스마스 트리처럼 켜졌습니다. 그런 다음 수동으로 해당 폴더로 이동하여 초안을 정리해야 합니다.

Gmail의 휴지통 아이콘과 같은 것을 찾고 있습니다. 메시지를 완전히 제거하는 간단한 원클릭 고통 없는 방법입니다. (만약에 대비해 초안을 저장하고 싶은 경우가 있지만 그렇지 않은 경우가 더 많습니다.)

업데이트: 상단의 "빠른 액세스 도구 모음"에 "삭제" 버튼을 표시하면 메시지 항목이 삭제됩니다. 이는 새 이메일을 방금 입력하기 시작한 시점에 작동합니다. 삭제를 클릭하면 필수 경고 이후 메시지가 삭제됩니다. 하지만(!), 이메일이 자동 저장되자마자 (잠시 후) 임시 보관함 폴더로 들어갑니다. 이 시점에서 메시지를 삭제하면 메시지가 삭제된 항목으로 이동되기 때문에 메시지가 유지됩니다.

새 이메일을 작성할 때 Outlook이 Gmail의 휴지통 버튼을 흉내내도록 할 수 있는 설정이 있습니까? 매우 간단한 사용 사례입니다. "방금 시작한 이메일을 보내고 싶지 않습니다. 마음이 바뀌었고, 제거하고, 모든 흔적을 지우고 싶습니다." 이것이 또 다른 Microsoft 기능의 단점입니까?

답변1

  1. 다음과 같은 작업을 수행하는 VBA 스크립트를 작성할 수 있습니다.버리다메시지를 읽음으로 표시하고 제거하여삭제 된 아이템. 그런 다음 매크로를 실행하는 메시지 창에 버튼을 배치합니다(리본 사용자 정의 -> 매크로 사용).

이 같은:

Sub Discard()
    On Error Resume Next
    Dim objItem As MailItem

    Set objInspector = ActiveInspector
    If Not objInspector Is Nothing Then
        Set objItem = objInspector.CurrentItem
        If Not objItem Is Nothing And Not objItem.Sent Then
            objItem.UnRead = False
            objItem.Delete
        End If
    End If
End Sub
  1. 무료빠른 조정 추가 기능삭제된 모든 항목을 자동으로 읽음으로 표시할 수 있습니다.
  2. SHIFT+ DEL선택한 메시지를 배치하지 않고 메시지 목록에서 제거합니다.삭제 된 아이템.

답변2

삭제된 폴더에 추가된 항목을 읽은 상태로 자동으로 표시하는 방법을 알아냈습니다. 이 솔루션을 사용하면 매크로에 연결된 버튼을 추가할 필요가 없습니다.

VBA 편집기의 "ThisOutlookSession"에 다음 코드를 추가하기만 하면 됩니다.

Private WithEvents deletedItems As Outlook.Items

Private Sub Application_Startup()
    Dim olApp As Outlook.Application
    Dim objNS As Outlook.NameSpace
    Set olApp = Outlook.Application
    Set objNS = olApp.GetNamespace("MAPI")
    'Default folder for deleted items
    Set deletedItems = objNS.GetDefaultFolder(olFolderDeletedItems).Items
End Sub

Private Sub deletedItems_ItemAdd(ByVal Item As Object)
    Dim deletedEmail As Outlook.MailItem
    If TypeName(Item) = "MailItem" Then
        Set deletedEmail = Item
        deletedEmail.UnRead = False
    End If
End Sub

작동하려면 Outlook을 다시 시작해야 합니다.

초안뿐만 아니라 삭제된 모든 이메일에 적용된다는 점에 유의하세요.

답변3

현재 버전의 Outlook에는 창 오른쪽 가장자리 중앙에 여러 개의 작업 버튼이 있고 그 안에는 취소를 의미하는 빨간색 X가 있습니다.

Outlook 사용자 인터페이스가 매우 형편없고 직관적이지 않다는 데 동의합니다. 하지만 임시 메시지를 삭제하기 위해 매크로를 만들 필요는 없습니다.

답변4

내가 사용한 버전에는 삭제 후 삭제된 항목에서 메일 항목을 제거하는 코드가 있습니다.

Sub Discard()
    On Error Resume Next
    Dim objItem As MailItem

    Set objInspector = ActiveInspector
    If Not objInspector Is Nothing Then
        Set objItem = objInspector.CurrentItem
        If Not objItem Is Nothing And Not objItem.Sent Then
            'no EntryID exists for freshly created mail, but does for a draft
            MyEntryId = objItem.EntryID
            objItem.UnRead = False
            objItem.Delete
            If Not MyEntryId = "" Then
                Dim oDeletedItems As Outlook.Folder
                'Obtain a reference to deleted items folder
                Set oDeletedItems = Application.Session.GetDefaultFolder(olFolderDeletedItems)
                'Delete last item from Deleted Items
                oDeletedItems.Items.Item(oDeletedItems.Items.Count).Delete
            End If
        End If
    End If
End Sub

관련 정보