使用vba在excel中打开outlook发送邮件时发不出去，还需要手动打开outlook时邮件才发送出去。

 With objMail
               
                    .To = sendtoAdd
                    .Subject = "员工离职申请单"
                    .Attachments.Add ActiveWorkbook.FullName
                    .Body = vbCr + "请处理附件中的员工离职申请单..." + vbCr
                    .Save
                  '  .display
                   .send
                    
                End With 那你先打开OUTLOOK再用EXCEL就行了，最好是用别的方式发邮件，OUTLOOK又大又麻烦

补充：VB ,  VBA