自己在公司里面维护了一个小金库的Excel,当某个人的余额小于0的时候,Outlook会自动给这个人发一封邮件,同时将这个Excel附在邮件中,具体的代码如下: Public Function sendEmail(mailTo As String) Application.ScreenUpdating = False Dim outapp As Object Dim outmail As Object Dim body As String Dim fname As String Set outa…