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

في بعض الأحيان ، قد ترغب في إنشاء رسائل بريد إلكتروني منفصلة جديدة تحتوي على محتويات الملاحظات في Outlook. عادةً ، يمكنك سحب جميع الملاحظات إلى أيقونة البريد في جزء التنقل ، ولكن سيتم إدراج جميع الملاحظات في بريد إلكتروني واحد. كيف يمكنك تحويل ملاحظات متعددة إلى رسائل بريد إلكتروني جديدة بشكل منفصل في Outlook؟

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

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

لإنشاء عدة رسائل بريد إلكتروني منفصلة استنادًا إلى محتويات الملاحظات ، يرجى تطبيق كود فبا التالي:

1. انتقل إلى جزء الملاحظات ، ثم حدد الملاحظات التي تريد تحويلها إلى رسائل بريد إلكتروني.

2. ثم اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. ثم انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة:

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

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