2010-03-17 2 views
2

я ниже кода в моем Word Document (офис 2007) отправить письмо с прикрепленным Он бросает синтаксическую ошибку (файл не найден) в строке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 

Что я делаю неправильно?

Благодаря

+0

Я добавил еще одну записку на мой пост. – Fionnuala

ответ

0

Я попытался выше код и он работал на меня. Можете ли вы прикрепить файл, расположенный где-то, кроме корня C, например, c: \ docs \?

EDIT Re комментарий

Если путь содержит пробелы, вам нужно будет дополнительные цитаты:

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

Синтаксис для добавления вложения в пункт должен иметь имя файла, заключенный в квадратные скобки.

Попробуйте использовать

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

вместо

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

Какую версию вы используете? Как я уже сказал, код работает так, как он есть. – Fionnuala

+0

Извините, ребята, все работает, проблема в том, что путь к файлу имеет пробелы. Мой путь к файлу - c: \ H & I \ abc.txt. Как я могу распознать пространство в VBA. Если бы html использовал% 20 для пробела. Любые подсказки? – Sreedhar