Domino 9 und frühere Versionen > Entwicklung

Gespeicherte Mail senden (ohne SendTo Inhalt)

(1/2) > >>

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.


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

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!

Navigation

[0] Themen-Index

[#] Nächste Seite