Hallo an alle!
Ich beschäftige mich erst seit wenigen Tagen mit LotusScript und suche einen Weg, wie ich bestimmte Ausdrücke in einem String ersetzen kann.
In Notes habe ich für meine Applikation eine E-Mailvorlage erstellt. Der Body sieht so aus:
Code
"Hallo <<wfantragssteller>>,Dein Urlaub vom <<ersterTag>> bis zum <<letzterTag>> wurde genehmigt."
Mein Problem
Das Versenden der E-Mail ist ein automatischer Prozess, welcher bisher 1A funktioniert.
Jetzt brauche ich eine Möglichkeit wie ich den String (siehe oben) durchsuchen kann "<<" und ">>" sollen als Marker funktionieren und der Ausdruck dazwischen soll als Eigenschaft rausgelesen werden.
Sprich, aus "Hallo <<wfantragssteller>>" wird --> "Hallo" & nd.wfantragssteller
Diese Bearbeitung müsste mE nach "SourceBody = rtItem.getUnformattedText" stattfinden?!
Code
Dim nd As NotesDocument
Dim ndMail As NotesDocument
Dim ndTemplate As NotesDocument
Dim rtItem As NotesRichTextItem
Dim nv As NotesView
Dim SourceBody As Variant
Dim SourceString As String
Dim i As Integer
Set nd = pwd.Document
If nd.wfAlias(0) = "InfoGenehmigung" Then
Set nv = nd.Parentdatabase.Getview("(va_MailTemplates)")
Set ndTemplate = nv.Getdocumentbykey("Neuer Urlaubsantrag",True)
If Not (ndTemplate Is Nothing) Then
Set rtItem = ndTemplate.Getfirstitem("Body")
Set ndMail = nd.Parentdatabase.Createdocument()
ndMail.subject = "Urlaub genehmigt"
ndMail.SendTo = "USER XY"
ndMail.form = "Memo"
SourceBody = rtItem.getUnformattedText
Call ndMail.Replaceitemvalue("Body",SourceBody)
Call ndMail.send(True)
End If
blnComplete = True
End If
Alles anzeigen
ich hoffe Ihr versteht mich
Vielen Dank