Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/сохранение Вордовского файла в pdf и вложение его в письмо - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » сохранение Вордовского файла в pdf и вложение его в письмо
сохранение Вордовского файла в pdf и вложение его в письмо
Espada Дата: Пятница, 21.04.2017, 13:44 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

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

Автор - Espada
Дата добавления - 21.04.2017 в 13:44
_Boroda_ Дата: Пятница, 21.04.2017, 13:55 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеВключите запись макросов и отправьте файл себе же. Получите примерно такой код
[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_
Дата добавления - 21.04.2017 в 13:55
Espada Дата: Пятница, 21.04.2017, 14:09 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

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

Автор - Espada
Дата добавления - 21.04.2017 в 14:09
_Boroda_ Дата: Пятница, 21.04.2017, 14:36 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

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


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеНу да, это я не проверил автозапись
Посмотрите здесь
http://subscribe.ru/archive....12.html
или здесь
https://social.technet.microsoft.com/Forums....lientru
https://www.howto-outlook.com/howto/senddocasmail.htm

Автор - _Boroda_
Дата добавления - 21.04.2017 в 14:36
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"
как сделать, что бы вкладывался этот файл? а не открытый вордовский?
 
Ответить
Сообщение_Boroda_, спасибо ваши ссылки помогли. нашёл один рабочий ваирант:
[vba]
Код

ActiveDocument.SendForReview _
Recipients:="alexei@mail.ru", _
Subject:="Test Environment Data Load Request", _
ShowMessage:=True, _
IncludeAttachment:=False
[/vba]
пытался соединить код по созданию пдф и код отправки, и что-то не получилось.
одной частью кода создаётся файл:
"E:\Gal\InformPismo.pdf"
как сделать, что бы вкладывался этот файл? а не открытый вордовский?

Автор - Espada
Дата добавления - 26.04.2017 в 09:55
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » сохранение Вордовского файла в pdf и вложение его в письмо
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!