如何初始化事件处理程序？自动填充主题行代码无运行迹象求助

Hey there! Let's tackle your two questions step by step—first, how to initialize event handlers, then why your auto-subject-from-attachment code isn't running without any signs of execution.

Since your second question relates to email attachments and subject lines, I'll assume you're working with Outlook VBA (the most common scenario for this task). Here's how to properly set up event handlers:

• Use the correct module: All application-level event code must live in the ThisOutlookSession module (you can find this in the VBA editor under Project > Microsoft Outlook Objects).
• Declare global event variables: At the top of ThisOutlookSession, declare variables that link to Outlook's objects with event support:

  Private WithEvents myInspectors As Outlook.Inspectors
  Private WithEvents myMailItem As Outlook.MailItem
  

• Initialize the event object on startup: Add this subroutine to trigger when Outlook launches, which hooks up your inspector (mail window) event:

  Private Sub Application_Startup()
      Set myInspectors = Application.Inspectors
  End Sub
  

• Link to new mail items: Use the NewInspector event to connect to any newly opened email window:

  Private Sub myInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
      ' Check if the open item is a mail message
      If TypeName(Inspector.CurrentItem) = "MailItem" Then
          Set myMailItem = Inspector.CurrentItem
      End If
  End Sub
  

Now your event handler is initialized, and you can add code to respond to events like AttachmentAdd on myMailItem.

If your code isn't running and shows no errors, here are the most likely fixes:

• Check the code location: If you put the code in a regular module instead of ThisOutlookSession, it won't trigger—move it to the correct module immediately.
• Restart Outlook: After modifying ThisOutlookSession, you need to close and reopen Outlook to run the Application_Startup subroutine, which initializes your event variables.
• Verify the AttachmentAdd event syntax: Make sure your event subroutine is named correctly (it must match the variable name you declared). A working example looks like this:

  Private Sub myMailItem_AttachmentAdd(ByVal Attachment As Outlook.Attachment)
      ' Only fill the subject if it's empty
      If myMailItem.Subject = "" Then
          myMailItem.Subject = "Attached: " & Attachment.FileName
      End If
  End Sub
  

• Check macro security settings: Outlook might be blocking your code silently. Go to File > Options > Trust Center > Trust Center Settings > Macro Settings and select "Notifications for all macros" (or "Enable all macros" temporarily for testing—just be cautious with untrusted code).
• Test with an empty subject: If your code only runs when the subject is blank, try creating a new email with no subject before adding an attachment.

内容的提问来源于stack exchange，提问作者zootechdrum