كيفية إنشاء مهمة تلقائيًا عند إرسال بريد إلكتروني في 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.

اقرأ أكثر... التحميل الان...