Domino 9 und frühere Versionen > Entwicklung

Neues memo von anderer Datenbank aus öffnen

(1/4) > >>

Obrac:
Eine Frage hätte ich bezüglich des Erstellen eines neuen Memos mittels Lotus Script. Und zwar soll dies von einer anderen Datenbank aus geschehen und das Memo soll in der Datenbank des aktuellen Benutzers geöffnet werden. Ausserdem soll im Body der Mail schon etwas stehen, wenn das neue Memo geöffnet wird.
Weiss jemand um Rat?

Axel:
Hi,

ich hab mir mal die folgende Funktion geschrieben:

Als Parameter werden die Mailadresse und die Betreffszeile übergeben.

Function CreateMailMemo(varSendTo As Variant, sSubject As String) As Integer
   
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim maildb As NotesDatabase
   Dim maildoc As NotesDocument
   Dim profile As NotesDocument
   Dim sMailAdress As String
   Dim sMailSubject As String
   
   CreateMailMemo = 0
   
   Set maildb = New NotesDatabase("","")
   maildb.OpenMail
   Set profile = maildb.GetProfileDocument("CalendarProfile")
   
   Set maildoc = New NotesDocument(maildb)
   maildoc.Form = "Memo"
   maildoc.Logo = profile.DefaultLogo(0)
   maildoc.Principal = profile.Owner(0)
   maildoc.SendTo = varSendTo
   maildoc.Subject = sSubject
   
   Call workspace.EditDocument(True, maildoc)
   
End Function


Eine Erweiterung für Mailtext sollte eigentlich problemlos möglich sein.


Axel

doliman:
Hi,

dim db As new NotesDatabase(server, dbname)
Dim doc As NotesDocument
Dim uiws As New NotesUIWorkspace

Set doc = New NotesDocument( db )
doc.Form = "Memo"
doc.SendTo = "Empfänger"
doc.Subject = "Hier dein Subject"

Call uiws.EditDocument(True , doc)

so oder so ähnlich könnte es aussehen.

Till_21:
auch wenn du schreibst, dass du die loesung in LS haben willst, hier eine Kurzfassung :

@Command([MailComposeMemo])

Gruss und schoenes WE

Obrac:
Danke schonmal, eure antworten haben mir auf jeden fall geholfen. Jetzt muss ich nur noch das rtitem richtig füllen, das klappt so noch nicht.

Navigation

[0] Themen-Index

[#] Nächste Seite

Zur normalen Ansicht wechseln