VB-Homepage Tipp 410

Mail öffnen mit Übergabe Empfänger, Betreff und Kurztext

Viele Programme haben heute die E-Mail Adresse des Autors mit integriert, mit einem Klick auf den Eintrag öffnet sich ein Mailformular Ihres Standard Mailclients und die Empfänger Adresse steht schon drin. Schön und gut, aber wissen Sie auch, daß man selbst die Betreffzeile und einen Kurztext mit übergeben kann und der User ggf. nur noch den Senden Button drücken muß. Wenn nicht, hier der Tipp, der nur in einer Funktion eingeschränkt ist, alles Zusammen (Empfänger E-Mail, Betreffzeile und Text) dürfen nicht mehr als 255 Zeichen ergeben, sonst wird erbarmungslos abgehackt. Allgemein/Deklarationen 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 Funktionsaufruf strEMAIL = "webmaster@vb-homepage.de" strBetreff = "Wichtige Information" strText = "Vielen Dank für diesen guten Tipp" Call ShellExecute(Me.hwnd, vbNullString, "mailto:" & strEMAIL & "?subject=" & strBetreff & "?body=" & strText, "", "", 1)

Tipp-Download

Quelle :