naja, der ganze Code wär wohl viel zu lang, aber hier ist der Part, in dem es um das Versenden geht:
'Ü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
Call rtitem.AppendText(strBodyInfo)
strBodyInfo = strBodyInfo + strInfotext
Hubert
Lieber Bernhard,
es funktioniert !
Values (from NotesItem) is a property from notesrichttextitemclass
Ein array kann ja auch "einwertig" sein.
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.