qq_39308587的博客

Option ExplicitPrivate Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim oItem As MailItem Dim oRecipient As Recipient Set oItem = Item Dim strSubject As String Dim strBody As String strSubject = Item.Su...