Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: EMail-Programm
Autor: Ueli
Datum: 18.09.18 17:49
Hallo Souffleurlos Im folgenden der Code. 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 ' Standard-EMail Client öffnen und Daten übergeben Private Sub cmdGO_Click() Dim Parameter As String Dim Result As Long Parameter = txtTo.Text & _ "?subject=" & txtSubject.Text & _ "&body=" & Replace(txtBody.Text, vbCrLf, "%0d%0a") Result = ShellExecute(Me.hWnd, "Open", "mailto:" + _ Parameter, "", "", 1) End Sub Private Sub Image3_Click() lblURL_Click End Sub Private Sub lblURL_Click() URLGoTo Me.hWnd, lblURL.Caption End Sub ' Standard-Browser starten und WWW-Seite aufrufen Private Sub URLGoTo(ByVal hWnd As Long, ByVal URL As String) Screen.MousePointer = 11 If Left$(URL, 7) <> "http://" Then URL = "http://" & URL Call ShellExecute(hWnd, "Open", URL, "", "", 3) Screen.MousePointer = 0 End Sub Die beiden Click Ereignisse funktionieren nur bei cmdGO passiert nichts. Ich hoffe, dass der Code weiterhilft. Mit freundlichen Grüssen Ueli Grüninger

EMail-Programm	1.011	Ueli	16.09.18 16:07
Re: EMail-Programm	520	Souffleurlos	18.09.18 17:06
Re: EMail-Programm	524	Ueli	18.09.18 17:49
Re: EMail-Programm	507	Souffleurlos	18.09.18 19:19
Re: EMail-Programm	512	Ueli	18.09.18 19:41
Ich habe das zur Kenntnis genommen (owT)	506	Souffleurlos	18.09.18 19:52
Re: EMail-Programm	509	Franki	30.09.18 00:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen