Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Прога в VB6
Показать сообщение отдельно

Новый участник


Сообщения: 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

Название темы: Прога в VB6