VBA +从Word发送邮件2007

我得到了下面的代码在我的Word文档（办公室2007）发送与attachement 邮件，则抛出语法错误（找不到文件）在行VBA +从Word发送邮件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 = "[email protected] <mailto:[email protected]> " 
     .subject = subject 
     .body = msg 
     .Display 
     .Attachments.Add "C:\abc.txt" 
    End With 

    End Sub

我在做什么错？

谢谢

来源

2010-03-17 Sreedhar

我已经加入进一步一张纸条给我的职务。 – Fionnuala 2010-03-17 13:33:17

我试过上面的代码，它为我工作。你可以附加一个位于C以外的文件，例如c：\ docs \？

编辑回复评论

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

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

来源

2010-03-17 08:22:52 Fionnuala

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

尝试使用

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

代替

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

来源

2010-03-17 10:35:50

你使用的是哪个版本？正如我所说的，代码的工作原理如下。 – Fionnuala 2010-03-17 10:42:54

对不起，这一切都有效，问题是有空间的文件路径。我的文件路径是c：\ H＆I \ abc.txt。我如何获得在VBA中识别的空间？如果是HTML使用％20的空间。任何线索？ – Sreedhar 2010-03-17 11:07:11

VBA +从Word发送邮件2007

回答

相关问题