Outlook 에서 여러 메모를 한 번에 개별 이메일로 변환하는 방법은 무엇입니까？

때때로 Outlook 의 메모 내용을 기반으로 개별 새 이메일를 만들고 싶을 수 있습니다. 일반적으로 모든 메모를 탐색의 메일 아이콘으로 끌어다 놓을 수 있지만, 그러면 모든 메모가 하나의 이메일에 삽입됩니다. Outlook 에서 여러 메모를 개별적으로 새 이메일로 어떻게 변환할 수 있습니까？

VBA 코드로 여러 메모를 한 번에 개별 이메일로 변환하기

---

VBA 코드로 여러 메모를 한 번에 개별 이메일로 변환하기

메모 내용을 기반으로 여러 개의 개별 이메일을 만들려면 다음 VBA 코드를 적용하세요：

1.메모 창으로 이동한 후 이메일로 변환하려는 메모를 선택합니다。

2。 그런 다음ALT + F11키를 누른 상태로Microsoft Visual Basic for Applications창을 엽니다。

3。 그런 다음삽입>모듈을 클릭하고 아래 코드를 열린 빈 모듈에 복사하여 붙여넣습니다：

VBA 코드： 여러 메모를 한 번에 개별 이메일로 변환하기：

Sub BatchCreateEmailsFromNotes()
    Dim xSelection As Outlook.Selection
    Dim i As Long
    Dim xItem As Object
    Dim xNote As Outlook.NoteItem
    Dim xMail As Outlook.MailItem
    Dim xYesNo As Integer
    On Error Resume Next
    Set xSelection = Outlook.Application.ActiveExplorer.Selection
    If xSelection Is Nothing Or xSelection.Count = 0 Then Exit Sub
    xYesNo = MsgBox("Are you sure to convert the selected notes to emails?", vbOKCancel + vbQuestion, "Kutools for Outlook")
    If xYesNo = VbMsgBoxResult.vbCancel Then
      Exit Sub
    End If
    For Each xItem In xSelection
        If xItem.Class = olNote Then
           Set xNote = xItem
           Set xMail = Outlook.Application.CreateItem(OlMailItem)
           With xMail
                .Subject = "Note: " & Mid(xNote.Body, 1, 10)
                .Body = xNote.Body
                .Attachments.Add xNote
                .Display
           End With
        End If
     Next
End Sub

4。 그런 다음F5키를 눌러 이 코드를 실행하면 메모를 이메일로 변환할 것인지 묻는 메시지 상자가 나타납니다。 계속하려면확인을 클릭하세요(스크린샷 참조)：

5。 그러면 선택한 모든 메모가 다음과 같은 스크린샷과 같이 이메일로 변환됩니다：