Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Joss Пробовал и так
Dim OL_App As Outlook.Application Dim OL_ItemMail As Outlook.MailItem Dim OL_NameSpace As Outlook.NameSpace Dim RecipientTask As Recipient Dim OL_Pattern As Outlook.RecurrencePattern Dim OL_FolderMail As Outlook.MAPIFolder Set OL_App = CreateObject("Outlook.Application") ' получаем объект Outlook Set OL_NameSpace = OL_App.GetNamespace("MAPI") ' получаем ссылку на папку исходящие Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderOutbox)
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.