كيفية الرد تلقائيًا على الرسائل المستلمة عندما تكون مشغولًا في Outlook؟

Author: Sun Last Modified: 2025-05-30

أحيانًا، قد ترغب في الرد تلقائيًا على الرسائل المستلمة في Outlook عندما تكون مشغولًا لفترة معينة. ومع ذلك، لا يوجد وظيفة مدمجة يمكنها التعامل مع هذه المهمة، لكن لدي هنا كود VBA للتعامل معها.

الرد التلقائي عندما تكون مشغولًا باستخدام كود VBA

الرد التلقائي عندما تكون مشغولًا باستخدام كود VBA

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

1. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر نقرًا مزدوجًا على ThisOutlookSession من لوحة Project1، ثم قم بنسخ ولصق الكود أدناه في البرنامج النصي.

VBA: رد تلقائي عندما تكون مشغولاً بالتقويم

Public WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
    Set xMailItem = Item
    Set xReplyMailItem = xMailItem.Reply
    xReplyHTMLBody = xReplyMailItem.HTMLBody
    Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
    xAppointments.Sort "[Start]"
    xAppointments.IncludeRecurrences = True
    xDateFormat = Format(Now, "ddddd h:nn AMPM")
    xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
    Set xRestrictAppointments = xAppointments.Restrict(xFilter)
    If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
    For Each xAppointment In xRestrictAppointments
        If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
            xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
                                      xReplyHTMLBody
            xReplyMailItem.Send
        End If
    Next
End If
End Sub

3. احفظ هذا الكود وأعد تشغيل Outlook. من الآن فصاعدًا، إذا كانت الرسائل الإلكترونية تصل خلال نطاق الوقت الخاص بمواعيدك، سيتم إرسال رد تلقائي.

ملاحظة:

(1) في الكود، يمكنك تغيير نص الرد حسب الحاجة في هذا السكريبت "آسف لأنني لا أستطيع الرد عليك الآن. سأرد عليك لاحقًا." & _

(2) يمكن لهذه الوحدة البرمجية VBA الرد تلقائيًا على الرسائل الإلكترونية المستلمة في صندوق الوارد الخاص بملف البيانات الافتراضي.

مساعد البريد الإلكتروني الذكي في Outlook: ردود أذكى، تواصل أوضح (سحر بنقرة واحدة!) مجانًا

قم بتبسيط مهام Outlook اليومية باستخدام مساعد البريد الإلكتروني الذكي من أدوات Kutools لـ Outlook. هذا الأداة القوية تتعلم من رسائل البريد الإلكتروني السابقة لتقدم ردودًا ذكية ودقيقة، تحسين محتوى البريد الإلكتروني، وتساعدك على صياغة وتحسين الرسائل بسهولة.

هذه الميزة تدعم:

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

هذه الميزة تدعم: