跳到主要內容

如何在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 鍵以運行此代碼,並彈出一個消息框提醒您是否要將註釋轉換為電子郵件,請單擊 OK,請參見屏幕截圖:

doc將筆記轉換為電子郵件1

5。 然後,所有選擇的註釋已被轉換為電子郵件,如以下屏幕截圖所示:

doc將筆記轉換為電子郵件2


最佳辦公生產力工具

Kutools for Outlook - 超過 100 種強大的功能可增強您的 Outlook

📧 電子郵件自動化: 外出(適用於 POP 和 IMAP)  /  安排發送電子郵件  /  發送電子郵件時按規則自動抄送/密件副本  /  自動轉送(進階規則)   /  自動添加問候語   /  自動將多收件者電子郵件拆分為單獨的訊息 ...

📨 電子郵件管理: 輕鬆回憶電子郵件  /  按主題和其他人阻止詐騙電子郵件  /  刪除重複的電子郵件  /  進階搜索  /  合併資料夾 ...

📁 附件專業版批量保存  /  批量分離  /  批量壓縮  /  自動保存   /  自動分離  /  自動壓縮 ...

🌟 介面魔法: 😊更多又漂亮又酷的表情符號   /  使用選項卡式視圖提高 Outlook 工作效率  /  最小化 Outlook 而不是關閉 ...

👍 一鍵奇蹟: 使用傳入附件回覆全部  /   反網路釣魚電子郵件  /  🕘顯示寄件者的時區 ...

👩🏼‍🤝‍👩🏻 通訊錄和行事曆: 從選定的電子郵件中大量新增聯絡人  /  將聯絡人群組拆分為各組  /  刪除生日提醒 ...

超過 100特點 等待您的探索! 按此處了解更多。

閱讀更多       免費下載      購買
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations