Domino 9 und frühere Versionen > Entwicklung
Neues memo von anderer Datenbank aus öffnen
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