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

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

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

---

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

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

1. افتح Outlook، ثم اضغط على «Alt» + "F11" لفتح نافذة «Microsoft Visual Basic for Applications».

2. في نافذة «Microsoft Visual Basic for Applications»، انسخ كود VBA أدناه إلى نافذة الكود الخاصة بـ «ThisOutlookSession».

كود 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. احفظ الكود، ثم اضغط «Alt» + «Q» لإغلاق نافذة Microsoft Visual Basic for Applications.

4. بدءًا من الآن، عند النقر على زر «إرسال» في نافذة بريد إلكتروني جديد أو رد، ستظهر نافذة منبثقة باسم «إنشاء مهمة» كما في لقطة الشاشة أدناه؛ انقر «نعم» لإرسال البريد الإلكتروني وإنشاء المهمة تلقائيًا، أو انقر «لا» لإرسال البريد دون إنشاء مهمة.