Domino 9 und frühere Versionen > ND8: Entwicklung

[gelöst] Lesebestätigung für ein Dokument

<< < (2/5) > >>

LordKiri:
ok seh ich ein, jetzt mach ich einen Button "Ja, ich habe das Dokument gelsen" wie komm ich den jetzt an seine mailDB ran zum besseren Verständnis mein Code:

Dim uidoc As NotesUIDocument
   Set uidoc = workspace.ComposeDocument ( "", mailDB User, "Memo" )
   Dim steller
   steller = uidoc.fieldgettext("Antragsteller")
   doc.Subject = "Lesebestätigung"
   doc.Body = "Die Änderung wurde gelesen."
   doc.EnterSendTo = steller

m3:
Den Pfad zur Mail-Datenbank eines Users kannst Du aus dem Domino Directory auslesen.

LordKiri:
Ok da bin ich grad dran hab aber ein kleine Problem er bring mir beim mailFile immer Type mismatch


--- Code: --- 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")
...

--- Ende Code ---

m3:

--- Zitat ---GetItemValue method 

Syntax
valueArray = notesDocument.GetItemValue( itemName$ )

Parameters
itemName$     
String. The name of an item.

Return value
value
The value or values contained in the specified name.
The data type of the value depends on the data type of the item.


--- Code: ---Notes item type                         Value return type
Rich text                               Array of strings. The text in the item, rendered into plain text
Text or text list                       Array of strings
(includes Names, Authors, and
Readers item types)
Number or number list                   Array of doubles
Date-time or range of date-time values  Array of variants of type Date
--- Ende Code ---

--- Ende Zitat ---

Du kannst nicht einem String "mailFile" ein Array "userDoc.GetItemValue("MailFile")" zuweisen.

LordKiri:
ok, das hab ich jetzt alles gelöst, soweit danke :D jetzt habe ich den Empfänger in EnterSendTo eingetragen, aber er bringt dann die Meldung, dass er keine Recipient list for send operation hat.

Heißt das Feld für SendTo doch anders?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete