自动添加邮件默认签名

碣石山人

最近一直在研究邮件签名的问题，本版有带自定义函数的教程，还是有点遗憾，参考国外网站，经测试可以做到自动添加邮件签名：
Sub test()
Dim OApp As Object, OMail As Object, signature As String
Set OApp = CreateObject("Outlook.Application")
Set OMail = OApp.CreateItem(0)
    With OMail
    .Display
    End With
        signature = OMail.body
    With OMail
    '.To = "someone@somedomain.com"
    '.Subject = "Type your email subject here"
    '.Attachments.Add
    .body = "Add body text here" & vbNewLine & signature
    '.Send
    End With
Set OMail = Nothing
Set OApp = Nothing
End sub
如果不需要添加默认签名或者有几个签名，可以自动获取路径后添加自己的签名：
SigString = "C:\Users\" & Environ("username") & _
"\AppData\Roaming\Microsoft\Signatures\" & .Range("A1").Value & ".htm"'.Range("A1") 中填入签名文件的名称。

希望对有需要的有所帮助。

碣石山人

上面的示例为文本格式，如果要html格式的仅需将body改为htmlbody即可。
经过测试完全可行。如果要修改默认字体的话自行添加字体等代码，教程多的是。

kimmyyang

不错，学习一下。其实要是设置签名，也可以直接写在代码里面。

lushannn

可是这个代码能显示outlook带图片的签名吗？ 我试了好多种方法都没有办法显示签名里的图片，要烦死惹

Teemo12

lushannn 发表于 2019-4-1 17:15
可是这个代码能显示outlook带图片的签名吗？ 我试了好多种方法都没有办法显示签名里的图片，要烦死惹

我也是啊，什么都搞定了，就是不能把签名里面的图片给显示出来

b_57

Teemo12 发表于 2019-4-25 12:19
我也是啊，什么都搞定了，就是不能把签名里面的图片给显示出来

Signature=Replace(Signature, "src=""", "src=""C:\Users\" & Environ("username") & "\AppData\Roaming\Microsoft\Signatures\")
你要懂HTML语言就知道为啥显示不出来了

l200987

学习了，多谢分享

Peny2020

请问版主，我如果想在正文，即文字和签名中间位置加上表格，要怎么写啊？谢谢了。

静听溪流

感谢分享  支持一下

U_and_Me

html 带图片签名,,需要修改签名.html中的scr='' 改为绝对路径..右键选择记事本打开签名.html中 搜索scr可以看到2个scr引用相对路径..改为绝对路径之后你在引用签名的时候.就可以正常显示带图片的签名了.