Ich habe eine Accessformlar gebastelt. Es hat zwei Suchfelder, Text18 und Text20.
Wenn bei eine Eingabe in die Suchfelder kein entsprechender Datensatz gefunden wird, soll nach Klicken eine Buttons eine E-Mail an mich versandt werden können mit einen entsprechenden Hinweis,
Beispiel für 9999 Ort kein Datensatz gefunden.
Hallo,
genau hierzu gibt es das Outlook-Automatisierungsobjekt in VBA.
Tschau
Peter
Habe die Lösung selbst gefunden, hier der Code
Private Sub Befehl64_Click()
On Error GoTo Err_EMailVersandAbgebrochen
Dim sData As String
sData = Me.Text18 & Me.Text20
Dim objOutl As Object
Dim objMail As Object
Set objOutl = CreateObject(„Outlook.application“)
Set objMail = objOutl.CreateItem(olMailItem)
With objMail
.To = „[email protected]; [email protected]“
.Subject = „Fehler“
.Body = sData & " Für diesen Ort wurde kein Datensatz gefunden!"
.Send
Set objMail = Nothing
Set objOutl = Nothing
DoCmd.Hourglass False
End With
Err_EMailVersandAbgebrochen:
If Err.Number = 287 Then
MsgBox „Die E-Mail wurde nicht gesendet.“
End If
If Err.Number = 94 Then
MsgBox „Eingabe erforderlich“
End If
Exit Sub
End Sub