Wenn ihr euch für eine gute Antwort bedanken möchtet, im entsprechenden Posting einfach den Knopf "sag Danke" 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