Gespeicherte Mail senden (ohne SendTo Inhalt)

[Notesdummy]

Hallo,

han mal wieder nen Problem!

Ich möchte eine Mail, die ich vorher gespeichert habe verschicke. Ich habe aber keinen Empfänger im SentTo Feld stehen, da alle im BlindCopyTo stehen.
Es soll nämlich keiner der Empfänger sehen, wer die Mail alles bekommen hat und ich möchte auch nur EINE und nicht X Mails verschicken.

Wen ich nnu die Mail(s) in einer Ansicht auswähle und dann verschicken möchte, bekomme ich immer die Fehlermeldung, dass kein Empänger gefunden wurde.
Wenn ich aber die Mail öffne und als UIDOC verschicke klappt es.

Hat jemand ne Idee??

Danke,
NotesDummy

Hier mal mein Button:

Sub Click(Source As Button)
     Dim w As New NotesUiWorkspace
     Dim session as New NotesSession
     Dim db As NotesDatabase
     Dim coll As NotesDocumentCollection
     Dim doc As NotesDocument
     Set db = session.CurrentDatabase
           
     Set coll = db.UnprocessedDocuments
     Set doc = coll.GetFirstDocument
           
     Do While Not doc Is Nothing
           doc.gesendet = "1"
           doc.save True, True
           Call doc. send (False)
           Set doc = coll.GetNextDocument(doc)
     Loop
     
     Call w.ViewRefresh
End Sub

[rar]

Hi Thomas!
Ich glaube, daß es das einfachste ist, wenn du dir das mail selber schickst.
Mit
Call doc. send (False,session.UserName)
würde es z. B. gehen

-rar

[Notesdummy]

Ja, das wäre einfacher!
Aber so kann ich es nicht lösen, da ich eine Option eingebaut habe, mit der man wählen kann, ob man an sich eine Mail schicken möchte oder nicht.
Und wenn diese auf "nein" steht wäre es ja nicht Sinn der Sache!

Gibt es denn sonst keine Möglichkeit? Es wäre auch ok, wenn mir jemand sagen könnte, wie ich ein Doc zu einem UIDoc bekomme!

Danke

[rar]

Eventuell könntest du ja auch eine einfache Mailin Datenbank anlegen, an die du das mail schickst.

Es wäre auch ok, wenn mir jemand sagen könnte, wie ich ein Doc zu einem UIDoc bekomme!

dim doc as NotesDocument
set doc = ......
dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocument
Set uidoc = ws.EditDocument( True ,doc)

lg
-rar

[Notesdummy]

Hi rar,

also sorry, glaub ich steh auf'em Schlauch!  
Ich habe keine Ahnung wie du das meinst und wie ich dein Scriot verstehen soll!

[eknori]

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