有请高手：htmlbody 加入Signature后 Signature中的图片无法显示？

hlzuoyun · 发表于 2010-4-23 22:55

请高手帮忙看看：
有两个问题，1，Signature中的图片显示不了，2，.send改成.save的话，strbody中的内容又消失了？多谢多谢！

Sub Mail_Outlook_With_Signature_Html()
' Don't forget to copy the function GetBoiler in the module.
' Working in Office 2000-2010
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Dim SigString As String
Dim Signature As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

strbody = "<H3><B>Dear Customer</B></H3>"

'Use the second SigString if you use Vista as operating system

SigString = "C:\Documents and Settings\...\Application Data\Microsoft\Signatures\1.htm"

'SigString = "C:\Users\" & Environ("username") & _
   "\AppData\Roaming\Microsoft\Signatures\Mysig.htm"

If Dir(SigString) <> "" Then
      Signature = GetBoiler(SigString)
Else
      Signature = ""
End If

On Error Resume Next
With OutMail
      .To = "12345@3333.com"
      .CC = ""
      .BCC = ""
      .Subject = "This is the Subject line"
      .HTMLBody = strbody & "<br><br>" & Signature
      'You can add files also like this
      '.Attachments.Add ("C:\test.txt")
      .Send 'or use .Display
End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

[ 本帖最后由 hlzuoyun 于 2010-4-23 23:02 编辑 ]

hlzuoyun · 发表于 2010-4-23 22:59

收件人收到的邮件看不见图片

hlzuoyun · 发表于 2010-4-23 23:01

在论坛里找到的在body直接插入图片的方法也不行

hlzuoyun · 发表于 2010-4-26 11:19

dsd999 · 发表于 2010-4-26 14:50

我帮你调调，你把GetBoiler也发上来

hlzuoyun · 发表于 2010-4-29 10:35

不知道该怎么改了

hlzuoyun · 发表于 2010-4-29 10:32

原帖由 dsd999 于 2010-4-26 14:50 发表
我帮你调调，你把GetBoiler也发上来

多谢！！

Function GetBoiler(ByVal sFile As String) As String
'Dick Kusleika
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

hlzuoyun · 发表于 2010-5-16 17:07

		自动登录	找回密码
密码			免费注册

[求助] 有请高手：htmlbody 加入Signature后 Signature中的图片无法显示？

我的目的就是想在批量邮件的正文中加上个图片，怎么这么难呢

问题似乎是图片没保存在邮件中，而好像只是个类似的链接。显示个红叉叉