Note: The other languages of the website are Google-translated. Back to English

كيفية إنشاء مهمة تلقائيًا عند إرسال بريد إلكتروني في Outlook؟

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

إنشاء مهمة تلقائيًا عند إرسال بريد إلكتروني في Outlook باستخدام VBA


إنشاء مهمة تلقائيًا عند إرسال بريد إلكتروني في Outlook باستخدام VBA

باستخدام رمز VBA أدناه ، يمكنك إنشاء مهمة تلقائيًا بناءً على إرسال بريد إلكتروني في Outlook. الرجاء القيام بما يلي.

1. قم بتشغيل Outlook ، اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ رمز VBA أدناه في ملف هذه الجلسة نافذة التعليمات البرمجية.

رمز فبا: إنشاء مهمة تلقائيًا عند إرسال بريد إلكتروني في Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

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

3. احفظ الرمز واضغط على قديم + Q مفاتيح لإغلاق نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

4. من الآن فصاعدًا ، عند النقر فوق إرسال في نافذة بريد إلكتروني جديدة أو تم الرد عليها ، أ إنشاء مهمة سيظهر مربع الحوار كما هو موضح أدناه ، انقر فوق نعم لإرسال البريد الإلكتروني وإنشاء مهمة تلقائيًا ، أو انقر فوق لا لإرسال البريد الإلكتروني دون إنشاء مهمة.


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

  • CC السيارات / BCC حسب القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل بريد إلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم صرف ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان بريدك في قائمة BCC; تذكير عند فقدان المرفقات، والمزيد من ميزات التذكير ...
  • رد (الكل) بكل المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية تلقائية عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، فصل تلقائي, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عد الرسائل المختارة
  • رسائل البريد الإلكتروني غير الهامة القوية حسب العرف قم بإزالة الرسائل المكررة وجهات الاتصال تمكنك من أداء أذكى وأسرع وأفضل في Outlook.
لقطة kutools outlook kutools tab 1180x121
لقطة kutools outlook kutools plus tab 1180x121
 
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لتعديل هذا ليشمل ارتباطًا للبريد المرسل أكثر من مجرد المستلمين والموضوع؟ بمعنى آخر. إضافة البريد المرسل كمرفق؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

نجح هذا لبضعة أيام ولم يعد يعمل الآن.

هل هناك سبب؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا تيري عاموس ،
يرجى تمكين خيار تمكين جميع وحدات الماكرو وخيار تطبيق إعدادات أمان الماكرو على الوظائف الإضافية المثبتة كما هو موضح في لقطة الشاشة أدناه. بعد ذلك ، أعد تشغيل Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL