hi, ich habe ein problem. Ich habe eine Ansicht in der alle Mitarbeiter aufgelistet sind die ein bestimmtes Dokument nicht bestätigt haben. Diese Mitarbeiter sollen einen Reminder bekommen mit dem entsprechenden Link. doch die Kollegen bekommen diese email 3mal hintereinander. Könntet Ihr mir vllt behilflich sein? wäre echt nett. Hier mein Quellcode
Sub Initialize
Dim session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim names As NotesDatabase
Dim oView As NotesView
Dim oSearchDoc As NotesDocument
Dim oNeuDoc As NotesDocument
Dim doc As NotesDocument
Dim ProfilDoc As NotesDocument
Dim uid As String
Dim heute As New NotesDateTime("Today")
Dim username As New NotesName(session.CommonUserName)
Dim RTItemProfileDoc As Variant
Dim iSendError As Integer ' Flag, ob ein Sendefehler aufgetreten ist
Dim cText As String
Dim cError As String
Dim zaehler As Integer
Dim ErrMessage As String
Dim cEmpfaenger As String
Set db = session.CurrentDatabase
Set ProfilDoc = db.GetProfileDocument("PDAllgemein")
Set RTItemProfileDoc = ProfilDoc.GetFirstItem("fdReminder")
Set oView = db.GetView("vwRem1")
REM Tracerinitialisierungsparameter
Dim aTracerPara(1) As Variant
cgTracerReklaImport = "aaRem1"
aTracerPara(0) = "Reminder"
aTracerPara(1) = "PDAllgemein"
If Not(xQAnfangID(aTracerPara)) Then
Print "Agent: aaRem1: Konnte Tracer/Logger/Protokoll nicht initialisieren. Abbruch der Funktion."
Exit Sub
End If ' If Not(xQAnfangID(aTracerPara)) Then
Set oSearchDoc = oView.GetFirstDocument
If oSearchDoc Is Nothing Then
Call XQSchreiben("0", "1", cgTracerReklaImport, "aaRem1 ERROR: Keine Dokumente zum Verarbeiten", 632637&)
Goto EndeAlles
End If
While Not (oSearchDoc Is Nothing)
zaehler = 0
' eMail erstellen und versenden
Set oNeuDoc = db.CreateDocument
oNeuDoc.Form = "Memo"
oNeuDoc.Subject = "Reminder: Newsletter Arbeitssicherheit"
Set oRTItem = New NotesRichTextItem(oNeuDoc, "Body") ' *** in Body des Memos reinschreiben
Call oRTItem.appendRTItem(RTItemProfileDoc)
Call oRtitem.AddNewLine(4)
Call oRtitem.AppendText("Verbindung zum Newsletter-Dokument. Bitte klicken. ---> ")
Call oRTItem.AppendDoclink(oSearchDoc, " Verbindung zum Newsletter-Dokument. Bitte klicken.")
cEmpfaenger = Cstr(oSearchDoc.fdName(0))
cError = "asCreditImport ERROR: CredMail Send " + cEmpfaenger
On Error Goto ErrorPrint
iSendError = False
Call oNeuDoc.Send(False, cEmpfaenger)
If iSendError Then
cError = "Error: ReminderMail Send " + cEmpfaenger
Goto ErrorPrint
End If ' If iSendError Then
Call doc.Send( False, "Uezeyir Kural/Rutronik/De")
zaehler = zaehler +1
Set oSearchDoc = oView.GetNextDocument(oSearchDoc)
Wend
Call XQSchreiben("0", "1", cgTracerReklaImport, "Ende Reminder", 632637&)
cText = Cstr(zaehler) + " Dokumente bearbeitet"
Call XQSchreiben("0", "1", cgTracerReklaImport, cText, 632637&)
Goto EndeAlles
ErrorPrint:
ErrMessage = "Error : " + Cstr(Err) & " " & Error$ & " on line " & Cstr(Erl)
Call XQSchreiben("0", "1", cgTracerReklaImport, cError & " -> " & ErrMessage, 632637&)
Resume Next
EndeAlles:
Call xQEnde
End Sub
