Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: SergeyKV еще есть такой вариант, он попроще может стоить на него обратить внимание ?
Public 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) As Long Public Const SW_SHOWMAXIMIZED = 1 Public Const AttachmentsPath = "i:\attachments" Public Sub RunFile(FileName As String) Dim l As Long Dim st As String st = FileName l = ShellExecute(0, "open", st, "", "", SW_SHOWMAXIMIZED) End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.