نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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


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

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

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

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

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

5. وبعد ذلك ، تم تحويل جميع الملاحظات المحددة إلى رسائل البريد الإلكتروني على النحو التالي لقطة الشاشة المعروضة:

وثيقة تحويل الملاحظات إلى رسائل البريد الإلكتروني 2


Kutools for Outlook - يجلب ميزات 100 المتقدمة إلى Outlook ، وجعل العمل أسهل بكثير!

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.