сохранение Вордовского файла в pdf и вложение его в письмо

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Espada

Дата: Пятница, 21.04.2017, 13:44 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

Доброго дня, подскажите пожалуйста, можно ли макросом вложить файл в электронное письмо? полная задача такая: полученный вордовский файлик, макросом, сохранить в формат PDF, а затем отправить эту ПДФку по почте клиенту. с сохранением в пдф, я вроде разобрался, а вот как запихнуть её в письмо не знаю как. может у кого-нибудь есть пример, или просто может подсказать какие функции использовать? Спасибо.

Ответить

_Boroda_

Дата: Пятница, 21.04.2017, 13:55 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Включите запись макросов и отправьте файл себе же. Получите примерно такой код
[vba]

Код

Sub уууууу()
    ActiveDocument.Save
    ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        "C:\Users\Boroda\AppData\Local\Temp\Sdf sad.pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentWithMarkup, IncludeDocProps:=False, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False
    Application.Keyboard (1049)
End Sub

[/vba]
Ну а дальше, с учетом того, что с сохранением Вы разобрались, справиться несложно будет

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Espada

Дата: Пятница, 21.04.2017, 14:09 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

_Boroda_, этот код отвечает только за преобразование в PDF, на почту он не влияет) я так тоже пробовал)
Нашел функцию в интернете Send_mail, но она, как говорят, работает только на Win XP, я проверил на Win 8.1 точно не работает) может есть какая функция которая работает в нынешних реалиях?

Ответить

_Boroda_

Дата: Пятница, 21.04.2017, 14:36 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16714

Репутация: 6503 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Ну да, это я не проверил автозапись
Посмотрите здесь
http://subscribe.ru/archive....12.html
или здесь
https://social.technet.microsoft.com/Forums....lientru
https://www.howto-outlook.com/howto/senddocasmail.htm

Ответить

Espada

Дата: Среда, 26.04.2017, 09:55 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 121

Репутация: 0 ±

Замечаний: 40% ±

_Boroda_, спасибо ваши ссылки помогли. нашёл один рабочий ваирант:
[vba]

Код

ActiveDocument.SendForReview _
Recipients:="alexei@mail.ru", _
Subject:="Test Environment Data Load Request", _
ShowMessage:=True, _
IncludeAttachment:=False

[/vba]
пытался соединить код по созданию пдф и код отправки, и что-то не получилось.
одной частью кода создаётся файл:
"E:\Gal\InformPismo.pdf"
как сделать, что бы вкладывался этот файл? а не открытый вордовский?

Ответить

сохранение Вордовского файла в pdf и вложение его в письмо

Страница 1 из 1
1