Domino 9 und frühere Versionen > ND6: Entwicklung

workspace.EDITDOCUMENT Problem bitte um Unterstützung

<< < (3/5) > >>

MichaelS:
Danke,

nur wenn ich mit OLE Klasse arbeite,

dann muss man eine Session wie z.Bsp hier starten

"Set objNotes = GetObject("", "Notes.Notessession")"

Das Problem ist, dass bei dieser Methode mit Starten des Clients auch Lotus Notes als Anwendung mit geöffnet wird.

Ihr habt natürlich recht mit der Ole Klasse hat das funktioniert.
Hab am Anfang auch damit angefangen hier hatte ich nur das Problem dass, die Anwendung immer mit startete. Ich will aber dem Benützer die Auswahl gebenn: "Gleich senden oder vorher editieren".

Muss man dass den wirklich mit zwei verschiedenen Routinen machen?

Und nur so nebenbei bei beenden von Notes erscheint dei Meldung "Sie haben noch ausgehende Mail anstehen. Möchten Sie diese jetzt übertragen"
Kann mit diese Meldung irgendwie deaktivieren am besten per Code(VBA).

Und unter welcher Adresse kann ich die Online Hilfe finden. Bin in dieser Thematik
noch ein Neuling.

Danke!

MichaelS

MichaelS:
Hallo,

diesen Code habe ich vorher benützt.

das funktioniert soweit, nur, dass ich hier nicht weiss wie ich verhindern das die Anwendung sich auch mit öffnet.

'*******************************************
Public Sub test()
Dim objNotes As Object, objNotesDB As Object, objNotesMailDoc As Object, workspace As Object
Dim SendItem, rtitem

' Zuweisung der Objektvariablen
    Set objNotes = GetObject("", "Notes.Notessession")
    Set objNotesDB = objNotes.GetDatabase("", "")
    ' Öffnen der Standard-Maildatenbank / Erstellen neues Maildokument
    Call objNotesDB.OPENMAIL
    Set objNotesMailDoc = objNotesDB.CreateDocument
    objNotesMailDoc.Form = "Memo"
    Call objNotesMailDoc.Save(True, False)
    Set SendItem = objNotesMailDoc.AppendItemValue("SendTo", "")
   
     objNotesMailDoc.SendTo = "schindlm@tiscali.de"
    'objNotesMailDoc.CopyTo = cc
    'objNotesMailDoc.BlindCopyTo = bcc
    objNotesMailDoc.Subject = "test"
    Set rtitem = objNotesMailDoc.CreateRichTextItem("Body")
    objNotesMailDoc.Body = "nachricht"
    rtitem.AddNewLine (1)
   
    Call rtitem.EmbedObject(1454, "", "C:\Dokumente und Einstellungen\User_BuyOne\Eigene Dateien\vertreter.txt")

    Set workspace = CreateObject("Notes.NotesUIWorkspace")
   
    Call workspace.EDITDOCUMENT(True, objNotesMailDoc).GOTOFIELD("Subject")

End Sub
'**************************************************

Dieser Code funktioniert auch ohne Verweis auf die Notes Bibliothek.

MichaelS

Semeaphoros:
Naja, sooo gross ist der Unterschied nicht. auch bei COM wird die Serverapplikation gestartet, man sieht das nur nicht unbedingt so gut wie bei Ole, da würd ich mir jetzt mal keine Sorgen machen.

MichaelS:

Was meinst du damit "Man sieht das nicht so gut"?

ich darfs mal zusammenfassen.

1) Über COM kann man im Hintergrund (ohne, dass Notes als   Anwendung läuft) ein Mail versenden. In diesem Fall kann ich jedoch das Mail nicht zum editieren öffnen.

2) Über OLE kann ich ein Mail versenden und zum Editieren öffnen.
Jedoch wird hier die Lotus Notes Anwendung mitgeöffnet

Ist das soweit richtig?

Gruss

MichaelS

koehlerbv:
Jo, Michael, das ist richtig so. Wegen der OLE-Lösung: Du kannst ja kaum ein Notes-Mail editieren, wenn der Notes-Client nicht zur Verfügung steht, oder ? Das käme ja nicht so gut. FontEnd - Client muss laufen, ergo OLE. Für das Backend "reicht" COM.

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete