Sub Mail_workbook()

ActiveWorkbook.SendMail "[email protected]", _

"This is the Subject line"

End Sub

|如果要邮寄代码所在的工作簿,则必须使用以下行:

ThisWorkbook.SendMail "[email protected]", _

注意:不一定是当时使用的活动工作簿。