Как добавить кнопку для отправки электронного письма с текущим файлом Word во вложении?

АвторСяоянДата изменения2025-04-18

Если вам нужно отправить электронное письмо из документа Word через Outlook и приложить к нему текущий файл, просто добавьте кнопку управления — и письмо уйдёт одним щелчком, без ручного запуска Outlook. В этом руководстве мы покажем, как быстро и легко это настроить.

Добавьте кнопку для отправки электронного письма с текущим файлом Word во вложении

Выполните следующие шаги, чтобы реализовать эту задачу в вашем документе Word:

Сначала вставьте кнопку управления: перейдите в меню «Разработчик» → «Элементы управления прежних версий» → «Кнопка управления (элемент управления ActiveX)».
Примечание: Если вы не видите вкладку «Разработчик» на ленте, посетите: Как отобразить вкладку «Разработчик» на ленте Word.
Выделите кнопку, перейдите на вкладку «Разработчик» и нажмите «Свойства». В области свойств введите в поле «Надпись» текст, который должен отображаться на кнопке.
Закройте область свойств, затем щелкните правой кнопкой мыши по кнопке и выберите «Просмотреть код».

В окне «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 = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True

Примечание: Вы можете изменить тему, текст сообщения и адрес электронной почты получателя в коде, чтобы они соответствовали деталям вашего реального письма.

Закройте редактор VBA, нажав «Сохранить и закрыть». Затем на вкладке «Разработчик» щёлкните «Режим конструктора», чтобы отключить его. Теперь при нажатии кнопки управления в Outlook будет автоматически создаваться письмо с текущим документом Word во вложении.
Наконец, нажмите кнопку «Отправить» в Outlook, чтобы отправить сообщение.

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word — раскройте весь потенциал Word с помощью более чем 100 мощных функций!

🤖Функции KUTOOLS AI: AI Ассистент / Ассистент в реальном времени / Супер полировка (сохранить формат) / Супер перевод (сохранить формат) / Искусственный интеллект для редактирования / Проверка с помощью ИИ…

📘Мастерство работы с документами: Разделение страниц / Объединение документов / Экспорт выделенного фрагмента в различных форматах (PDF, TXT, DOC, HTML и др.) / Пакетное преобразование в PDF…

✏Редактирование содержимого: Пакетный поиск и замена в нескольких файлах / Изменение размера всех изображений / Транспонировать таблицу строк и столбцов / Преобразовать таблицу в текст…

🧹Легкая очистка: удалите лишние пробелы, разрывы разделов, текстовые поля и гиперссылки. Чтобы узнать больше об инструментах удаления, перейдите в группу Удалить…

➕Креативные вставки: вставляйте разделители разрядов, флажки, переключатели, QR-коды, штрихкоды и несколько изображений. Узнайте больше в группе Вставка…

🔍Точное выделение: выделяйте определённые страницы, таблицы, фигуры и абзацы заголовков — улучшите навигацию с помощью расширенных функций выделенияfeatures ……

⭐Звёздные улучшения: Переход к любому месту / Автоматическая вставка повторяющегося текста / Переключение между документами Windows / 11преобразования Инструменты…

🌍Поддержка более чем 40 языков: Используйте Kutools на предпочитаемом языке — доступны английский, испанский, немецкий, французский, китайский и ещё более 40 языков!

Бесплатно скачать Купить сейчас Подробнее

Office Tab– Добавляет вкладки в Office и значительно упрощает вашу работу

Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в отдельных окнах.
Повышает продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Бесплатно скачать Купить сейчас Подробнее

✨ Kutools for Office – Одна установка, пять мощных инструментов!

Включает в себя Office Tab Pro·Kutools для Excel·Kutools для Outlook·Kutools для Word·Kutools for PowerPoint

📦 Получите все 5 инструментов в одном пакете | 🔗 Бесшовная интеграция с Microsoft Office | ⚡ Экономия времени и мгновенно повысьте продуктивность

⬇️ Скачать сейчас 🎁 Приобрести полный пакет 📖 Подробнее

Лучшие инструменты для повышения продуктивности в Office

Kutools для Word– 100+ инструментов для Word

🤖KUTOOLS AI функции:AI Ассистент/Ассистент в Реальном Времени/Супер Полировка/Супер Перевод/Искусственный интеллект для редактирования/Проверка с помощью ИИ
📘Мастерство работы с документами:Разделение страниц/Объединить документы/Пакетное преобразование в PDF
✏Редактирование содержимого:Пакетный поиск и замена/Изменение размера всех изображений
🧹Легкая очистка:Удаление лишних пробелов/Удалить Разрыв раздела
➕Креативные вставки:Вставка разделителей разрядов/Вставить Флажок/Создать QR-код
🌍Поддержка более чем 40 языков: Kutools говорит на вашем языке — доступно более 40 языков!

Бесплатно скачать Купить сейчас Подробнее о Kutools