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

저자: 샤오양 최종 수정 날짜: 2018-10-22

때로는 Outlook의 노트 내용으로 별도의 새 전자 메일을 만들고 싶을 수 있습니다. 일반적으로 모든 메모를 탐색 창의 메일 아이콘으로 드래그 할 수 있지만 모든 메모는 하나의 이메일에 삽입됩니다. Outlook에서 여러 메모를 새 이메일로 개별적으로 어떻게 변환 할 수 있습니까?

VBA 코드를 사용하여 한 번에 여러 메모를 별도의 이메일로 변환

VBA 코드를 사용하여 한 번에 여러 메모를 별도의 이메일로 변환

노트의 내용에 따라 여러 개의 개별 이메일을 생성하려면 다음 VBA 코드를 적용하십시오.

1. 메모 창으로 이동 한 다음 이메일로 변환 할 메모를 선택합니다.

2. 그런 다음 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

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 키를 눌러이 코드를 실행하면 메모를 이메일로 변환 할 것인지 알려주는 메시지 상자가 나타납니다. OK, 스크린 샷 참조 :

문서는 이메일로 메모를 변환 1