قم بإطلاق Macro Outlook 2003 عندما يقوم المستخدم بإنشاء رسالة فارغة جديدة
-
01-10-2019 - |
سؤال
لقد وجدت الأحداث التي تطلق النار عندما يتلقى المستخدم رسالة ، أو يضرب زر الإرسال ، ولكن لا شيء يطلق النار عندما يقوم المستخدم بإنشاء بريد إلكتروني جديد فارغ.
المحلول
يجب أن تكون قادرًا على استخدام حدث Newinspector. مثال:
Public WithEvents myOlInspectors As Outlook.Inspectors
Private Sub Application_Startup()
Initialize_handler
End Sub
Public Sub Initialize_handler()
Set myOlInspectors = Application.Inspectors
End Sub
Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
Dim msg As Outlook.MailItem
If Inspector.CurrentItem.Class = olMail Then
Set msg = Inspector.CurrentItem
If msg.Size = 0 Then
MsgBox "New message"
End If
End If
End Sub
لا تنتمي إلى StackOverflow