excel 中如何使用vba通过outlook发送邮件附带默认签名

jiangbo098

Sub SendEmailByOutlook()
        '要能正确发送并需要对Microseft　Outlook进行有效配置
        On Error Resume Next
        Dim rowCount, endRowNo
        Dim objOutlook As New Outlook.Application
        Dim objMail As MailItem

        '取得当前工作表与Cells(1,1)相连的数据区行数
        endRowNo = Cells(1, 1).CurrentRegion.Rows.Count

        '创建objOutlook为Outlook应用程序对象
        Set objOutlook = New Outlook.Application

        '开始循环发送电子邮件，比如从第二行开始，第一行是标题
        For rowCount = 2 To endRowNo

                '创建objMail为一个邮件对象
                Set objMail = objOutlook.CreateItem(olMailItem)
                With objMail

                        '设置收件人地址（比如从　Excel　表的第一列“E-mail地址”字段中获得）
                        .To = Cells(rowCount, 1).Value     '"fantasia@sina.com"

                        '设置邮件主题（比如从　Excel　表的第二列“邮件主题”字段中获得）
                        .Subject = Cells(rowCount, 2).Value     '"邮件主题"

                        '设置邮件内容（比如从　Excel　表的第三列“邮件内容”字段中获得）
                        .Body = Cells(rowCount, 3).Value     '"邮件内容"

                        '设置附件（比如从　Excel　表的第四列“附件”字段中获得）
                        .Attachments.Add Cells(rowCount, 4).Value    '"c:\\users.ctl"

                        .Send

                  End With

                  '销毁objMail对象
                  Set objMail = Nothing

          Next

          '销毁objOutlook对象
          Set objOutlook = Nothing

End Sub

以上代码能够正常通过outlook默认账户发送邮件，但是不能使用outlook设置默认签名。

请问怎样将outlook默认签名添加到vba的发送邮件中。

谢谢

qisile

同问。。。。

zhupengyu

SigString = "C:\Users\Leroy\AppData\Roaming\Microsoft\Signatures\test.htm"
If Dir(SigString) <> "" Then
Signature = GetBoiler(SigString)

chenjuny

zhupengyu 发表于 2015-9-7 20:00
SigString = "C:%users\Leroy\AppData\Roaming\Microsoft\Signatures\test.htm"
If Dir(SigString)  "" Th ...

用读取签名文件的方式 ，  无法插入带图片的签名。。。。求解决办法

lmswy

有用！谢谢！