Supportnet / Forum / Datenbanken

Hallo, wie kann ich unter AccessXP in einem Formular eine E-Mailadresse eintragen mit welcher dann das Mailprogramm (hier Outlook XP) gestartet wird ? Vielen Dank Martin

In A2k gings mit DoCmd.SendObject.
Könnte ungefähr so aussehen:

On Error GoTo Err_Button1_Click

Dim stEmpfaenger As String
Dim stBetreff As String
Dim stNachricht As String

If IsNull([txtEmail1]) Then
stEmpfaenger = ""
Else
stEmpfaenger = [txtEmail1]
End If

stBetreff = ""
stNachricht = ""

DoCmd.SendObject , , , stEmpfaenger, , , stBetreff, stNachricht, -1

Exit_Button1_Click:
Exit Sub

Err_Button1_Click:
MsgBox Err.Number & " " &Err.Description
Resume Exit_Button1_Click

API von Günther Ritter:
Probier mal, in A97 und VB geht es bei mir. Wenn der Aufruf nicht vom
Formular erfogt, dann Me.hWnd durch 0 ersetzen.

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

Sub testMail()
Dim str As String
str = "mailto:marie.snoopy@gmx.de?" _
& "subject=API4MAILTO&body=Testmail"
ShellExecute Me.hWnd, vbNullString, str, vbNullString, vbNullString, 0
End Sub

Sub testURL()
Dim str As String
str = "http://www.ostfrieslandweb.de/access/"
ShellExecute Me.hWnd, "open", str, vbNullString, vbNullString, 0
End Sub

Mehr dazu unter:
http://groups.google.de/groups?hl=de&threadm=oav4b8.b8e.ln%40fiwi.volke-muc.de&rnum=1&prev=/groups%3Fq%3Dapi%2520statt%2520mailto%26hl%3Dde%26sa%3DN%26tab%3Dwg

Um den Link aufzurufen musst Du alles in eine Zeile schreiben.

Gruß Marie

• access
• Access Datenbank 2000 mit Access 1997 öffnen
• Access, import Access-Tabellen
• Read-Only-Verknüpfung von Access zu Access Tabelle
• Access DB - LIKE Schlüsselwort - Query funktioniert in Access, jedoch nicht in VBA