Domino 9 und frühere Versionen > Entwicklung

Gespeicherte Mail senden (ohne SendTo Inhalt)

<< < (2/2)

eknori (retired):

dim doc as NotesDocument
dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocuement
Set uidoc = ws.EditDocument( True )

set doc = uidoc.Document '

Notesdummy:
Hi eknori,

wie ich ein uidoc zu einem doc bekomme wusste ich.
Mich würde es interessieren, ob man ein doc zu einem uidoc bekommt!

Also andersrum!

Notesdummy:
So, habet hin bekommen!
Danke nochmal!

Thomas

Meff:
@Thomas

wie hast Du es denn hinbekommen ?

Meff ;)

Notesdummy:
Hi Meff,

hab es so gelöst:

Dim w As New NotesUiWorkspace
     Dim session As New NotesSession
     Dim db As NotesDatabase
     Dim coll As NotesDocumentCollection
     Dim doc As NotesDocument
     Dim uidoc As NotesUiDocument
     
     Set db = session.CurrentDatabase
     Set coll = db.UnprocessedDocuments
     Set doc = coll.GetFirstDocument
     
     Do While Not doc Is Nothing
           doc.gesendet = "1"      
           Set uidoc = w.EditDocument( True, doc)
           Call uidoc.send
           Call uidoc.save
           Call uidoc.close
           Set doc = coll.GetNextDocument(doc)
     Loop
     
     Call w.ViewRefresh

Navigation

[0] Themen-Index

[*] Vorherige Sete