| Вопрос: e-mail? | Добавлено: 30.11.06 13:23 |
Автор вопроса:  VβÐUηìt | Web-сайт: смекаешь.рф
|
|
Народ, кто знает, как можно организовать код 'Отправить' в меню 'Файл' (в смысле подключиться к почтовому клиенту по умолчанию, создать письмо, засунуть туда вложение)?
Заранее спасибо. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | Цитата | #1 | Добавлено: 30.11.06 14:07 |
|
Вообще то примеров туча, причем настолько огромная, что и не представить.
Если в смысле подключиться к почтовому клиенту по умолчанию, создать письмо, засунуть туда вложение то можно примерно так
Private Sub MessageSing() MAPISession1.SignOn With MAPIMessages1 .SessionID = MAPISession1.SessionID .Compose .MsgSubject = “Тема” .MsgNoteText = “Текст письма” .RecipAddress = “Кому@домен” .AddressResolveUI = True .ResolveName If FileAttach <> "" Then .AttachmentType = 0 .AttachmentIndex = 0 .AttachmentPathName = “полный путь к аттачу” .AttachmentPosition = 0 End If .Send False End With MAPISession1.SignOff End Sub Не помню вот с The Bat работает ли. |
||
Страница: 1 |