Question

我在我的Word文档（office 2007）中获得了以下代码，以发送带附件的邮件它会在行

处抛出语法错误（找不到文件）

.Attachement.Add“C：\ abc.txt”

代码：

Private Sub CommandButton1_Click()

Dim outlookapp As Object
Dim item As Object
Dim subject As String
Dim msg As String

    Set outlookapp = CreateObject("outlook.application")

    msg = "Enter Message here"
    subject = "Enter subject here"
    Set item = outlookapp.createitem(0)

    With item
        .to = "some1@aaaaa.com <mailto:some1@aaaa.com> "
        .subject = subject
        .body = msg
        .Display
        .Attachments.Add "C:\abc.txt"
    End With

    End Sub

我做错了什么？

由于

Answer 1

将附件添加到项目的语法应该用括号括起来的文件名。

尝试使用

.Attachments.Add ("C:\abc.txt")

而不是

.Attachments.Add "C:\abc.txt"

Answer 2

我尝试了上面的代码，它对我有用。您是否可以附加位于C根目录之外的文件，例如c：\ docs \？

编辑重新评论

如果路径有空格，则需要额外的引号：

strfile="""c:\abc def.txt"""

VBA +从Word 2007发送邮件

2 个答案: