Mehrere Emails werden in eine Email gepackt anstatt nur eine Email

Dim heute As Variant


Sub Initialize		
 	'Initialisierungen sind alle vorhanden...

	'--------Solange Einträge in der View vorhanden sind------
	Do Until tmpdoc Is Nothing

		aktuelleliste = tmpdoc.Columnvalues(14)
		liste(9) = aktuelleliste

		aktuelleliste = tmpdoc.ColumnValues(16)
		liste(13) = aktuelleliste


		'Das Or 1=1 ist nur zum test, da es ja immer ausgeführt wird
                      If (liste(13) = heute Or 1=1)  Then

                         ' Teil der Daten für die Email aus der View rausziehen
			'------Anrede--------------------------
			aktuelleliste = tmpdoc.Columnvalues(15)
			liste(1) = aktuelleliste
			'------Name----------------------------------
			aktuelleliste = tmpdoc.Columnvalues(1)
			liste(2) = aktuelleliste



           '-----------irgendeinen Emailtext zusammenbauen----------------
           '----irgendeine Signatur zusammenbauen-----------





		sendto = "Empfängeremailadresse"


		Call maildoc.replaceItemValue("sendto", sendto)

			maildoc.subject = "Erinnerung - fehlende Zwischenevalation 5_4 "				



		Call maildoc.save(True, False, True)
		Call maildoc.send(true)

	End If		
		Set tmpdoc = view.Getnextdocument(tmpdoc)		
     Loop	
	'Ende der Schleife	


End Sub

Sub Initialize		
	'On Error GoTo ErrHdlr
	Dim session As New NotesSession	
	Dim heute As Variant
	Dim maildb As NotesDatabase
	Dim maildoc As NotesDocument
	Set maildb = session.CurrentDatabase
	Dim view As NotesView
	'Set maildoc = New NotesDocument(maildb)
	Dim tmpdoc As NotesDocument
	Dim liste (1 To 50) As String
	Dim aktuellelistearray(1 To 50) As String
	Dim aktuelleliste As String
	Dim rti As New NotesRichTextItem(maildoc, "Body")
	Dim rti2 As New NotesRichTextItem(maildoc, "Body2")
	heute = Today	
	Call maildoc.Replaceitemvalue("Form", "Memo")
	Set view = maildb.GetView("Jahresuebersicht")
	Set tmpdoc = view.Getfirstdocument()


	'--------Solange Einträge in der View vorhanden sind------
	Do Until tmpdoc Is Nothing


    'Rest siehe oben