Beiträge von snore

erledigt
Danke
snore

Hallo,
vielen Dank für die Antwort bzw. Rückfrage !

1) bin VR-Banker (aber ich hoffe, die Frage hat jetzt nichts mit der Finanzkriese zu tun :-))

2) Der Kalendereintrag, wird im Kalender und in den Entwürfen angelegt. Ich kann diesen dann manuell in den Entwürfen löschen .. und er bleibt im Kalender erhalten .. nur zur Info

Danke
snore

Hallo Gemeinde,
ich brauche Hilfe zur folgenden Herausforderung:
Ich habe eine Datenbank zur Anmeldung für versch. Veranstaltungen. Für jede Veranstaltung, gibts ein Dokument - und Für jede Anmeldung, wird ein Dokument erstellt.
Einzelne Veranstaltungen, haben eine max. Teilnehmerzahl - trotzdem soll es möglich sein sich anzumelden.

Mein Ziel:
In der Ansicht der Anmeldungen, soll nun jede Anmeldung zur jeweiligen Veranstaltung, welche über die max. Teilnehmerzahl hinausgeht (sortiert wird nach Datum/Zeit der Anmeldung) automatisch gekennzeichnet werden. Bei Stornierungen, soll die nächstfolgende Anmeldung automatisch "aufrücken"...

Hilft mir hier Jemand

Danke
snore

Hallo Leute,
ich lasse über eine Datenbank einen Kalendereintrag beim jeweiligen User, welcher den Button Drückt erstellen...
Leider steht der Eintrag immer parallel zum Kalender in den Entwürfen.. des Mailfiles ?!
..gibt's hier Abhilfe ?
Danke und Gruß
snore

Sub Click(Source As Button)

Dim ns As New NotesSession
Dim dbCurr As NotesDatabase
Dim docNew As NotesDocument
Dim dbMail As NotesDatabase
Dim docSaved As NotesDocument

Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument

Dim nameCur As New NotesName( ns.UserName )
Dim nameMelder As NotesName

Dim rtimtem As NotesRichtextItem
Dim dtStart As New Notesdatetime( Now )

' ----------------------------------------------------------------------------------------
' Protokollierung

Dim protokoll() As String
Dim strZeile As String
Dim ct As Integer
' ----------------------------------------------------------------------------------------
Dim strSrvName As String
Dim strDBName As String

Dim ERG As Variant

Dim rtpStyle As NotesrichTextParagraphStyle
Set rtpStyle = ns.CreateRichTextParagraphStyle

Dim richStyle As NotesRichTextStyle
Set richStyle = ns.CreateRichTextStyle

' ----------------------------------------------------------------------------------------
Set dbCurr = ns.CurrentDatabase

Set uiDoc = ws.CurrentDocument
Call uidoc.Refresh
Sleep 1
' ----------------------------------------------------------------------------------------
' Benutzernamen auswerten

Set nameMelder = New NotesName( uiDoc.FieldGetText( "meldermanuell" ) )

Print nameMelder.Abbreviated

ERG = Evaluate( "@MailDBName" )
If ERG(0) = "" Or ERG(1) = "" Then
Print "Fehler: Der Name der maildatei konnte nicht ermittelt werden."
Goto p_ende
End If

' ----------------------------------------------------------------------------------------
' Felder im aktuellen Dokument sezten
Call uiDoc.FieldSetText( "SaveFlag" , "X")
Call uiDoc.Refresh( True )
Call uiDoc.Save

Set docSaved = uiDoc.Document
docSaved.Status = "2"
Call docSaved.save( True, False, True )

' Call uiDoc.Reload

' ----------------------------------------------------------------------------------------
' Protokoll schreiben

strZeile = Format( Now, "dd.mm.yyyy hh:mm:ss" ) & " : Passwort zurückgesetzt für " & nameMelder.Common & " - durch " & nameCur.Common
ct = 0
Redim Preserve protokoll( ct )
protokoll( ct ) = strZeile

Forall z In docSaved.Protokoll
ct = ct + 1
Redim Preserve protokoll( ct )
protokoll( ct ) = z
End Forall

docSaved.protokoll = protokoll
Call docSaved.Save( True, False, True )



' ----------------------------------------------------------------------------------------
' Mail senden an Anwender
Set dbMail = New NotesDatabase( ERG(0), ERG(1) )

If Not dbMail.IsOpen Then
Print "Fehler: kein Zugriff auf die Maildatenbank möglich"
Goto p_ende
End If

Set docNew = dbMail.CreateDocument

docNew.Form = "Memo"
docNew.SendTo = nameMelder.Abbreviated
docNew.Subject = "Bestätigung der Passwortrücksetzung an FAX-Nr.: 0xxxx"

Set rtitem = New NotesRichTextItem( docNew, "Body" )

rtpStyle.Alignment = ALIGN_LEFT
Call rtitem.AppendParagraphStyle(rtpStyle)
richStyle.FontSize = 18
richStyle.Bold = True
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText( "Bestätigung einer Passwortrücksetzung" )

rtpStyle.Alignment = ALIGN_LEFT
Call rtitem.AppendParagraphStyle(rtpStyle)
richStyle.FontSize = 11
richStyle.Bold = False
Call rtitem.AppendStyle(richStyle)
Call rtitem.Addnewline( 2 )
Call rtitem.Appendtext( "Bitte innerhalb von 10 Minuten nach erfolgreicher Anmeldung an den" )
Call rtitem.Addnewline( 1 )
Call rtitem.Appendtext( "UB Organisation faxen oder als Scan-Mail mailen!" )
Call rtitem.Addnewline( 2 )
Call rtitem.Appendtext( "Fax---> DW-Nummer - 549" )
Call rtitem.Addnewline( 2 )
Call rtitem.Appendtext( "Geht das Fax nicht rechtzeitig ein, wird das Passwort aus Sicherheitsgründen gesperrt." )
Call rtitem.Addnewline( 4 )
Call rtitem.Appendtext( "Hiermit bestätige ich, die Rücksetzung meines Passwortes in Auftrag gegeben zu haben." )
Call rtitem.Addnewline( 5 )


Call rtitem.Appendtext( "Name")
Call rtitem.Addtab( 3 )
Call rtitem.Appendtext( nameMelder.common )
Call rtitem.Addnewline( 1 )

Call rtitem.Appendtext( "Bediener-Nr.")
Call rtitem.Addtab( 2 )
Call rtitem.Appendtext( uiDoc.FieldGetText("Bediener") & " / " & uiDoc.FieldGetText("YHNummer"))
Call rtitem.Addnewline( 1 )

Call rtitem.Appendtext( "Datum")
Call rtitem.Addtab( 3 )
Call rtitem.Appendtext( Format( Now, "dd.mm.yyyy hh:mm" ) )
Call rtitem.Addnewline( 4 )

Call rtitem.Appendtext( "__________________________________")
Call rtitem.Addnewline( 1 )
Call rtitem.Appendtext( "Unterschrift/Stempel")
Call rtitem.Addnewline( 1 )

Call docNew.ComputeWithForm( True, False )
Call docNew.Save( True, False, True )
Call docNew.PutInFolder( "Gesendet" )
Call docNew.Send( False )

Set docNew = Nothing
Set rtitem = Nothing

' ----------------------------------------------------------------------------------------
' Erinnerung in Kalender eintragen
' AppointmentType="4";

Set docNew = dbMail.CreateDocument
Call dtStart.AdjustMinute( 10 )
docNew.Form = "Appointment"
docNew.AppointmentType = "4"
docNew.CalendarDateTime = dtStart.LSLocaltime
docNew.StartDateTime = dtStart.LSLocaltime
docNew.EndDateTime = dtStart.LSLocaltime
docNew.Subject = "Passwortrücksetzung für " & nameMelder.Common
docNew.dispAlarms = "1"


Call docNew.ReplaceItemValue( "$Alarm", 1)
Call docNew.ReplaceItemValue( "Alarms", "1")
Call docNew.ReplaceItemValue( "$AlarmOffset", -9)
Call docNew.ReplaceItemValue( "$BusyPriority", 1)
Call docNew.ReplaceItemValue( "$AlarmSendTo", "")

Call docNew.ComputeWithForm( True, False )
Call docNew.Save( True, False, True )

Call uiDoc.FieldSetText( "KalDocID", docNew.UniversalID )

p_ende:

Call uiDoc.Save
Call uiDoc.Close


End Sub

Hallo Forumgemeinde,
folgendes kleines Problem:
Ich habe eine Bestellmaske welche prüfen soll, ob der Ersteller auch wirklich zur Bestellung berechtigt ist. Damit ich als Admin nicht ständig die ACL anpassen muss, habe ich eine weitere Stammdatenmaske mit einem Namensfeld erstellt. Die Namen, lasse ich mir in meine Bestellmaske beim Anlegen in ein Feld schreiben. Nun soll nur noch der aktuell angemeldetet Notesname mit den Namen in Feld .. können ja viele sein .. abgeglichen werden und bei Bedarf eine Meldung erscheinen. Bei einem Namen, klappt dies .. sobald mehrere im Feld stehen leider nicht mehr !?

...
@If ( @LowerCase ( @Name([CN];BerechtigteBesteller)) != @LowerCase (@Name([CN];@UserName ));
@Do ( @Prompt ( [Ok];"Abbruch";"Sie sind technisch nicht berechtigt eine Bestellung durchzuführen!" ); @Return ( @False ) ); @Success );
....

Vielen Dank für Eure Hilfe....
snore

Hallo,
ich habe eine Datenbank, mit welcher ich verschiedene Werte per automatisiertem Mail an eine andere Firma (ohne Notes) per Mail weiterleiten lasse!
Der Mailtext (Body), wird aus vielen Text und Zahlenwerten aus der DB gefüllt. Passt soweit alles .... ich möchte nur die Werte als eine Art Tabelle übermitteltn.. damit alles sauber aussieht!
Meine Frage, wie bringe ich am besten die Tausender-Punkte aus dem Zahlenfeld in ein Textfeld .. und wie kann ich am besten
die Feldlänge definieren, so dass alles eingiermaßen tabellarisch untereinander steht!

Danke und Gruß
snore

Hallo Notes-Forum,
kann mir jemand weiterhelfen, wie ich einen per Script erstellten Kalendereintrag dazu bringe die Alarm-Erinnerungs-PopUp-Meldung auszugeben ?!
Die Eintäge, landen ja nach der Erstellung im Ordner ($Alarms).
Wer oder was veranlasst dies ?!

hier das script:

ub Click(Source As Button)

Dim ns As New NotesSession
Dim dbCurr As NotesDatabase
Dim docNew As NotesDocument
Dim dbMail As NotesDatabase
Dim docSaved As NotesDocument

Dim ws As New NotesUIWorkspace
Dim uiDoc As NotesUIDocument

Dim nameCur As New NotesName( ns.UserName )
Dim nameMelder As NotesName

Dim rtimtem As NotesRichtextItem
Dim dtStart As New Notesdatetime( Now )

' ----------------------------------------------------------------------------------------
' Protokollierung

Dim protokoll() As String
Dim strZeile As String
Dim ct As Integer
' ----------------------------------------------------------------------------------------
Dim strSrvName As String
Dim strDBName As String

Dim ERG As Variant

Dim rtpStyle As NotesrichTextParagraphStyle
Set rtpStyle = ns.CreateRichTextParagraphStyle

Dim richStyle As NotesRichTextStyle
Set richStyle = ns.CreateRichTextStyle

' ----------------------------------------------------------------------------------------
Set dbCurr = ns.CurrentDatabase

Set uiDoc = ws.CurrentDocument
Call uidoc.Refresh
Sleep 1
' ----------------------------------------------------------------------------------------
' Benutzernamen auswerten

Set nameMelder = New NotesName( uiDoc.FieldGetText( "meldermanuell" ) )

Print nameMelder.Abbreviated

ERG = Evaluate( "@MailDBName" )
If ERG(0) = "" Or ERG(1) = "" Then
Print "Fehler: Der Name der maildatei konnte nicht ermittelt werden."
Goto p_ende
End If

' ----------------------------------------------------------------------------------------
' Felder im aktuellen Dokument sezten
Call uiDoc.FieldSetText( "SaveFlag" , "X")
Call uiDoc.Refresh( True )
Call uiDoc.Save

Set docSaved = uiDoc.Document
docSaved.Status = "2"
Call docSaved.save( True, False, True )

' Call uiDoc.Reload

' ----------------------------------------------------------------------------------------
' Protokoll schreiben

strZeile = Format( Now, "dd.mm.yyyy hh:mm:ss" ) & " : Passwort zurückgesetzt für " & nameMelder.Common & " - durch " & nameCur.Common
ct = 0
Redim Preserve protokoll( ct )
protokoll( ct ) = strZeile

Forall z In docSaved.Protokoll
ct = ct + 1
Redim Preserve protokoll( ct )
protokoll( ct ) = z
End Forall

docSaved.protokoll = protokoll
Call docSaved.Save( True, False, True )



' ----------------------------------------------------------------------------------------
' Mail senden an Anwender
Set dbMail = New NotesDatabase( ERG(0), ERG(1) )

If Not dbMail.IsOpen Then
Print "Fehler: kein Zugriff auf die Maildatenbank möglich"
Goto p_ende
End If

Set docNew = dbMail.CreateDocument

docNew.Form = "Memo"
docNew.SendTo = nameMelder.Abbreviated
docNew.Subject = "Bestätigung der Passwortrücksetzung an FAX-Nr.: xxxx"

Set rtitem = New NotesRichTextItem( docNew, "Body" )

rtpStyle.Alignment = ALIGN_LEFT
Call rtitem.AppendParagraphStyle(rtpStyle)
richStyle.FontSize = 18
richStyle.Bold = True
Call rtitem.AppendStyle(richStyle)
Call rtitem.AppendText( "Bestätigung einer Passwortrücksetzung" )

rtpStyle.Alignment = ALIGN_LEFT
Call rtitem.AppendParagraphStyle(rtpStyle)
richStyle.FontSize = 11
richStyle.Bold = False
Call rtitem.AppendStyle(richStyle)
Call rtitem.Addnewline( 2 )
Call rtitem.Appendtext( "Bitte innerhalb von 10 Minuten nach erfolgreicher Anmeldung an den" )
Call rtitem.Addnewline( 1 )
Call rtitem.Appendtext( "UB Organisation faxen oder als Scan-Mail mailen!" )
Call rtitem.Addnewline( 2 )
Call rtitem.Appendtext( "Fax---> DW-Nummer - xx" )
Call rtitem.Addnewline( 2 )
Call rtitem.Appendtext( "Geht das Fax nicht rechtzeitig ein, wird das Passwort aus Sicherheitsgründen gesperrt." )
Call rtitem.Addnewline( 4 )
Call rtitem.Appendtext( "Hiermit bestätige ich, die Rücksetzung meines Passwortes in Auftrag gegeben zu haben." )
Call rtitem.Addnewline( 5 )


Call rtitem.Appendtext( "Name")
Call rtitem.Addtab( 3 )
Call rtitem.Appendtext( nameMelder.common )
Call rtitem.Addnewline( 1 )

Call rtitem.Appendtext( "Bediener-Nr.")
Call rtitem.Addtab( 2 )
Call rtitem.Appendtext( uiDoc.FieldGetText("Bediener") & " / " & uiDoc.FieldGetText("YHNummer"))
Call rtitem.Addnewline( 1 )

Call rtitem.Appendtext( "Datum")
Call rtitem.Addtab( 3 )
Call rtitem.Appendtext( Format( Now, "dd.mm.yyyy hh:mm" ) )
Call rtitem.Addnewline( 4 )

Call rtitem.Appendtext( "__________________________________")
Call rtitem.Addnewline( 1 )
Call rtitem.Appendtext( "Unterschrift/Stempel")
Call rtitem.Addnewline( 1 )

Call docNew.ComputeWithForm( True, False )
Call docNew.Save( True, False, True )
Call docNew.PutInFolder( "Gesendet" )
Call docNew.Send( False )

Set docNew = Nothing
Set rtitem = Nothing

' ----------------------------------------------------------------------------------------
' Erinnerung in Kalender eintragen
' AppointmentType="4";

Set docNew = dbMail.CreateDocument
Call dtStart.AdjustMinute( 10 )
docNew.Form = "Appointment"
docNew.AppointmentType = "4"
docNew.CalendarDateTime = dtStart.LSLocaltime
docNew.StartDateTime = dtStart.LSLocaltime
docNew.EndDateTime = dtStart.LSLocaltime
docNew.Subject = "Passwortrücksetzung für " & nameMelder.Common
docNew.dispAlarms = "1"


Call docNew.ReplaceItemValue( "$Alarm", 1)
Call docNew.ReplaceItemValue( "Alarms", "1")
Call docNew.ReplaceItemValue( "$AlarmOffset", -1)
Call docNew.ReplaceItemValue( "$BusyPriority", 1)
Call docNew.ReplaceItemValue( "$AlarmSendTo", "")


Call docNew.ComputeWithForm( True, False )
Call docNew.Save( True, False, True )

Call uiDoc.FieldSetText( "KalDocID", docNew.UniversalID )

p_ende:

Call uiDoc.Save
Call uiDoc.Close


End Sub

Danke und Gruß
snore

Hallo,
wie kann ich am besten ein Rich-Text-Feld mit Dateianhängen
vor Missbrauch schützen. d.H. alle User, dürfen den Inhalt sehen und die Dateien öffnen .. diese aber nicht austauschen oder löschen etc.... Problem: User benötigt auf Dokument Editoren-Recht, da weitere Felder ausgefüllt werden müssen!
Danke
snore

Gibts doch nicht ?!
Wie hast du den Agenten angelegt und aufgerufen ?!
ToolsRunMacro... ?! oder

Danke
snore

Habe ich mir auch gedacht...?!
Geht aber nicht!
Gruß
snore

Script in Gliederung .... geht bei mir nicht ?!
Danke
snore

Hallo,
wie kann ich denn das Werkzeug ..OutOfOffice, aktuell
unter dem Menüpunkt
-> Mehr.. Abwesenheit (unter Notes 8.5) in die Gliederung
(also in die Link-Übersicht links..) einbinden ?!
Leider können in der Gliederung keine gemeinsamen Aktionen
gestartet werden ?! - oder ?
Grund: Möchte die Schablone vor dem Echteinsatz anpassen, da mit Sicherheit einige User das Abwesenheitsprofil .. unter Mehr..
nicht finden..
Danke und Gruß
snore

..passt
Danke und Gruß
snore

z.B. ?
Danke

Bitte aufs Themenpräfix achten ?
..welcher hätte denn gepasst ?!

Hallo,
wie geht's eingentlich am einfachsten einen Datumswert in einen Text umzuwandeln und diesem 2-stellig auszugeben.
-> z.B. @Text(@Month(@Now)
-> Ergebnis sollte "09" und nicht "9" sein...
Vielen Dank für Eure Hilfe
snore

Servus Klaus,
Danke für die Info..
ich werde mir die Datenbank präsentieren lassen!
Gruß
snore

Servus,
kann mir jemand eine Korrespondenzdatenbank empfehlen,
welche folgende Anforderungen erfüllt:

Hinweis: Unter dieser Datenbank verstehe ich ein Medium in Notes, mit dem man Geschäftsbriefe schreiben kann...
Wir haben hier bereits eine DB im Einsatz, aber sind nicht glücklich damit!

-> Fußzeile muss mit angedruckt werden (evtl. Bild und Text)
-> Automatischer Seitenumbruch
-> Briefvorlagen (Textbausteine,...)
-> mehrere Briefköpfe (w/Tocherunternehmen)
-> Archiv-DB (automatisiert)
-> Zugriff auf Kundendatenbank (ebenfalls Notes .. kann aber sicherlich angepasst werden)

Vielen Dank und Gruß
snore

Hinweis: Die DB wird im Bankensektor eingesezt

..und wie stell ich den Bezug zum Namen her ?
z.B. In der Stammdatenmaske gibts ein Feld "Namen" mit aktuell 5 Namen.
In meiner Hauptmaske 8 eigene Felder, welche automatisch beim Erstellen mit nur je einem Namen bestückt werden sollen...
Danke
snore

Ich trau' mich die Frage fast nicht zu stellen...aber das kann doch nicht so schwer sein!

Also:
Ich programmiere meine Datenbank i.d.R. so, dass ich eine Maske "Stammdaten" erstelle, aus der 1 Dokument mit eben den
Stammdaten erstellt wird und bei Bedarf geändert werden kann!
Die Werte, filtere ich dann über Ansichten - über die ich dann nach Bedarf über DBLokkup, etc. die Werte in meine andren Masken ziehen lasse!

Aber ich denke, das geht doch einfacher ?!
Aktueller Fall:
Möchte eine Stammdatenmaske erstellen, u.a. mit einem Namensfeld in das aus dem Adressbuch ca. 5-10 Personen gewählt werden können. In einer anderen Maske, muss ich nun 10 verschiedene Felder hierfür anlegen, welche automatisch mit diesen Namen gefüllt werden (je einer) bzw. falls leer ausgeblendet werden.
Ich hab's auch schon über eine Ansicht probiert, die Namen aufgesplittet und die Zeilen automatisch nummerieren lassen..
geht aber leider nicht!

Bitte Bitte helft mir ohne unnötige Kommentare !
Danke und Gruß
snore

Hallo,
ich möchte aus einer anderen Datenbank heraus über eine
Schaltfläche einen Kalendereintrag beim aktuellen User evtl. mit Verknüpfung zum Dokument erstellen lassen.
Habe hier auch schon einiges probiert, bekomme aber immer das Datum 1899 statt das aktuelle Jahr...
Das Datum + Thema, soll aus den Feldern der aktuellen DB kommen.
Danke und Gruß
snore
P.S. Falls notwendig, stell ich gerne das halbfertige Sript ein .. kann aber leider vom Home-PC aus nicht zugreifen!