Новый участник
Сообщения: 16
Благодарности: 0
|
Профиль
|
Отправить PM
| Цитировать
Вот тебе код с использованием API. Пусть на форме будет Text1 и CommandButton1:
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)
Private Sub Command1_Click()
Call ShellExecute(0&, "Open", "mailto:" + "user@host.ru" + _
"?Subject=" + "Theme..." + "&body=" + Text1.Text, "", "", 1)
End Sub
И усё!!! Твое письмо в почтовике!
|
Отправлено: 03:33, 12-09-2004
| #3
|