outlook提示空的附件和主题

alt+f11打开VBA编辑器,输入下列代码:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

    Dim lngres As Long

    '检查邮件是否添加附件

    If InStr(1, Item.Body, "附件") <> 0 Then

        If Item.Attachments.Count = 0 Then
    
            Application.Explorers(1).Activate
        
            lngres = MsgBox("邮件内容中包含附件,但是没有发现附件!" & Chr(10) & "仍然发送?", vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
        
            If lngres = vbNo Then
        
                Cancel = True
            
                Item.Display
        
            Exit Sub

            End If
    
        End If

    End If

   

    '检查是否写主题

    If Item.Subject = "" Then

        Application.Explorers(1).Activate
    
        lngres = MsgBox("邮件还没有写主题呢!" & Chr(10) & "仍然发送?", vbYesNo + vbDefaultButton2 + vbQuestion, "提示")
    
        If lngres = vbNo Then
    
            Cancel = True
        
            Item.Display
    
        Exit Sub
    
        End If

    End If

End Sub

关于Zeno Chen

本人涉及的领域较多,杂而不精 程序设计语言: Perl, Java, PHP, Python; 数据库系统: MySQL,Oracle; 偶尔做做电路板的开发,主攻STM32单片机
此条目发表在Windows分类目录。将固定链接加入收藏夹。