摘要：
Public Sub CustomSubTotal() AppSettings On Error GoTo ErrHandler Dim StartTime, UsedTime As Variant StartTime = VBA.Timer 'Input code here Dim i As Long, j As Long, k Dim... 阅读全文
摘要：
Sub 筛选OutLook主题并转发() On Error Resume Next Dim OutApp As Application Set OutApp = Application Dim OutMail As MailItem Dim OneAccount As Account Dim UsingAccount As Account ... 阅读全文