Hallo,
ich hätte gerne eine Lesebestätigung für ein Dokument. Die User, die es lesen sollen bekommen eine Mail mit einem Link zu diesem Dokument.
Folgendes habe ich bereits in meiner Maske enthalten:
Felder:
ReturnReceipt; SendTo, Subject und From
in dem Postopen-Event steht folgendes:
Sub Postopen(Source As Notesuidocument)
Set uidoc = Source
Set doc = Source.document
If uidoc.IsNewDoc Then
Exit Sub
Else
uidoc.EditMode = True
RR = doc.GetItemValue("ReturnReceipt")
If RR(0) = "1" Then
doc.ReturnReceipt = "1"
Messagebox("Empfangsbestätigung gesendet.")
End If
uidoc.EditMode = False
End If
End Sub
Mein Problem das ganze funktioniert nicht.
Fehlen vielleicht irgendwelche Felder oder ist ein Fehler im Code... ich komm einfach nicht weiter...
Ok da bin ich grad dran hab aber ein kleine Problem er bring mir beim mailFile immer Type mismatch
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim dd
Dim lookupView
Dim mailFile As String
Dim mailserver As String
Set dd = session.GetDatabase("Server", "names.nsf")
Set lookupView = dd.GetView("($Users)")
Set doc = lookupview.GetFirstDocument
While Not (doc Is Nothing)
Set oUserName = New NotesName(session.UserName)
userName = oUserName.Abbreviated
Set userDoc = lookupView.GetDocumentByKey(userName, True)
If Not (userDoc Is Nothing) Then
mailFile = userDoc.GetItemValue("MailFile")
mailServer = userDoc.GetItemValue("MailServer")
Msgbox mailFile
Msgbox mailServer
Set userMailDb = session.GetDatabase(mailServer, mailFile, True)
If Not (userMailDb Is Nothing) Then
Call userMailDb.Open("", "")
If userMailDb.IsOpen Then
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim steller
steller = uidoc.fieldgettext("Antragsteller")
...
Set oUserName = New NotesName(session.UserName)
userName = oUserName.Abbreviated
userNameCN = oUserName.Common
gelesen = uidoc.FieldGetText("gelesen")
BigString2$ = gelesen
LittleString2$ = userName
positionOfChar2& = Instr(BigStrin2$, LittleString2$)
Msgbox positionOfChar2&,,"positionOfChar2"