Mail senden
26.09.2006 13:15:39
otto
ich habe eine UF (Kunden) u.a. mit einer Schaltfläche fürs Mail senden.
Zuerst öffnet sich eine Eingabemaske (Betreff) für den Betreff, die Mailadresse steht z.B. in TextBox11.
Mit folgendem Code (aus dem Forum) kommt aber die Fehlermeldung "Datentyp ByRef unverträglich"
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
Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub
Private Sub Command1_Click()
Betreff.Show
Dim Nachricht As String
Dim empfänger, betr
empfänfer = Kunden.TextBox11
betr = Betreff.TextBox1
Nachricht = "Hallo" & "%0D%0A" & "Du da !"
Call Mail(empfaenger, betr, Nachricht)
End Sub
Wenn ich empfänger und betr in "" schreibe funktioniert es, ich möchte aber keine vordefinierte Mailadresse bzw. Betreff.
Hat jemand eine Idee?
Habe es auch schon mit Mailsend probiert, geht überhaupt nicht, da kann ich meine VBA Projekte der jeweiligen Mappe nicht mehr bearbeiten.
Gruß otto
Anzeige