كيف يمكن تحويل ملاحظات متعددة إلى رسائل بريد إلكتروني منفصلة دفعة واحدة في 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. بعد ذلك، تم تحويل جميع الملاحظات المحددة إلى رسائل بريد إلكتروني، كما هو موضح في لقطة الشاشة التالية: