Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Notesdummy am 21.08.02 - 15:13:28
-
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
-
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
-
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
-
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
-
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!
-
dim doc as NotesDocument
dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocuement
Set uidoc = ws.EditDocument( True )
set doc = uidoc.Document '
-
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!
-
So, habet hin bekommen!
Danke nochmal!
Thomas
-
@Thomas
wie hast Du es denn hinbekommen ?
Meff ;)
-
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