Как отобразить диалоговое окно, позволяющее отправить E-Mail?
Категория: Basic
2012-07-27 13:56:00
code: #vba
ThisWorkbook.FollowHyperlink Address:="mailto:excel_vs_calc@mail.com" ThisWorkbook.FollowHyperlink _ Address:="mailto:excel_vs_calc@mail.com?subject=Excel"
code: #vba
Application.Dialogs(xlDialogSendMail).Show Application.Dialogs(xlDialogSendMail).Show _ Arg1:="excel_vs_calc@mail.com", Arg2:="Calc"
Второй вариант позволяет отправить активную рабочую книгу в виде вложения (attachment) и он может быть применён в MS Excel 95
Актуально для MS Excel 97, 2000, XP
Поделиться: