Запуск почтового клиента

[Павлуша]

Ситуэйшн такая:
надо, чтобы при кликаньи на Label в котором записан чей-нибудь мыльник, запускался почтовый клиент, стоящий в системе по умолчанию.
Если у кого есть по этому поводу знания подскажите, ведь все люди нуждаются в поддержке .
Помогите плииз!

Заранее спасибо!

[Amed]

Читай хелп и ищи примеры по ShellExecute

[Павлуша]

А можно по подробней где хелп и чего такое shellExecute?

[val]

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) As Long

Private Const SW_SHOW = 1



' open default client
dim sParameter as string
Dim hBrowse As Long


sParameter="mailto:vasiaPupkin@yahoo.com?subject=" & _
"There is something I want to tell you&body=" & _
"this is the body of the demo message"

hBrowse = ShellExecute(0&, "open", sParameter, "", "", SW_SHOW)

[Konst_One]

поиск по форуму: ShellExecute

вот один из топиков: http://bbs.vbstreets.ru/viewtopic.php?t=13125&highlight=shellexecute

[val]

А вообще Amed прав на все 100.
Учитесь пользоваться хелпом.

Я нашёл тебе этот пример за 2 минуты.

[Павлуша]

Спасибо огромное!!!!
Теперь понял!!!
Можно не скромный вопрос??
Когда мне хоть одну звезду дадут в этом форуме?
(если не хотите не отвечайте, не обижусь)

[Павлуша]

А это почему он на эту строку ругается?
mailto:vasiaPupkin@yahoo.com?subject=
Не могу понять?

[Amed]

Омм... Сколько-то там сообщений для первой звезды? Около 50?

[val]

Тогда, когда прежде чем задать вопрос, попытаешься сам найти на него ответ.

[val]

Там не на что ругаться. Это просто string.....
Проверь или ты правильно переходишь со строки на строку

[Amed]

Как он ругается? Какой номер и описание ошибки? Телепатов тут нет )

[kirrun]

А можно по подробней где хелп и чего такое shellExecute?

AllAPI

[Павлуша]

Ругается так:
Invalid Outside procedure и выделяет строку о которой я говорил выше.

[kirrun]

мда... А если подумать?

[kirrun]

От таких постов хочется топиться...

[Павлуша]

В школе я предпочитал урокам английского бутылочку пива с друзьями.
Поэтому английский в зачетке у меня "три".
А словарей у меня дома нет.
Ладно я буду чаще читать хелп и пытаться ответить на вопрос сам а потом уже к вам обращаться за помощью.
Всем спасибо кто подсказывал!!

[kirrun]

Дословный перевод:

invalid - что-то корявое
outside - вне, за пределами
рrocedure - процедура

Немного покрутив падежи смысл можно понять... Но в чем ошибка ясно и без этого сообщения... Спросили потому что никому это в голову не пришло...

Короче, больше не буду подсказывать... Сам соображай...

[Павлуша]

Ладно сам соображу.
Но все-равно спасибо.
Ладно пойду добивать этот проект.

[val]

Так коде который тебе дали надо вставить кудато.

ОК. Попробуем ещё раз


Option Explicit
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) As Long

Private Const SW_SHOW = 1


Private Sub SendMessage(ByVal sParameter As String)
Dim hBrowse As Long

hBrowse = ShellExecute(0&, "open", sParameter, "", "", SW_SHOW)

End Sub

Private Sub Command1_Click()
Dim sMessage As String

sMessage = "mailto:vasiaPupkin@yahoo.com?subject=" & _
"There is something I want to tell you&body=" & _
"this is the body of the demo message"

SendMessage (sMessage)

End Sub

[kirrun]

val

И зачем было это делать? Пускай сам думает и ошибки свои ищит. Хотя это не ошибки.. Это называется "ступил" или "даже код не читал а просто пихнул"...

[Павлуша]

Скорее ступил.
просто пихать код я уже давно отучился, а точнее отучили меня добрые люди!
(спасибо им за это)
Спасибо Val код работает и прекрасно пашет!!
тока я типы Long на Currency заменил. По личным соображениям.