Elite Veteran
Beiträge: 940
  
Ort: Wien | Hallo!
rkoellm
Ich möchte gerne einen Automatismus haben, dass wenn ein Mitarbeiter einen Vorgang abgezeichnet wird, eine andere Person automatisch per E-Mail benachrichtigt.
Das ganze ist ein großes Formular, wo verschiedene Elemente und Bereiche sind, wo eine Stellenausschreibung vorbereitet werden soll
Die Abzeichnung ist in einem Bereich in einer Abzeichnungsliste konzipiert. Die Abzeichnungsliste hat am Ende der Zeile einen Button, der schrittweise von einer Person die Abzeichnungn and den nächsten in der Liste weitergibt. Zum Schluss zeichnet jemand mit der Bez. "P" ab. Wenn das geschehen ist, soll ein anderer Mitarbeiter automatisch benachtigt werden.
Im Abzeichnungsbutton ist folgender Code enthalten.
Private Sub btn_Abzeichnen_Click()
Dim aktuelleID As Long, WL As String
' Me.Parent.gesperrt = True
' Me.Parent.Sperren
StatusSetzen Me.gezeichnet_Status, Me.gezeichnet_am, Me.gezeichnet_von
aktuelleID = Me.ID
DoCmd.GoToRecord , , acNext
If Me.AbzeichnerID <> 0 Then
Me.AnzeigeUebersicht = True
Select Case Me.Funktion
Case "GBA"
Mailtext DLookup("[GBA]", "TStammdatenAllgemein")
Case "SBV"
Mailtext DLookup("[SBV]", "TStammdatenAllgemein")
Case "GSB"
Mailtext DLookup("[GSB]", "TStammdatenAllgemein")
Case Else
Mailtext (Nz(Me.AbzeichnerID.Column(2), ""))
End Select
WL = Me.Funktion & " (" & Me.AbzeichnerID.Column(1) & ")"
Me.Recordset.FindFirst "[ID]=" & aktuelleID
Me.Weiterleitung_an = "weitergeleitet an " & WL
Me.AnzeigeUebersicht = True
Else
Me.AnzeigeUebersicht = True
Me.Recordset.FindFirst "[ID]=" & aktuelleID
Me.Weiterleitung_an = "Schlusszeichnung durch " & Me.Funktion & " (" & Me.AbzeichnerID.Column(1) & ")"
Me.AnzeigeUebersicht = True
End If
End Sub
Da bisher niemand geantwortet hat, nehme ich an, dass den anderen ähnlich wie mir einiges fehlt, um eine Lösung vorschlagen zu können.
1. Dein Code ist etwas schwer zu deuten. Gibt es darin schon die Prüfung auf
> Zum Schluss zeichnet jemand mit der Bez. "P" ab. Wenn das geschehen ist,
?
2. Wenn ja, wo und kann man dort die Mailversendung bereits einbauen?
3. Woher kommen die Daten für die Email (Absender, Empfänger, Betreff, Text etc.)?
Das einzige, was man im Code sieht, ist ein etwas unklarer Aufruf von etwas, das "Mailtext" heißt.
4. Mit welchem Mailprogramm soll gemail werden? Falls Outlook, dann klassisches oder New Outlook?
-----
Servus
Karl
*********
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
Access DevCon Vienna: https://www.donkarl.com/devcon
Access Forever: https://www.accessforever.org
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |
