Domino 9 und frühere Versionen > ND6: Entwicklung

Mehrere MAils gleichzeitig versenden???

(1/5) > >>

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
--- Ende Code ---
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...

Navigation

[0] Themen-Index

[#] Nächste Seite