Открыть почтовый клиент и....
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 4
• Страница 1 из 1
- Str@nger
- Начинающий
- Сообщения: 21
- Зарегистрирован: 30.07.2003 (Ср) 17:34
Открыть почтовый клиент и....
Str@nger » 01.08.2003 (Пт) 15:15
как открыть почтовый клиент по умолчанию и передать туда текст
- sQx
- Философ
- Сообщения: 365
- Зарегистрирован: 08.08.2002 (Чт) 19:23
sQx » 03.08.2003 (Вс) 12:36
подключи ИЕ компонент, а потом через ссылку в визибле кликни......
Высшая мудрость - знать самого себя.
Ученый человек - сосуд, мудрец - источник.
Что разумно, то действительно, и что действительно, то разумно.
Знание - сила, всезнание - слабость.
Я знаю только то, что ничего не знаю.
Ученый человек - сосуд, мудрец - источник.
Что разумно, то действительно, и что действительно, то разумно.
Знание - сила, всезнание - слабость.
Я знаю только то, что ничего не знаю.
- retiv
- Новичок
- Сообщения: 31
- Зарегистрирован: 15.09.2002 (Вс) 12:20
- Откуда: Russia
retiv » 11.08.2003 (Пн) 15:40
Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Call ShellExecute(0, "Open", "mailto:" + sAddress + "?Subject=" + sSubject, "", "", 1)
Call ShellExecute(0, "Open", "mailto:" + sAddress + "?Subject=" + sSubject, "", "", 1)
- ZeroX
- Бывалый
- Сообщения: 207
- Зарегистрирован: 29.04.2003 (Вт) 12:36
- Откуда: Мой адрес не дом и не улица, мой адрес Советский Союз
ZeroX » 11.08.2003 (Пн) 17:45
retiv писал(а):Private Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
Call ShellExecute(0, "Open", "mailto:" + sAddress + "?Subject=" + sSubject, "", "", 1)
А лучше так:
Call ShellExecute(0, "Open", "mailto:" + sAddress + "?Subject=" + sSubject + "&body=" + sBody, "", "", 1)
Где sBody=тело письма
Каждый warning мечтает стать error'om
Сообщений: 4
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot и гости: 3