请问用sendmail发件的方式怎样添加邮件内容

gouera

在网上找到了一个宏，将excel内容以邮件附件的方式发送给收件人，现在有一个问题，就是不知道怎样添加邮件的正文，请问有大神帮忙看看吗？
报销.zip (15.58 KB, 下载次数: 4)

2020-2-9 20:00 上传

点击文件名下载附件

      '保存，发送邮件，关闭文件，然后删除临时文件
               With NewWB
                   .SaveAs TempFilePath & TempFileName _
                         & FileExtStr, FileFormat:=FileFormatNum
                   On Error Resume Next
                   For I = 1 To 3
                       .sendMail mailAddress, _
                                 Subject

                       If Err.Number = 0 Then Exit For
                   Next I
                   On Error GoTo 0
                   .Close SaveChanges:=False
               End With
               '删除己经发送的文件
               Kill TempFilePath & TempFileName & FileExtStr
           End If


用的这样的方法，全部代码在附件的宏里面。

gouera

有大佬有空吗？

蓝桥玄霜

请参考http://club.excelhome.net/thread-1404305-1-1.html

gouera

蓝桥玄霜 发表于 2020-2-10 14:53
请参考http://club.excelhome.net/thread-1404305-1-1.html

谢谢版主，我自己尝试下，谢谢。