需要给很多人发送表格中自己的信息时可以拿来用，写得很简单。
1. excel中Sheet1数据：
2. 调用本机outlook自动发送邮件的代码：
1 Sub sendEmail() 2 On Error Resume Next 3 Dim rowCount, endRowNo 4 Dim objOutlook As Object 5 Dim objMail As Object 6 7 endRowNo = Cells(1, 1).CurrentRegion.Rows.Count 8 Set objOutlook = CreateObject("Outlook.Application") 9 For rowCount = 2 To endRowNo 10 Set objMail = objOutlook.CreateItem(olMailItem) 11 With objMail 12 .To = Cells(rowCount, 5) 13 .Subject = ActiveSheet.Name 14 .Attachments.Add Cells(rowCount, 4) 15 .HTMLBody = "<HTML><BODY><table border=""1"" bordercolor=""#000000"" style=""border-collapse:collapse;"">" _ 16 & "<tr>" _ 17 & "<th>" & Cells(1, 1) & "</th>" _ 18 & "<th>" & Cells(1, 2) & "</th>" _ 19 & "<th>" & Cells(1, 3) & "</th>" _ 20 & "<th>" & Cells(1, 4) & "</th>" _ 21 & "</tr>" _ 22 & "<tr>" _ 23 & "<td>" & Cells(rowCount, 1) & "</td>" _ 24 & "<td>" & Cells(rowCount, 2) & "</td>" _ 25 & "<td>" & Cells(rowCount, 3) & "</td>" _ 26 & "<td>" & Cells(rowCount, 4) & "</td>" _ 27 & "</tr>" _ 28 & "</table></BODY></HTML>" 29 .Send 30 End With 31 Set objMail = Nothing 32 Next 33 34 Set objOutlook = Nothing 35 MsgBox "已发送完成第" & rowCount - 2 & "条" 36 37 End Sub
3. 执行后的提示：
4. 对方收到的邮件内容如下：
