Как применить кнопку для отправки электронного письма с прикрепленным текущим файлом Word?
Если вам нужно отправить сообщение электронной почты из документа Word через Outlook, а также прикрепить текущий файл Word, вы можете создать командную кнопку, а затем отправить сообщение, нажав эту кнопку, не открывая Outlook. В этой статье я расскажу, как быстро и легко с этим справиться.
Применить кнопку для отправки электронного письма с прикрепленным текущим файлом Word
Применить кнопку для отправки электронного письма с прикрепленным текущим файлом Word
Для решения этой задачи в файле Word выполните следующие действия:
1. Сначала вы должны создать командную кнопку, пожалуйста, нажмите Застройщик > Устаревшие инструменты > Командная кнопка (элемент управления ActiveX), см. снимок экрана:
2. Выберите кнопку и щелкните Объекты под Застройщик в Объекты панели введите нужный текст подписи в Подпись поле, см. снимок экрана:
3. Затем закройте Объекты панель, теперь щелкните кнопку правой кнопкой мыши и выберите Просмотреть код, см. снимок экрана:
4. А затем в отображаемом Microsoft Visual Basic для приложений окна, скопируйте и вставьте приведенный ниже код между исходными сценариями, см. снимок экрана:
Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
.Subject = "Fax-data"
.Body = "This is a test email."
.To = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
Внимание: В приведенном выше коде вы должны изменить тему, основной текст или адрес отправления по своему усмотрению.
5. Затем сохраните и закройте этот код, нажмите Режим проектирования чтобы выключить режим дизайна. Теперь при нажатии созданной вами командной кнопки будет создано электронное письмо с текущим документом Word в качестве вложения, см. Снимок экрана:
6. Наконец, вам просто нужно нажать Отправить кнопку, чтобы отправить это сообщение.
Лучшие инструменты для офисной работы
Kutools for Word - Повысьте свой опыт работы со словом с помощью Over 100 Замечательные особенности!
🤖 Kutools AI Помощник: Преобразуйте свое письмо с помощью искусственного интеллекта. Создать контент / Переписать текст / Обобщение документов / Запросить информацию на основе документа, все в Word
📘 Владение документами: Разделить страницы / Объединить документы / Экспортировать выбранное в различные форматы (PDF/TXT/DOC/HTML...) / Пакетное преобразование в PDF / Экспортировать страницы как изображения / Печать нескольких файлов одновременно...
✏ Редактирование содержания: Пакетный поиск и замена через несколько файлов / Изменить размер всех изображений / Транспонировать строки и столбцы таблицы / Преобразовать таблицу в текст...
🧹 Легкая очистка: Убрать Дополнительные места / Разрывы разделов / Все заголовки / Текстовые поля / Гиперссылки / Чтобы получить дополнительные инструменты для удаления, посетите наш Удалить группу...
➕ Креативные вставки: Вставлять Разделители тысяч / Флажки / радио кнопки / QR код / Штрих-код / Таблица диагональных линий / Заголовок уравнения / Заголовок изображения / Заголовок таблицы / Несколько изображений / Узнайте больше в Вставить группу...
???? Точный выбор: Точно определить конкретные страницы / Эта таблица / формы / заголовки абзацев / Улучшите навигацию с помощью БОЛЕЕ Выберите функции...
⭐ Звездные улучшения: Быстро перемещайтесь в любое место / автоматическая вставка повторяющегося текста / плавно переключаться между окнами документов / 11 инструментов преобразования...