通过Excel Macros(VBA) Send email, 但需要配置Outlook. Private Sub CommandButton1_Click() Dim objOL As Object Dim itmNewMail As Object '引用Microsoft Outlook Set objOL = CreateObject("Outlook.Application") Set itmNewMail = objOL.createitem(0) With itmNewMail .Subject = "Mail Test" .HTMLbody = "Testing" .to = "JmLei@xxx.xxx.cn" .Attachments.Add "C:/temp/MIS/Report/P00631.xls" .Display '注意此处使用的不是Send, End With On Error GoTo continue SendEmail: AppActivate itmNewMail DoEvents SendKeys "%s", Wait:=True '特别注意此处,该项表示相关于在邮件编辑窗口中,单击发送按钮 DoEvents AppActivate itmNewMail GoTo SendEmail continue: On Error GoTo 0 Set objOL = Nothing Set itmNewMail = Nothing End Sub