☰

Outlook에서 한 번의 클릭으로 모든 메시지를 선택하고 폴더로 이동하려면 어떻게 해야 합니까?

tag-icon • tag-icon microsoft-outlook automation
Outlook에서 한 번의 클릭으로 모든 메시지를 선택하고 폴더로 이동하려면 어떻게 해야 합니까?

저는 상단에 있는 사용자 정의 가능한 "빠른 작업"을 좋아하고 항목을 다양한 폴더로 이동하거나 메시지를 약속으로 변환하는 등의 작업을 설정했습니다. 하지만 아직 어떻게 해야 할지 알 수 없는 한 가지는 폴더의 모든 메시지를 선택하고 지정된(미리 구성된) 다른 폴더로 이동하는 버튼입니다.

기본적으로 받은 편지함에서 Ctrl+A를 눌러 먼저 모든 메일을 선택할 필요 없이 버튼 하나로 모든 메일을 다른 폴더로 이동할 수 있기를 원합니다.

이것이 가능한가?

답변1

것이 가능하다; 하지만 이를 위해서는 매크로를 작성해야 합니다.

에서 "Outlook 매크로 작성":

매크로는 코드 모듈의 공개 서브루틴입니다. 함수 또는 개인 서브루틴은 매크로가 될 수 없으며 매크로는 클래스 또는 양식 모듈에 위치할 수 없습니다.

새 매크로를 생성하려면

  1. Outlook의 도구 메뉴에서 매크로를 가리킨 다음 Visual Basic Editor를 클릭합니다.
  2. 프로젝트 창에서 매크로를 포함할 모듈을 두 번 클릭합니다.
  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

관련 정보