E-Mail auf Knopfdruck

antifa2004 · 15. April 2009

Hallo ihr,

ich habe ein Problem in Access. Nach langem erfolglosen googeln muss ichs doch mal hier rein stellen:

Ich hab ein Formular. Auf diesem befindet sich ein Textfeld, wo die E-Mail-Adresse eingegeben ist (werden kann). Dahinter ist ein Button. Drückt man diesen, soll das Standardmailprogramm aufgehen und die Mailadresse in "An:" stehen. (Funktion mailto)

Kann mir jemand helfen? Wäre wirklich große Klasse!

Danke!

Hackl-Schorsch · 17. April 2009

Hi antifa2004,

kopiere Dir den foldenden Code in ein normales Modul:

Code:

Option Compare Database
Option Explicit

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

Dann kannst Du die Email damit starten (z.B. Code hinter Button):

Code:

Dim R As Long
    R = ShellExecute(Me.hwnd, "Open", "mailto:" & [Email-Adresse] & "?body=" & [Text], _
       vbNullString, "", vbNormalFocus)

Wobei [Email-Adresse] und [Text] entsprechend ersetzt werden müssen (z.B. Variable)

HTH

Gruß GEorg

Suche

E-Mail auf Knopfdruck

antifa2004

Ensign

Hackl-Schorsch

Cadet 3rd Year

Ähnliche Themen