Outlook VBA를 사용하여 여러 초안 전자 메일을 일괄 보내는 방법

Outlook 솔루션 2025 년 9 월 29 일

어떤 이유로 Outlook에 많은 초안 이메일을 저장할 수 있습니다. 이 기사에서는 Outlook VBA로 생성된 클릭 한 번으로 모두 일괄 전송하거나 선택한 항목만 일괄 전송하는 방법을 설명합니다.

때로는 지금 당장 이메일을 보내고 싶지 않을 수도 있습니다. 따라서 Drafts 메일 폴더에 저장하고 나중에 보낼 생각입니다. 평소처럼 초안을 보내려면 초안을 개별적으로 열고 하나씩 "보내기" 버튼을 눌러야 합니다. 보낼 초안의 양이 많으면 시간이 많이 걸립니다. 따라서 많은 사용자는 Outlook에서 단추 하나만 클릭하면 모든 초안을 보낼 수 있기를 바랍니다. 그러나 기본적으로 이러한 버튼은 없습니다. 그러나 Outlook VBA를 적용하여 만들 수 있습니다. 정교한 단계와 VBA 코드는 다음과 같습니다.

모든 초안 이메일 일괄 전송

먼저 Outlook 응용 프로그램을 실행하고 "Alt + F11" 바로 가기를 누릅니다.
그런 다음 새 모듈을 열어야 하는 VBA 편집기 창을 엽니다.
그런 다음 다음 VBA 코드를 복사하여 붙여 넣으십시오.

Sub SendAllDraftEmails()
    Dim objDrafts As Outlook.Items
    Dim objDraft As Object
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objDrafts = Outlook.Application.Session.GetDefaultFolder(olFolderDrafts).Items
 
    If objDrafts.Count > o Then
       strPrompt = "Are you sure to send out all the drafts?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objDrafts.Count To 1 Step -1
              objDrafts.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No Drafts!")
    End If
End Sub

그런 다음 VBA 편집기를 종료하고 VBA 프로젝트를 빠른 실행 도구 모음 또는 리본에 추가할 수 있습니다. 여기에서는 빠른 액세스 도구 모음을 예로 들어 보겠습니다.

먼저 "파일" > "옵션" > "빠른 실행 도구 모음" 탭으로 이동합니다.
그런 다음 아래 그림에 표시된 단계에 따라 새 매크로를 빠른 실행 도구 모음에 추가합니다.

마지막으로 기본 Outlook 창으로 돌아갈 수 있습니다. 빠른 실행 도구 모음에 새 버튼이 표시됩니다.

Drafts 폴더에 항목이 없는 경우 버튼을 클릭하면 다음 스크린샷과 같은 메시지가 표시됩니다.
그러나 Drafts 폴더에 항목이 있으면 아래 이미지와 같은 메시지가 표시됩니다. "예"를 선택하면 Outlook에서 모든 초안을 보내기 시작합니다.

선택한 초안 이메일 일괄 전송

선택한 초안만 보내려는 경우 위의 코드는 적합하지 않습니다. 대신 다음 코드를 사용할 수 있습니다.

먼저 새 모듈에 복사합니다.

Sub SendSelectedDraftEmails()
    Dim objSelection As Selection
    Dim strPrompt As String
    Dim nResponse As Integer
    Dim i As Long
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
 
    If objSelection.Count > 0 Then
       strPrompt = "Are you sure to send out the selected " & objSelection.Count & " draft item(s)?"
       nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Confirm Sending")
 
       If nResponse = vbYes Then
          For i = objSelection.Count To 1 Step -1
              objSelection.Item(i).Send
          Next
       End If
    Else
       MsgBox ("No items selected!")
    End If
End Sub

그런 다음 평소와 같이 새 매크로를 빠른 실행 도구 모음에 추가합니다.
이후에 다음을 선택할 수 있습니다. tar초안 이메일을 받고 버튼을 누르면 이미지와 같은 프롬프트가 표시됩니다.
마지막으로 "예"를 클릭하면 선택한 초안 이메일이 발송됩니다.

성가신 Outlook 문제 처리

여러 번 짜증나는 Outlook 문제가 발생했을 수 있습니다. 어떻게 제거할 수 있습니까? 평소와 같이 내장 복구 도구인 Scanpst.exe를 사용해 볼 수 있습니다. 작은 Outlook PST 파일 문제를 해결할 수 있습니다. 그러나 불행하게도 다음과 같은 심각한 문제를 만난 경우 PST 이메일 손상, 받은 편지함 도구는 효과를 내지 않습니다. 그 시점에서 다음과 같은 더 뛰어난 도구를 사용할 수밖에 없습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. mdf 오류 복구 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM