Question

利用vba将excel数据写入outlook邮件模板里

各位大虾：
我做了一个outlook模板，想利用vba将excel数据写到outlook模板里，再通过vba发送邮件出去。谢谢，若能解必定追加重分答谢。

Answer 1

Sub sendmail()
Dim rowCount,
endRowNo
Set objOutlook =CreateObject("Outlook.Application")
Set objMail =objOutlook.CreateItem(olMailItem)
Set objMail =objOutlook.CreateItem(olMailItem)
With objMail
.To = Cells(1,2).Value'替换为邮件地址
.Subject = Cells(2,2).Value'替换为邮件主题
.Body = Cells(3,2).Value'替换为邮件内容
.Attachments.Add ThisWorkbook.FullName'替换为附件
.Send
End With
Set objMail =Nothing
Set objOutlook =Nothing
End Sub

如果是多人的话，可以加一个循环，不懂可以问我。

追问

你这个是把表格内容放成了邮件内容，我的问题是用vba插入数据到outlook模板里再发邮件。

追答

VBA操作outlook目前研究的比较少，资源必经难找，祝你成功。

追问

谢谢

Answer 2

vba写outlook 我有兴趣给你试试

追问

谢谢，如何做道。

追答

说来话长 看下我名字