Outlook 에서 여러 초안을 한 번에 보내는 방법은 무엇인가요？

임시 보관함 폴더에 여러 개의 초안 메시지가 있고, 지금 이 메시지들을 하나씩 보내지 않고 한 번에 모두 보내고 싶다면 Outlook 에서 이 작업을 어떻게 빠르고 쉽게 처리할 수 있을까요？

VBA 코드를 사용하여 Outlook 에서 모든 초안 메시지를 한 번에 보내기

---

VBA 코드를 사용하여 Outlook 에서 모든 초안 메시지를 한 번에 보내기

다음 VBA 코드를 사용하면 임시 보관함 폴더에서 모든 초안 이메일 또는 선택한 초안 이메일을 한 번에 보낼 수 있습니다。 다음 단계대로 진행하세요：

1.ALT + F11키를 누른 상태로Microsoft Visual Basic for Applications창을 엽니다。

2。 그런 다음삽입>모듈을 클릭하고， 아래 코드를 열린 빈 모듈에 복사하여 붙여넣으세요。 스크린샷 참조：

VBA 코드: Outlook 에서 모든 초안 이메일을 한 번에 보내기：

Sub SendAllDraftEmails()
Dim xAccount As Account
Dim xDraftFld As Folder
Dim xItemCount As Integer
Dim xCount As Integer
Dim xDraftsItems As Outlook.Items
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xCurFld As Folder
Dim xTmpFld As Folder
On Error Resume Next
xItemCount = 0
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    xItemCount = xItemCount + xDraftFld.Items.Count
    If xDraftFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
Set xDraftFld = Nothing
If xItemCount > 0 Then
   xPromptStr = "Are you sure to send out all the drafts?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        If Not xTmpFld Is Nothing Then
            Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        End If
        VBA.DoEvents
        For Each xAccount In Outlook.Application.Session.Accounts
            Set xDraftFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
            Set xDraftsItems = xDraftFld.Items
            For i = xDraftsItems.Count To 1 Step -1
                If xDraftsItems.Item(i).Recipients.Count <> 0 Then
                    xDraftsItems.Item(i).sEnd
                    xCount = xCount + 1
                End If
            Next
        Next xAccount
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No Drafts!", vbInformation + vbOKOnly, "Kutools for Outlook"
End If
End Sub

3。 그런 다음 코드를 저장하고F5키를 눌러 이 코드를 실행합니다。 모든 초안을 보내겠느냐는 확인 창이 나타나면예를 클릭하세요。 스크린샷 참조：

4。 그러면 몇 개의 초안 이메일이 전송되었는지 알리는 대화 상자가 표시됩니다。 스크린샷 참조：

5。 이후확인버튼을 클릭하면임시 보관함폴더의 모든 이메일이 한 번에 전송됩니다。 스크린샷 참조：

참고 사항：

1. 위 코드는 Outlook 에 설정된 모든 계정의 임시 보관함에서 초안 이메일을 모두 전송합니다。

2. 임시 보관함 폴더에서 특정 이메일만 보내고 싶은 경우， 다음 VBA 코드를 사용하세요：

VBA 코드： 임시 보관함 폴더에서 선택한 이메일만 보내기：

Sub SendSelectedDraftEmails()
Dim xSelection As Selection
Dim xPromptStr As String
Dim xYesOrNo As Integer
Dim i As Long
Dim xAccount As Account
Dim xCurFld As Folder
Dim xDraftsFld As Folder
Dim xTmpFld As Folder
Dim xArr() As String
Dim xCount As Integer
Dim xMail As MailItem
On Error Resume Next
xCount = 0
Set xTmpFld = Nothing
Set xCurFld = Application.ActiveExplorer.CurrentFolder
For Each xAccount In Outlook.Application.Session.Accounts
    Set xDraftsFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderDrafts)
    If xDraftsFld.EntryID = xCurFld.EntryID Then
        Set xTmpFld = xCurFld.Parent
    End If
Next xAccount
If xTmpFld Is Nothing Then
    MsgBox "The current folder is not a draft folder", vbInformation, "Kutools for Outlook"
    Exit Sub
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection.Count > 0 Then
    xPromptStr = "Are you sure to send out the selected " & xSelection.Count & " draft item(s)?"
    xYesOrNo = MsgBox(xPromptStr, vbQuestion + vbYesNo, "Kutools for Outlook")
    If xYesOrNo = vbYes Then
        ReDim xArr(xSelection.Count - 1)
        For i = 1 To xSelection.Count
            xArr(i - 1) = xSelection.Item(i).EntryID
        Next
        Set Application.ActiveExplorer.CurrentFolder = xTmpFld
        VBA.DoEvents
        For i = 0 To UBound(xArr)
            Set xMail = Application.Session.GetItemFromID(xArr(i))
            If xMail.Recipients.Count <> 0 Then
                xMail.sEnd
                xCount = xCount + 1
            End If
        Next
        VBA.DoEvents
        Set Application.ActiveExplorer.CurrentFolder = xCurFld
        MsgBox "Successfully sent " & xCount & " messages", vbInformation, "Kutools for Outlook"
    End If
Else
    MsgBox "No items selected!", vbInformation, "Kutools for Outlook"
End If
End Sub

---

---

관련 문서：

Outlook 에서 여러 수신자에게 개별적으로 이메일을 보내는 방법은 무엇인가요？

Excel 목록을 통해 Outlook 으로 개인화된 대량 이메일을 보내는 방법은 무엇인가요？

Outlook 에서 여러 수신자에게 개별적으로 캘린더를 보내는 방법은 무엇인가요？

Outlook 에서 여러 수신자에게 서로가 알지 못하게 이메일을 보내는 방법은 무엇인가요？