| Wäre auch dankbar für Tipps zum Email mit Anhang.
Das habe ich und das funktioniert:
Private Sub EMAIL_Click()
DoCmd.SendObject , , acFormatHTML, "an", "cc", , "betreff:", _
"email text! " & Chr$(13) & Chr$(13) & _
Chr$(13) & Chr$(13) & _
"email text: " & Chr$(13) & Chr$(13) & _
Chr$(13) & Chr$(13) & _
"formularfeld:" & " " & Me.formularinhalt & Chr$(13) & Chr$(13) & _
"formularfeld2:" & " " & Me.formularinhalt2 & Chr$(13) & Chr$(13) & _
"formularfeld3:" & " " & Me.formularinhalt3 & Chr$(13) & Chr$(13) & _
"formularfeld4:" & " " & Me.formularinhalt4 & Chr$(13) & Chr$(13) & _
"formularfeld5:" & " " & Me.formularinhalt5 & Chr$(13) & Chr$(13) & _
Chr$(13) & Chr$(13) & _
"emailtext! " & Chr$(13) & Chr$(13) & _
Chr$(13) & Chr$(13) & _
"Freundliche Grüsse" & " " & Me.Name & Chr$(13) & Chr$(13) & _
Err_EMAIL_Click:
Exit Sub
End Sub
Wie bringe ich es noch hin, dass ich den Anhang - welchen ich im Formular hinzufügen konnte, auch noch in die Mail kriege? |
