ник: Анатолий (Киев)
Этот код делает активной папку "Исходящие". По логике, новое письмо должно сохраняться в ней.
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myolApp.ActiveExplorer.CurrentFolder = myNamespace.GetDefaultFolder(olFolderOutbox)
|
Кроме того, у вашего OL_ItemMail есть метод Move, который может переместить письмо в папку, указанную с помощью того же GetDefaultFolder.
А чтоб отправлять из Outlook письма без лишних вопросов, я использую библиотеку RDO. Поройтесь в инете.