0 / 0 / 0
Регистрация: 22.11.2013
Сообщений: 108
|
|
|
1
|
Макрос для вложения файла в письмо
26.04.2017, 11:37. Показов 2088. Ответов 0
Доброго дня, поставлена была задача: сделать кнопку в МС Word, после нажатия на которую, документ будет формироваться в пдф и вкладываться в электронное письмо в Оутлуке. по отдельности две функции работают.
Функция письма:
| Visual Basic | 1
2
3
4
5
| ActiveDocument.SendForReview _
Recipients:="alexei@mail.ru", _
Subject:="Test Environment Data Load Request", _
ShowMessage:=True, _
IncludeAttachment:=False |
|
функция Экспорта в пдф:
| Visual Basic | 1
2
3
4
5
6
7
8
| ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"E:\Gal\Информ письмо.pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=False, UseISO19005_1:=False
Application.Keyboard (1033) |
|
но проблема в том, что не могу сделать так, чтобы вкладывался именно пдф файл. такой код у меня получается в общем
| Visual Basic | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| Sub Mail() 'вложение документа в письмо
'--------------------------------------------
ActiveDocument.ExportAsFixedFormat OutputFileName:= _
"E:\Gal\Информ письмо.pdf", ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:= _
wdExportAllDocument, From:=1, To:=1, Item:=wdExportDocumentContent, _
IncludeDocProps:=False, KeepIRM:=False, CreateBookmarks:= _
wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=False, UseISO19005_1:=False
Application.Keyboard (1033)
'----------------------------------------------
Documents.Open FileName:="E:\Gal\Информ письмо.pdf"
ActiveDocument.SendForReview _
Recipients:="alexei@mail.ru", _
Subject:="Test Environment Data Load Request", _
ShowMessage:=True, _
IncludeAttachment:=False
End Sub |
|
подскажите пожалуйста, как исправить проблему.
Добавлено через 27 минут
Пробовал, задать путь через переменную, но что-то идёт не так...
| Visual Basic | 1
2
3
4
5
6
7
| Dim FilePDF As String
FilePDF = "E:\Gal\Информ письмо.pdf"
FilePDF.SendForReview _
Recipients:="alexei@mail.ru", _
Subject:="Информ письмо", _
ShowMessage:=True, _
IncludeAttachment:=False |
|
0
|
(
