Як застосувати кнопку для надсилання електронного листа із вкладеним поточним файлом 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. Нарешті, вам просто потрібно натиснути Відправити , щоб надіслати це повідомлення.
Рекомендовані засоби підвищення продуктивності слів
Kutools для Word - Більше 100 вдосконалених функцій для Word, економите свій 50% часу
- Складні та повторювані операції можна виконати одноразово за кілька секунд.
- Вставте кілька зображень між папками в документ Word одночасно.
- Об’єднайте та об’єднайте декілька файлів Word у папках в одне із потрібним замовленням.
- Поділіть поточний документ на окремі документи відповідно до заголовка, розділу розділу чи інших критеріїв.
- Перетворюйте файли між Doc та Docx, Docx та PDF, колекцією інструментів для загальних перетворень та виділення тощо ...
