Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Zitatdie durch Klick auf eine Schaltfläche im Formular die ausgefüllten Daten des Formulars ...

Private Sub PDF_Senden()
Dim formName As String
Dim pdfPath As String
Dim emailTo As String
Dim subject As String
Dim body As String
formName = "Bereitschaft_" & Format(Now(), "yyyymmdd_hhnnss") & ".pdf" ' Name Ihres Formulars mit Zeitstempel
pdfPath = "C:\Access\Bereitschaftsberichte\" & formName & "" ' Speicherort des Formulars
' 1.Exportvorgang
DoCmd.OpenForm formName, acViewPreview, acHidden
DoCmd.OutputTo acOutputForm, formName, acFormatPDF, pdfPath
DoCmd.Close acForm, formName
' 2. E-Mail mit PDF-Anhang senden
DoCmd.SendObject acSendForm, formName, acFormatPDF, _
emailTo, , , subject, body, False ' True = E-Mail anzeigen vor Versand
With OutMail
.From = "xxx@xyz.de"
.To = "yyy@xyz.de"
.subject = "Bereitschaftsbericht"
.BodyPart.Charset = "iso-8859-1"
.TextBody = "Hallo zusammen. Hiermit sende ich Ihnen meinen Bereitschaftsbericht."
.AddAttachment formName
With .Configuration.Fields
.Item(Schema & "sendusing") = cdoSendUsingPort
.Item(Schema & "smtpserver") = "mailserver.local"
.Item(Schema & "smtpserverport") = 25
.Item(Schema & "smtpauthenticate") = cdoAnonymous
.Update
End With
.Send
End With
Set OutMail = Nothing
End Sub