Domino 9 und frühere Versionen > ND7: Administration & Userprobleme

Script für neues Memo

(1/3) > >>

Vitality:
Hallo,

ich benutze die Lotus Notes Version 7.0.30.7269 und bräuchte dringend ein Script das beim Ausführen ein neues Memo erstellt.

Kann mir hier jemand weiter helfen?

Gruß

Vitality

klaussal:
Fertigen Code wirst Du wohl hier eher nicht bekommen.
Wir leisten mehr Hilfe zur Selbsthilfe.

Kennst Du dich überhaupt in Script aus ?
Was hast Du bisher unternommen, das Script zu erstellen ?

Wenn es da Probleme geben sollte, helfen wir gerne weiter !

Klafu:
Bei der kurzen Beschreibung reicht sicher auch ein @Formula, oder?

@Command([Compose];"MASKENNAME")

klaussal:

--- Zitat ---Bei der kurzen Beschreibung reicht sicher auch ein @Formula, oder?
--- Ende Zitat ---

Im Prinzip hätte auch ein "Ja" gereicht  :-X

Vitality:
Hey,

danke für die schnellen Antworten :)

Ich kenne mich leider garnicht aus mit Scripten :(
Bisher habe ich nur in Internet nach fertig Lösungen gesucht.

Dieses Script soll anscheinend funktionieren, aber das tut es bei mir nicht, da ich keine Ahnung habe wäre es ja möglich das nur ein paar Kleinigkeiten geändert werden müssen das ich es zum laufen bekomme?

...... cut of code ....
Private Sub Notes()
Dim oSess As Object
Dim oMailDB As Object
Dim oMailDoc As Object
Dim oBody As Object

Dim ws As Object
Dim uidoc

Dim mailsvr
Dim mailfile

Set oSess = CreateObject("Notes.NotesSession")

mailsvr = oSess.GetEnvironmentString("MailServer", True)
mailfile = LCase(oSess.GetEnvironmentString("MailFile", True))

Set oMailDB = oSess.GETDATABASE("", "")
Call oMailDB.open(mailsvr, mailfile)

If oMailDB.isopen Then
Set oMailDoc = oMailDB.CREATEDOCUMENT
Else
MsgBox "Could not open Notes", 32
End If

oMailDoc.subject = "Test mail"
oMailDoc.Form = "Memo"

Set oBody = oMailDoc.CREATERICHTEXTITEM("BODY")

Call oBody.Embedobject(1454, "", "c:\Testattachment.htm")

Set ws = CreateObject("Notes.NotesUIWorkspace")
Set uidoc = ws.editdocument(True, oMailDoc, False)

Set oSess = Nothing
Set oMailDB = Nothing
Set oMailDoc = Nothing
Set ws = Nothing
Set uidoc = Nothing
End Sub

..... end cut .........

Navigation

[0] Themen-Index

[#] Nächste Seite