如何在Outlook中针对.S等特定文件类型创建警告弹窗？

Hey there! Let's tackle this Outlook alert requirement for your firmware files (.S extension) — here's a step-by-step solution using VBA, which is the most straightforward way to add custom file-type warnings in Outlook:

You'll need this to access the VBA editor:

• Go to File > Options > Customize Ribbon
• Check the box next to "Developer" in the right-hand column, then click OK

1. Click the Developer tab, then select Visual Basic to open the VBA editor
2. In the left pane, expand Project1 > Microsoft Outlook Objects, then double-click ThisOutlookSession
3. Paste the following code into the code window:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim att As Attachment
    Dim hasRestrictedFile As Boolean
    hasRestrictedFile = False
    
    ' Loop through all attachments in the outgoing email
    For Each att In Item.Attachments
        ' Check for .S extension (case-insensitive to catch .s or .S)
        If LCase(Right(att.FileName, 2)) = ".s" Then
            hasRestrictedFile = True
            Exit For
        End If
    Next att
    
    If hasRestrictedFile Then
        Dim userResponse As Integer
        userResponse = MsgBox("Warning: You're attempting to send a firmware file (.S) via email. " & _
                            "Per company policy, please store this file in the network drive instead. " & _
                            "Do you still want to send this email?", vbYesNo + vbExclamation, "Policy Alert")
        
        ' Cancel the send if user selects "No"
        If userResponse = vbNo Then
            Cancel = True
            MsgBox("Email send cancelled. Please upload the file to the network drive and share the link instead.", vbInformation, "Guidance")
        End If
    End If
End Sub

If you need to warn about additional file types (like .bin or .hex), modify the extension check section to include an array of restricted types:

' Replace the single extension check with this block
Dim restrictedExtensions As Variant
restrictedExtensions = Array(".s", ".bin", ".hex") ' Add/remove extensions as needed
For Each ext In restrictedExtensions
    If LCase(Right(att.FileName, Len(ext))) = ext Then
        hasRestrictedFile = True
        Exit For
    End If
Next ext

• Click the save icon in the VBA editor to save your project
• Close and restart Outlook to activate the macro
• Compose a test email, attach a .S file, and click Send — you should see the warning popup immediately

Outlook blocks macros by default, so you'll need to adjust this setting:

• Go to File > Options > Trust Center > Trust Center Settings > Macro Settings
• Select Notifications for all macros (recommended, so you're alerted when macros run) or Enable all macros (only if you fully trust the code)
• Click OK, then restart Outlook again

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