004
19.10.2005, 16:12 Uhr
Uwe
C/C++ Master
(Administrator)
|
Hallo,
| Visual Basic: |
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 Sub Command1_Click()
Dim Result As Long
Dim msg As String
msg = "mailto:ich@dort.de" & "?Subject=Testsubject"
msg = msg & "&Body=Hallo Welt"
Result = ShellExecute(0&, "Open", msg, "", "", 1)
End Sub
|
--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."
Bis dann...
Uwe |
