Mehrere MAils gleichzeitig versenden???

[Tibo]

Hallo zusammen!

Ich hab folgendes Problem beim versenden von Mails. In einem Workflow wird immer ein bestimmter Text angehangen, ist individuell. Da aber mehrere Mail mit verschiedenen Texten gleichzeitg verschickt werden sollen hab ich in einer For-Schleife,  für die Anzahl der Mails, ein Select-Caseeingebaut, für den entspechenden Text. Das Problem hierbei ist, dass nostes den Mail-Text der vorherigen Mail nicht löscht, sondern nur anhängt...

Kann mir da jemand weiterhelfen??

[tks]

Poste doch mal den Code.

[Tibo]

naja, der ganze Code wär wohl viel zu lang, aber hier ist der Part, in dem es um das Versenden geht:

Code

'Überprüfung, ob ein Empfänger für ZustimmungsMail vorhanden ist
		If strRecipient <>""  Then
			
			'ZustimmungsMail
			With senddoc
				.Form = "Memo"
				.SendTo = strRecipient
				.SendFrom = "poststeuerung@zrwest.de"
				.Principal = "poststeuerung@zrwest.de"
				.Subject = "Dokument " + strZweck + " - " + strDocName
			End With			
			
			
			strBody = "Das Dokument " + strDocName + " wurde Ihnen " + strZweck + " zugewiesen." & Chr(13) & Chr(13)
			strBody = strBody + "Sie können das Dokument direkt über den folgenden Link erreichen: " & Chr(13) & Chr(13)
			
			'wenn nur zur Kenntnis
			If strZweck = "zur Kenntnis" Then
				strBodyInfo = Chr(13) & Chr(13)
				strBodyInfo = strBodyInfo + "Sofern ein besonderer Hinweis vermerkt wurde, ist dieser nachfolgend angegeben:" & Chr(13) & Chr(13)
				strBodyInfo = strBodyInfo + strInfotext
			End If			
			
			Call rtitem.AppendText(strBody)
			Call rtItem.AppendDocLink (doc, doc.universalID)
			Call rtitem.AppendText(strBodyInfo)
			
			'senden
			Call senddoc.send(False)			
			
		'Überprüfung ob AblehungsMail
		Elseif strZweck = "Paraphierung" Or strZweck = "Unterschrift" Then
			
			'AblehnungsMail
			strBody = "Die " + strZweck + " des Dokuments " + strDocName + " wurde von " + strAblehner + " abgelehnt." & Chr(13) & Chr(13)
			strBody = strBody + "Sie können das Dokument direkt über den folgenden Link erreichen: " & Chr(13) & Chr(13)
			
			Call rtitem.AppendText(strBody)
			Call rtItem.AppendDocLink (doc, doc.universalID)
			
			For intNumRecipients = 0 To Ubound(strRecipientAblehn)
				With senddoc
					.Form = "Memo"
					.SendTo = strRecipientAblehn(intNumRecipients)
					.SendFrom = "poststeuerung@zrwest.de"
					.Principal = "poststeuerung@zrwest.de"
					.Subject = strZweck + " wurde abgelehnt" + " - " + strDocName
				End With
				
				'senden
				Call senddoc.send(False)
				
			Next
			
		End If
		
		'Leeren der Variablen
		strRecipient = ""
		strZweck = ""
		strBody = " "
		strBodyInfo = " "
		strAblehner = ""
		
	Next

Es geht hier um den Teil "zurKenntnis", dabei fügt er mir immer den letzten Text mit ein...

[klaussal]

Hast Du mal den Debugger mitlaufen lassen ?

Wird strBodyInfo wirklich gelöscht ?

[Tibo]

Debugger hab ich mitlaufen lassen, scheint soweit alles in Ordnung zu sein...

strBodyInfo wird leider nciht gelöscht, warum auch immer.. Ich habe es schon versucht mit keinem Leerzeichen, nur einem.. nichts hat geholfen! Der Inhalt müsste eigentlich auch jedesmal überschrieben werden, macht es leider nur nicht...

[klaussal]

Normalerweise sollte ein xxx= "" reichen.
Kommt er überhaupt zu den Zeilen, die wo löschen sollten ?

Alternativ mal ein xxx = "." probieren.

[Tibo]

Danke für den Tipp!

Hat leider nciht gebracht... Ich hab eine Msg nach dem leeren eingefügt und zeigt immer Leerzeichen bzw. "." an!

Eigentlich müstte es doch so klappen, wie ich es habe, oder nicht??

[Tibo]

Kann es vielleicht sein, dass ich irgendwie den Inhalt aus

Code

Call rtitem.AppendText(strBodyInfo)

löschen muss und nicht den Inhalt aus strBodyInfo???

[HH]

Wo wird denn die Variable strInfoText gesetzt / geleert?

Code

strBodyInfo = strBodyInfo + strInfotext

Hubert

[koehlerbv]

Wenn Du immer wieder das gleiche RichTextItem-Objekt verwendest in Deiner Schleife, bleibt natürlich auch der Inhalt immer bestehen.

Bernhard

[klaussal]

Deshalb ja meine Frage:

Kommt er überhaupt zu den Zeilen, die wo löschen sollten ?

[koehlerbv]

Nein, Klaus - es hat eher den Anschein, als wenn es diese Zeile mit dem NotesItem.Remove noch gar nicht vorhanden wäre.

Bernhard

[Tibo]

Hey, es geht!!!
Danke Bernhard, mir hat echt das .Remove gefehlt!! Jetzt funkt alles!!

Danke nochmal an alle für eure Hilfe!!

Gruß Tibo

[Neopi]

Hallo,
wenn mit remove gearbeitet wird, muss dann das item nicht neu gesetzt werden ?
Wäre ein ReplaceItemValue nicht eleganter ?

Gruß
Martin

[koehlerbv]

Nicht bei einem RichtTextItem, Martin.

Bernhard

[Tibo]

An welcher Stelle müsste ich denn das ReplaceItemValue setzen?? Nicht einfach mit dem Remove ersetzen, oder??

[Neopi]

Ok, war zu schnell ein replaceItemValue funzt nicht bei einem RichTextItem.

Aber, wie wär es mit
rtitem.Values = "" zum löschen ?
bzw.
rtitem.Values = "Neur Text"  anstatt rtitem.appendtext = "Neuer text"



Martin

[DAU-in]

muss der String dann nicht als Array übergeben werden?

[koehlerbv]

@Martin: Auch das funktioniert nicht mit RichText (siehe DesignerHelp).

@DAU-in: Wozu? Siehe DesignerHelp. Aber wie gesagt - Arrays gehen in RichTextItems nun gar nicht 

Bernhard

[Neopi]

Lieber Bernhard,

es funktioniert !

Values (from NotesItem) is a property from notesrichttextitemclass

Ein array kann ja auch "einwertig" sein.

Code

Dim ws As New NotesUIWorkspace
	Dim uiview As NotesUIView	
	Dim doc As NotesDocument	
	Set uiview = ws.CurrentView
	Set dc = uiview.Documents
	Set doc = dc.GetFirstDocument	
	
	Dim rtitem As Variant
' Dim rtitem As NotesRichTextItem  'geht auch

'...set value of doc...
	Set rtitem = doc.GetFirstItem( "testbody" )
	If ( rtitem.Type = RICHTEXT ) Then
		rtitem.Values = "gelöscht"
		Call doc.Save( False, True )
	End If

Habe ich als Funktion mal in eine Ansicht eingebunden.