Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hier ist das Beispiel aus den Tipps und Tricks:
Autor: Boris
Datum: 22.05.02 08:49
Beschreibung Um das im System registrierten Standard-EMail-Programm zu aktivieren, können Sie nachfolgende Prozedur verwenden. Sie können der Prozedur wahlweise die Empfängeradresse und/oder den Betreff übergeben. ' Hier die benötigten API-Deklarationen 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 ' Die nachfolgende Prozedur startet das Standard-EMail ' Programm, öffnet das Fenster für "Neue Nachrichten" ' und trägt ggf. die Empfängeradresse, den Betreff und ' den Nachrichtentext ein. ' ' Anm.: Weitere Mailparameter wie zum Beispiel cc oder bcc sind denkbar, ' sind hier jedoch nicht implementiert. ' (Näheres siehe Dokument "SelfHTML 8.0", mailto: - Parameter) Public Sub StartEMail(ByVal hWnd As Long, _ Optional ByVal Empfänger As String = "", _ Optional ByVal Betreff As String = "", _ Optional ByVal Text As String) ' hWnd: Fenster-Handle eines Formulars ' Ihrer Anwendung ' Empfänger: EMail-Adresse des Empfängers (opt.) ' Betreff: EMail-Betreff (optional) ' Text: EMail-Text (Optional) ' Hier werden die Mail-Parameter gespeichert Mailparameter = "" ' Wurde ein Betreff angegeben? If Betreff <> "" Then AddMailParam Mailparameter, "subject=" & Betreff End If ' Wurde ein Text angegeben? If Text <> "" Then AddMailParam Mailparameter, "body=" & Text End If Screen.MousePointer = 11 Call ShellExecute(hWnd, "Open", "mailto:" & _ Empfänger & Mailparameter, "", "", 1) Screen.MousePointer = 0 End Sub Private Sub AddMailParam(ByRef r_AllParams As String, _ ByVal p_Param As String) If r_AllParams = "" Then r_AllParams = "?" & p_Param Else r_AllParams = r_AllParams & "&" & p_Param End If End Sub Beispiel: StartEMail Me.hWnd, "tipps@vbarchiv.de", _ "Neue Tipps", "Hier ein Tipp für das vb@rchiv..."

e-mail	37	Junior Proggi	22.05.02 07:46
Tipps und Tricks	26	Boris	22.05.02 08:14
Re: Tipps und Tricks	25	Junior Proggi	22.05.02 08:47
Hier ist das Beispiel aus den Tipps und Tricks:	31	Boris	22.05.02 08:49

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