亲，用VBA实现了对Outlook自动发邮件，但无法带出原来Outlook设定的“签名”！

84595292

亲，用VBA实现了对Outlook自动发邮件，但无法带出原来Outlook设定的“签名”！怎么处理，乍写这个代码。谢谢~
注：在线等待大神的协助结果，谢。

84595292

兄弟们，能出招不，谢 :)

a68508122

84595292 发表于 2014-7-16 13:16
兄弟们，能出招不，谢 :)

你上传你的附件，我帮你改，直接贴代码 估计很难理解，需要自定义一个函数！


最上面添加
Function GetBoiler(ByVal sFile As String) As String
    Dim fso As Object
    Dim ts As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2)
    GetBoiler = ts.readall
    ts.Close
End Function


outlook发邮件的函数前
添加   
SigString = Environ("appdata") & _
     "\Microsoft\Signatures\建立新邮件.htm"


body 这行参数里加入 “& Signature”即可

建议你上传附件 我帮你解决

84595292

上附件，共测试，请协助，谢~

84595292

a68508122 发表于 2014-7-16 13:29
你上传你的附件，我帮你改，直接贴代码 估计很难理解，需要自定义一个函数！

亲，附档发表于 2014-7-16 16:46:13 【4楼】 请协助处理，TKS.

84595292

a68508122 发表于 2014-7-16 13:29
你上传你的附件，我帮你改，直接贴代码 估计很难理解，需要自定义一个函数！

有结果了吗，亲

a68508122

84595292 发表于 2014-7-16 19:40
有结果了吗，亲

test1.rar (9.44 KB, 下载次数: 472)

2014-7-16 20:52 上传

点击文件名下载附件

刚下班 回复晚了，千万别说用不了。因为你没把签名重命名为111

以上，请笑纳
最后 不要叫亲。。

84595292

a68508122 发表于 2014-7-16 20:56
刚下班 回复晚了，千万别说用不了。因为你没把签名重命名为111

以上，请笑纳

亲，谢谢，成功了~亲一个~

84595292

a68508122 发表于 2014-7-16 20:56
刚下班 回复晚了，千万别说用不了。因为你没把签名重命名为111

以上，请笑纳

亲，早上好：如下代码是表示什么的，不是全看的懂，请亲注解下，另外，程式中还能增加发送时附带个附档吗。谢~
    Dim strbody, strbody1, strbody2, strbody8 As String '这句表示什么
    Dim SigString As String '这句表示什么
    Dim acc, bcc, bccx, nn, strx, strn '这句表示什么
    Dim rngDest As Range, arr '这句表示什么

a68508122

84595292 发表于 2014-7-17 08:36
亲，早上好：如下代码是表示什么的，不是全看的懂，请亲注解下，另外，程式中还能增加发送时附带个附档吗 ...

test1.rar (10.21 KB, 下载次数: 375)

2014-7-17 09:10 上传

点击文件名下载附件

以上
希望您满意

给个小提示  附件add后面 可以引用单元格的值。你懂了吧

    Dim strbody, strbody1, strbody2, strbody8 As String '这句表示什么：没有用处已删除
    Dim SigString As String '这句表示什么：定义签名变量。
    Dim acc, bcc, bccx, nn, strx, strn '这句表示什么：没有用处已删除
    Dim rngDest As Range, arr '这句表示什么：没有用处已删除