كيف يمكنك التحقق مما إذا كان برنامج Outlook مثبّتًا على جهاز الكمبيوتر الخاص بك؟

عند الانتقال إلى وظيفة جديدة مع جهاز كمبيوتر جديد، قد تحتاج إلى التحقق مما إذا كان برنامج Outlook مثبّتًا على النظام. كيف يمكنك التأكد بسرعة من وجود Outlook أثناء عملك في مستند Microsoft Excel أو مستند Word؟ إليك طريقة سريعة وفعّالة للقيام بذلك!

التحقق من تثبيت Outlook باستخدام كود VBA

---

التحقق من تثبيت Outlook باستخدام كود VBA

اتبع الخطوات التالية للتحقق من تثبيت Outlook على جهاز الكمبيوتر الخاص بك.

1. إذا كنت تستخدم Microsoft Excel أو Word، فاضغط مفاتيحAlt+F11 لفتح نافذةMicrosoft Visual Basic for Applications.

2. في نافذةMicrosoft Visual Basic for Applications، انقر فوقإدراج > وحدة البرمجة (Module). ثم انسخ كود VBA أدناه إلى نافذة الوحدة. راجع لقطة الشاشة:

كود VBA: التحقق من تثبيت Outlook على جهاز الكمبيوتر الخاص بك

Sub Outlook_Check()
    Dim xOLApp As Object
    On Error GoTo L1
    Set xOLApp = CreateObject("Outlook.Application")
    If Not xOLApp Is Nothing Then
        MsgBox "Outlook " & xOLApp.Version & " installed", vbExclamation, "Kutools for Outlook"
        Set xOLApp = Nothing
        Exit Sub
    End If
L1: MsgBox "Outlook not installed", vbExclamation, "Kutools for Outlook"
End Sub

3. اضغط مفتاحF5 لتشغيل الكود.

إذا كان Outlook مثبّتًا على جهاز الكمبيوتر الخاص بك، فستظهر نافذة حوارية من نوعKutools لـ Outlook. ويمكنك رؤية إصدار Outlook المثبّت كما هو موضح في لقطة الشاشة أدناه.

إذا لم يكن Outlook مثبّتًا، فسيظهر مربع تنبيه كما يلي.