Interne ID von Access in Email verwenden
28.09.2018 13:25:33
Access
ich möchte gerne die interne ID von Access in meiner Email function verwenden die abgeschickt wird, wenn der Anwender auf einen Button auf dem Formular klickt.
Nun stehe ich vor der Herausforderung, die ID die gerade erstellt wird, just in diesen Moment in die Email zu bekommen. Könnt ihr mir helfen?
Vielen Dank und beste Grüße
Christian
Private Sub Befehl150_Click() 'Speicher Button
MsgBox "Request ID " & DMax("ReqID", "tblMain") 'ID der neuen Zeile in messagebox ausgeben
ReqID = Me.ReqID.Value
THUser = Me.THUser.Value
Dim myMail As Outlook.MailItem
Dim myOutlApp As Outlook.Application
Set myOutlApp = New Outlook.Application
Set myMail = myOutlApp.CreateItem(olMailItem)
myMail.SentOnBehalfOfName = "Email"
Request = Me.Req.Value
ReqID = Me.ReqID.Value
With myMail
.To = Me.THUser.Value
.Subject = "Creation of ID"
.Body = "Dear Requestor," & vbCrLf & vbCrLf & _
"Your Request" _
& Me.ReqID.Value & " " & "has been created" & vbCrLf & vbCrLf & _
"Request description:" & " " & Me.Req.Value
.Send
End With
Set myMail = Nothing
Set myOutlApp = Nothing
End Sub