كيفية تحويل عدة ملاحظات إلى رسائل بريد إلكتروني منفصلة دفعة واحدة في Outlook؟

Author: Xiaoyang Last Modified: 2025-05-30

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

doc convert notes to emails 1

5. وبعد ذلك، تم تحويل جميع الملاحظات المختارة إلى رسائل بريد إلكتروني كما هو موضح في الصورة التالية:

doc convert notes to emails 2

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

ردود ذكية: احصل على ردود مصممة من محادثاتك السابقة - مخصصة، دقيقة وجاهزة للإرسال.
تحسين المحتوى: قم بتحسين نصوص البريد الإلكتروني تلقائيًا لتحقيق الوضوح والتأثير.
الكتابة السهلة: فقط قدم الكلمات المفتاحية، ودع الذكاء الاصطناعي يتولى الباقي، مع أساليب كتابة متعددة.
التوسعات الذكية: قم بتوسيع أفكارك باقتراحات تعتمد على السياق.
الملخصات: احصل على ملخصات مختصرة للرسائل الطويلة فورًا.
التواصل العالمي: قم بترجمة رسائل البريد الإلكتروني إلى أي لغة بسهولة.

هذه الميزة تدعم: