[求助]以邮件正文发送的宏HTMLBody?

baez · 发表于 2007-11-12 17:11

尝试用下面的宏通过邮件正文发送一份htm文件, 不知道如何在"HTMLBody"后面直接发送一份另外的htm文件(比如链接或引用等类似的方式),避免在宏里写很长的代码, 请各位朋友指点,谢谢!

代码如下:

QUOTE:

Sub sendmail()

Dim OutApp As Object
Dim OutMail As Object

    With Application
        .EnableEvents = False
        .ScreenUpdating = False
    End With

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

    On Error Resume Next
    With OutMail
        .To = xx@xx.com
        .CC = ""
        .BCC = ""
        .Subject = "title"
        .HTMLBody = "<HTML><BODY>拟发送的内容</BODY></HTML>"
        .Send
    End With
    On Error GoTo 0

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

ikolo · 发表于 2007-11-23 00:44

不可以~~

你需要用文本方式对该HTML文件进行读取，然后放在一个string里~~

在附给HTMLBody才可以~~

很久以前就碰到这个问题了~~~~~

不知道有没有更好的方法~

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

[求助]以邮件正文发送的宏HTMLBody?

最新热点 /1