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

Sub sendmail()
Dim rowCount,
endRowNo
Set objOutlook =CreateObject("OutlookApplication")
Set objMail =objOutlookCreateItem(olMailItem)
Set objMail =objOutlookCreateItem(olMailItem)
With objMail
To = Cells(1,2)Value'替换为邮件地址
Subject = Cells(2,2)Value'替换为邮件主题
Body = Cells(3,2)Value'替换为邮件内容
AttachmentsAdd ThisWorkbookFullName'替换为附件
Send
End With
Set objMail =Nothing
Set objOutlook =Nothing
End Sub

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

以上就是关于利用vba将excel数据写入outlook邮件模板里全部的内容，包括:利用vba将excel数据写入outlook邮件模板里、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！