标签:Dim Set Cells excel 发送 rowCount objOutlook objMail 邮件
需要给很多人发送表格中自己的信息时可以拿来用,写得很简单。
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. 对方收到的邮件内容如下:
标签:Dim,Set,Cells,excel,发送,rowCount,objOutlook,objMail,邮件 来源: https://www.cnblogs.com/workingdiary/p/12761986.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。