Как применить кнопку для отправки электронного письма с прикрепленным текущим файлом 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 = "yy@addin99.com"
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
Внимание: В приведенном выше коде вы должны изменить тему, основной текст или адрес отправления по своему усмотрению.
5. Затем сохраните и закройте этот код, нажмите Режим проектирования чтобы выключить режим дизайна. Теперь при нажатии созданной вами командной кнопки будет создано электронное письмо с текущим документом Word в качестве вложения, см. Снимок экрана:
6. Наконец, вам просто нужно нажать Отправить кнопку, чтобы отправить это сообщение.
Рекомендуемые инструменты для повышения производительности Word
Kutools For Word - Более 100 расширенных функций для Word, сэкономьте 50% времени
- Сложные и повторяющиеся операции можно производить разово за секунды.
- Вставляйте сразу несколько изображений из папок в документ Word.
- Объединяйте и объединяйте несколько файлов Word из папок в одну в желаемом порядке.
- Разделите текущий документ на отдельные документы в соответствии с заголовком, разрывом раздела или другими критериями.
- Преобразование файлов между Doc и Docx, Docx и PDF, набор инструментов для общих преобразований и выбора и т. Д.
