Beiträge von maria

Bin dabei ein wenig Lotus Script zu lernen und habe ein Script erstellt, welches den Titel der Datenbank mittels einer Messagebox anzeigt.

Sub Click(Source As Button)	Dim db As NotesDatabase	Set db = New notesDatabase("" , "test.nsf")	Messagebox("der datenmbanktitel lautet: " & db.Title)End Sub

Das funktioniert auch wunderbar. Nun möchte ich aber nicht den Datenbanktitel anzeigen lassen sondern den Namen der Form von der aus ich folgendes Script starte:

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	Messagebox "Der Name dieser Maske lautet:" & form.Name
End Sub

Es erscheint die Fehlermeldung "Variant does not contain an Object". Wer kann mir bitte weiterhelfen?

Danke Maria

Danke für die Lösung, könntet ihr mir noch sagen wie ich die lokal verschlüsselten Mails wieder entschlüsseln kann?. Hab dazu leider nichts gefunden.

Danke Maria

Hallo,

gibt es eine Möglichkeit Mails von einer Maildatenbank eines Users in die Maildatenbank eines anderen Users zu kopieren?

Grüsse Maria

Hallo,

ich möchte gerne über Lotus Script ein Feld in einer Maske erzeugen lassen und danach ein Dokument erstellen, das im Feld des Dokuments einen Wert aus einer Ansicht übernimmt.
Gibts dafür irgendwelche Anhaltspunkte? Kenn mich nur sehr wenig mit Lotus Script aus.

Danke Maria

Nein, aber wenn ich einen vergebe dann klappts wie ichs eigentlich wollte. Danke

Hallo zusammen,

habe ein Frameset unterteilt in einer horizontalen (Top) und zwei vertikalen (Menu,Main) Rahmen. Im Main Rahmen habe ich eine Anischt mit zwei Schaltflächen eine für eine neue Eingabe und eine Aktion zur Bearbeitung des Dokuments.
Nun möchte ich dass sich bei Betätigung der Schaltflächen die Maske im "Main" Rahmen öffnet.
Dazu habe ich in den Eigenscheften der Aktionen als Zielrahmen "Main" angegeben. Leider scheint dies nicht zu funktionieren, daher habe ich folgende Formel geschrieben:

Aktion für neue Eingabe:
@SetTargetFrame("Main");
@Command([Compose];"Eingabe")

Aktion zum Ändern des Dokuments:
@SetTargetFrame("Main");
@Command([EditDocument]);

Bei der ersten Schaltfläche öffnet sich die Maske im Main Rahmen, bei der zweiten Aktion hingegen nicht.

Danke für jede Hilfe im voraus

Hallo,

habe diverse Foren durchkemmt um zu erfahren wie man ein PDF Dokument in einer Maske einbindet. Habe nun diesen Artikel hier gefunden und wollte mir die Beispieldatenbank ansehen. Leider kommt immer die Fehlermeldung Generic LSE Failure (No more info).
Habe als Client die Version 6.5.4

Danke Maria

Hallo,

möchte gerne eine Dokumentverknüpfung im Mail mitschicken:

Sub Click(Source As Button)
'-------------Feldwert auslesen--------------------------------	
	Dim doc As NotesDocument 
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc = workspace.CurrentDocument
	Set doc=uidoc.Document 
	x = uidoc.FieldGetText("SendenAn")	
'------------Mail verschicken	-----------------
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	Set doc = New NotesDocument( db )
	doc.Form = "Memo"
	doc.SendTo = x
	doc.Subject = "Neues Mail"
	doc.Body = "Genauere Infos finden Sie in der Datenbank"	
	Call doc.Send( False )
End Sub

wie schaut der entsprechende Code für IncludeDocLink aus?
Grüsse Maria

das

doc2.AppointmentType= "0"

klappt. Es wird die Maske zum eingeben des Termins geöffnet.
Im Frontend werden die Feldwerte in den Terminkalender auch übernommen. Wenn ich die zwei Zeilen auskommentiere wie DerOzzy empfiehlt, passiert eigentlich gar nichts mehr. Es wird kein Termin im Kalender erzeugt. Es kommt aber auch zu keiner Fehlermeldung. Wie soll ich denn da nun wietermachen. Gebe zu, kenne mich mit LotusScript nicht gerade aus, aber vielleicht bekomme ichs mit Eurer Hilfe ja irgendwie hin.
Der Termin sollte im Kalender des Benutzers erzeugt werden. Dabei sollte das Thema aus der Maske übernommen werden. Die Zeit ist im Moment nicht so wichtig. (Kommt später). Andere Felder können Standardmässig leer sein.

Maria

Hallo, habe eine Maske mit einem Feld in welchem ein Datum eingetragen werden kann und ein Feld mit einem Betreff. Nun möchte ich dass ein Termin im Kalender des Benutzers erstellt wird.

Dazu habe ich folgendes Script gefunden und ein wenig bearbeitet.

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkSpace
	Dim session As New NotesSession
	Dim db2 As NotesDatabase
	Dim uidoc1 As NotesUIDocument   ' das aktuell geöffnete Dokument
	Dim uidoc2 As NotesUIDocument   ' das neue Dokument
	Dim doc1 As NotesDocument
	Dim doc2 As NotesDocument
'------------ Server und mailfile aus notes ini ermitteln ------------------
	Dim server As String
	server = session.GetEnvironmentString("MailServer", True)
	mailfile = session.GetEnvironmentString( "MailFile",True)
'---------------------------------------------------------------------------------------	
	Set db2 = session.getDatabase(server, mailfile)   ' DB für neues Dokument zuweisen
	Set uidoc1 = ws.CurrentDocument
	Set doc1 = uidoc1.Document    ' FrontEnd Dokument ins BackEnd holen
	Set doc2 = New NotesDocument(db2)    ' neues Dokument im Backend erstellen
	doc2.Form = "Appointment"   ' MaskenName vergeben
	doc2.Subject = doc1.Thema   ' Felder kopieren
	Set uidoc2 = ws.EditDocument(True, doc2)   ' neues Dokument ins FrontEnd holen
	Call doc2.Save(True,True)
End Sub

1.) Wenn ich auf den Button klicke wird nicht ein Termin sondern eine Besprechung geöffnet.
2.) Es sollte der Termin direkt gespeichert werden ohne dass sich die Maske Appointmen (Termin) öffnet

Danke für Eure Hilfe
Grüße Maria

Hallo,

habe einen Absatz in einer Tabelle den ich gerne verbergen möchten, wenn das Dokument von jemand anderen geöffnet wird als dem Autor. Habe dazu im Feld Absatz verbergen wenn Formel wahr ist folgendes eingegeben:
@Name([CN];@UserName) != @Name([CN];@Author)

Problem dabei ist, dass erst im Bearbeitungsmodus der Absatz verborgen wird und der der Benutzer den Absatz sieht.

Danke und Grüsse Maria

Wenn das Namensfeld "PublicEncryptionKeys" heisst dann klappts.

Hallo,

befasse mich gerade ein wenig mit der öffentlichen Verschlüsselung eines Feldes. Habe dazu eine Maske erstellt mit einem Textfeld (Text) und habe in den Eigenschaften des Feldes in den Sicherheitsoptionen "Verschlüsselung für dieses Feld aktivieren" ausgewählt.
Darunter habe ich ein Namensfeld erstellt mit welchem der Benutzer die Namen für diejenigen auswählen kann, die einen Schlüssel bekommen sollen .
Was muss ich noch machen damit das ganze funktioniert, denn in den Dokumenteigenschaften sollte meines wissens ja dann die Felder $Seal und $SealData aufscheinen. Auch wird in meinem Fall nichts verschlüsselt.

Danke Maria

Hallo,

wie kann ich mittels LS ein Textfeld in ein Datumfeld umwandeln?

Danke Maria

Danke. Mit @Attachments klappts. Ein Problem habe ich noch. Da das RichText Feld das letzte Feld im Dokument ist happert es noch mit der Aktualisierung. Denn die Aktionsknöpfe aktualisieren sich erst wenn der Benutzer F9 drückt oder in ein anderes Feld klickt. Gibt es die Möglichkeit nachdem der Anhang eingefügt wurde das Feld zu aktualisieren?

Hallo, möchte gerne eine Aktionsschaltfläche verbergen wenn ein Rich Text Feld leer ist. Leider funktioniert die Formel welch ich in "Aktion verbergen wenn Formel wahr ist" nicht: z.B
Anhang = ""
Geht dies bei Rich Text Feldern nicht? Gibt es eine andere Lösung?

Wenn ich keine Überprüfung mache und der Benutzer keinen Anhang ausgewählt hat, dann erscheint die Fehlermeldung "Dokumentbefehl ist nicht verfügbar"

Langsam fängt mir LotusScript an zu gefallen
Mit

Call uidocNeu.InsertText(Chr(10) + Chr(13))

hats hingehauen.
Nun noch ein weiteres Problem:
In der Maske fügt der Benutzer nicht immer einen Anhang an. Wie überprüfe ich dies auf richtige Weise?
Glaube mein Weg ist der falsche:

'----------- Anhang kopieren
	If Not uidoc.FieldContains( "Anhang", "" ) Then
		Call uidoc.GotoField( "Anhang" )
		Call uidoc.SelectAll
		Call uidoc.Copy 
		Call uidocNeu.GotoField( "Body" )
		Call uidocNeu.Paste
'	Fügt Leerzeile ein
		Call uidocNeu.InsertText(Chr(10) + Chr(13) + Chr(10) + Chr(13) )
	End If

Ok mit der Reihenfolge klappts nun auch, müsste nur noch wissen wies ich die Leerzeile einfüge.

Danke Maria

Danke jetzt hats geklappt. Ein Problem habe ich aber noch:
1. Der Anhang wird im Memo ganz am Anfang eingefügt, danach kommt gliech die Beschreibung und dann die Signatur des Benutzers. Möchte gerne dass die Beschreibung im Body des Memos als erstes aufscheint, dann eine neue Zeile eingefügt wird der Anhang kommt, eine leere Zeile und schlussendlich die Signatur des Benuzters.
Habe versucht eine leerzeile so einzufügen, aber klappt nicht
Call uidocNeu.GotoField( "Body" + chr(10) + chr(13))

Sub Click(Source As Button)
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim uidocNeu As  NotesUIDocument	
	Set uidoc = workspace.CurrentDocument
'------------ Server und mailfile aus notes ini ermitteln
	Dim session As New NotesSession
	Dim server As String
	server = session.GetEnvironmentString("MailServer", True)
	mailfile = session.GetEnvironmentString( "MailFile",True)			
'---------- Mail Adresse kopieren	
	Call uidoc.GotoField( "Mail" )
	Call uidoc.SelectAll
	Call uidoc.Copy 
	Set uidocNeu = workspace.ComposeDocument( server, mailfile, "Memo" )			
	Call uidocNeu.GotoField( "EnterSendTo" )
	Call uidocNeu.Paste	
'---------- Kurzbeschreibung kopieren	
	Call uidoc.GotoField("KurzBesch")
	Call uidoc.SelectAll
	Call uidoc.Copy 
	Call uidocNeu.GotoField( "Subject" )
	Call uidocNeu.Paste	
'---------	Beschreibung kopieren
	Call uidoc.GotoField("Besch")
	Call uidoc.SelectAll
	Call uidoc.Copy 
	Call uidocNeu.GotoField( "Body")
	Call uidocNeu.Paste
'----------- Anhang kopieren
	Call uidoc.GotoField( "Anhang" )
	Call uidoc.SelectAll
	Call uidoc.Copy 
	Call uidocNeu.GotoField( "Body" )
	Call uidocNeu.Paste
End Sub