Beiträge von djbazo

andreas
danke für den Hinweis - natürlich das wäre nicht so dolle.

taurec
ich werde versuchen deinen Lösunsansatz umzusetzen.
Da es in FIRMA2 noch keine Mail-DB des Benutzers gibt, werde ich die Mail-DB von FIRMA1 nach FIRMA2 einmalig und dann periodisch replizieren lassen.

Vielen Dank allen!

Hallo,

vielen Dank für diesen Tipp.

Der User soll, wenn er in FIRMA1 arbeitet mit der Adresse von FIRMA1 auch antworten.
Wenn der User in FIRMA2 arbeitet soll er mit der Adresse von FIRMA2 antworten. (Er hat dann auch ein anderes NOTESDATA als in FIRMA1)

Alle Mails von Firma1 und Firma2 sollen jedoch wenn möglich in beiden Maildatenbanken liegen.

Kann ich dann in beiden Personendokumenten von Firma1 und Firma2 jeweils den anderen Benutzer als Weiterleitungsadresse eintragen um die Maildatenbanken auf gleichem Stand zu halten?!?

Danke & Grüße
joe

Hallo zusammen,

ich glaube ich stehe etwas auf dem Schlauch...

Ich habe zwei Firmen (FIRMA1 | FIRMA2) die jeweils einen Server (LDS1 | LDS2) mit je einer Domäne (DOM1 | DOM2) haben.
Es besteht auf beiden Systemen ein Gegenzertifikat für die jeweilig andere Domäne.
Das interne Mailrouting von BenutzerA@DOM1 zu BenutzerB@DOM2 funktioniert.

Jetzt habe ich jedoch folgende Konstellation.
Ein Benutzer arbeitet sowohl für FIRMA1 als auch für FIRMA2.
Dieser Benutzer soll intern und extern über BenutzerC@DOM1 und BenutzerC@DOM2 (Notesname und E-Mail) erreichbar sein.
Nun ist die Frage, wie ich die beiden Maildatenbanken des Benutzers "zusammenführe", sodass er nur noch eine Datenbank hat, egal in welcher FIRMA er gerade arbeitet aber die Mails von FIRMA1 und FIRMA2 in einer DB sieht.

Grüße
joe

Danke schonmal!
In dem Textbaustein gibt es ein RTF, dieses enthält nur formatierten (Bold, Italic, Schriftartänderung/Größenänderung, Farbe) Text.

Hallo zusammen,

ich habe eine Datenbank.
In dieser Datenbank gibt es eine Maske "BRIEF" und eine Maske "TEXTBAUSTEIN".
Wenn ein leerer "BRIEF" erstellt wird, soll per Button aus einer Picklist von abgespeicherten "TEXTBAUSTEINEN" ein Baustein ausgewählt werden können.
Wenn ein "TEXTBAUSTEIN" ausgewählt wurde soll aus der Maske "TEXTBAUSTEIN" ein enthaltenes RTF in den leeren "BRIEF" kopiert werden.

Den Textbaustein in der Piclist kann ich auswählen, jedoch übernimmt er das RTF Feld nicht.
Vielleicht kann mir jemand helfen....
Anbei der gesamte Code aus dem Button

Sub Click(Source As Button) 
	Dim wsp As New NotesUIWorkspace
	Dim sourceuidoc As NotesUIDocument
	Dim sourcedoc As NotesDocument
	Dim curruidoc As NotesUIDocument
	Dim currdoc As NotesDocument
	Dim ns As New NotesSession
	Dim db As NotesDatabase
	Set db=ns.CurrentDatabase

	'PICKLIST START
	Dim picklist As Variant
	Dim messagelist As String
	picklist = wsp.PickListStrings( _
	PICKLIST_CUSTOM, _
	True, _
	db.Server, _
	db.FilePath, _
	"ANSICHT_Textbaustein", _
	"Baustein-Auswahl", _
	"Bitte ein Baustein auswählen.", _
	4) 
	'PICKLIST ENDE	

	Dim item1 As NotesRichTextItem	
	Dim item2 As NotesRichTextItem	
	Set sourcedoc=sourceuidoc.Document
	Set currdoc=curruidoc.Document
	Set item1 = sourcedoc.GetFirstItem("TEXTBAUSTEIN_RTFFELD")
	Set item2 = currdoc.GetFirstItem( "BRIEF_RTFFELD" )
	Call item2.appendrtitem(item1)
End Sub

Danke

Hallo zusammen,

ist es möglich in einem Zahlenfeld eine Potenzberechnung zu machen?
Wenn ich versuche 4^4 als Vorgabewert einzugeben kommt:
Ein Operator oder Semikolon wurde erwartet aber nicht gefunden.

Danke

Danke, fast gleiches Update werde ich am Wochenende ebenfalls fahren. Vielen Dank für die (bereits gedachten) Tipps - aber es ist immer schön nochmal von jemand anders zu hören!!

Hallo zusammen,

ich habe eine Maske mit

FELD1 = Textfeld (Thema)
FELD2 = Textfeld (Body)
FELD3 = Datum (Mehrfachwerte zulassen getrennt durch Komma)

Ich möchte über einen Button einen Kalendereintrag erstellen lassen.

Dies funktioniert auch. Sind jedoch im FELD3 mehrere Werte (= mehrere Datums) hinterlegt wird immer nur der 1. Termin in den Kalender eingetragen.

Anbei mein Code:

Sub Click(Source As Button)
	Dim uidoc As NotesUIDocument	
	Dim workspace As New NotesUIWorkspace
	Dim quelldoc As notesdocument
	Dim picklist As Variant
	Dim session As New NotesSession
	Dim reg As New NotesRegistration
	Dim db As NotesDatabase
	Dim dbmail As NotesDatabase
	Dim doc As NotesDocument
	Dim docmail As NotesDocument
	Dim docansw As NotesDocument
	Dim dochaupt As NotesDocument
	Dim doccol As notesdocumentcollection
	Dim ndt As NotesDateTime
	reg.RegistrationServer = "SERVER"
	Call reg.GetUserInfo(session.UserName, , mailfile$)
	Set dbmail = session.Getdatabase("SERVER", mailfile$,False) 
	Set doc = dbmail.CreateDocument 
	Set uidoc = workspace.CurrentDocument
	Set quelldoc = uidoc.Document

	Dim dateTime As NotesDateTime
	Set dateTime = New NotesDateTime("11:00 AM")


	doc.Form = "Appointment"
	doc.Subject = quelldoc.FELD1(0)
	doc.Body = quelldoc.FELD2(0)

	Call doc.ReplaceItemValue( "_ViewIcon", 108 ) 
	Call doc.ReplaceItemValue( "$PublicAccess", "1" )
	Call doc.ReplaceItemValue("BookFreeTime", "")

	Call doc.ReplaceItemValue("ExcludeFromView", Evaluate(|"D":"S"|) ) 
	Call doc.ReplaceItemValue("$ExpandGroups", "3")
	Call doc.ReplaceItemValue("$FromPreferredLanguage", Evaluate("@LanguagePreference([Content])"))
	Call doc.ReplaceItemValue("$NoPurge", bisDateTime)

	doc.AppointmentType = "4"
	Set ndt = New NotesDateTime(quelldoc.FELD3(0))
	Set ndt2 = New NotesDateTime(quelldoc.FELD3(0))


	doc.StartDate = ndt.LSLocalTime
	doc.CalendarDateTime = ndt.LSLocalTime
	doc.StartDateTime = dateTime.LSLocalTime
	doc.EndDate = ndt2.LSLocalTime
	doc.EndDateTime =  dateTime.LSLocalTime
	Call doc.ComputeWithForm(True, False) 
	Call doc.Save( True, True ) 

End Sub

Hat jemand eine Idee woran es liegen könnte?

Hallo Taurec,

nein ich habe soeben den Fehler gefunden und ärgere mich selbst:

Blankotext ist kein Textfeld und auch keine Textliste.

Jetzt klappts.

Danke an alle!!

Hallo zusammen,

komischerweise hat nun der Agent funktioniert, aber:
Ich habe heute nochmal etwas geändert und prompt funktioniert er wieder nicht:

Mein Agent schaut nun so aus:

SELECT (Anfang=@Today);


Empfaenger:=@GetProfileField("Profildokument";"Mailempfaenger_1");
Subject:=@GetProfileField("Profildokument";"Subject_1");
Body:=@GetProfileField("Profildokument";"EmailBody_1");


message:=Body + @NewLine + Blankotext + @NewLine + " Hier gelangen Sie zum Dokument"


@MailSend(Empfaenger;"";"";Subject;"";message;[IncludeDoclink])

gruss, Joe

Hi Jan!

Der Feldtyp ist DATUM/ZEIT
Der Wert des Feldes ist 08.08.2011

Grüße
joe

Folgendes wird mir für das jeweilige Profilfeld ausgegeben:

Empfaenger: Vorname Nachname/Domain/DE
Subject: Der Zeitraum beginnt ab
Body: Bitte bearbeiten Sie das Dokument

Zugriff darauf hat er, da es mit dem Admin, der auch im Agent hinterlegt ist, getestet wurde.

Hallo Andreas,

danke für die Antwort.

Wir setzen Notes Version 8.5.2 FP1 ein.

In einer Maske habe ich die Felder ebenfalls per GetProfileField aus dem nicht personenbezogenen Profil ausgelesen - da klappt alles.

Grüße
joe

Hallo zusammen,

ich habe einen kleinen Agent, der mir wenn das Feld Anfang = Heute ist ein Mail mit Info sendet.

Leider klappt der Zugriff auf das Profildokument aus dem Agenten nicht, denn ersetze ich alle Profilwerte mit statischen Werten klappt es...

SELECT (Anfang=@Today);


Empfaenger:=@GetProfileField("Profildokument";"Mailempfaenger_1");
Subject:=@GetProfileField("Profildokument";"Subject_1");
Body:=@GetProfileField("Profildokument";"EmailBody_1");


message:=Body


@MailSend(Empfaenger;"";"";Subject;"";message;[IncludeDoclink])

Wo steh ich aufm Schlauch?

Grüße
joe

vielen Dank MaxRitti, damit komme ich zum Ziel!!

Hallo zusammen,

ich habe eine Ansicht.
Wenn ich in dieser Ansicht X Dokumente markiere sollen diese kopiert werden und in den neuen Dokumenten die "Felder" Ersteller & Datum zurückgesetzt werden auf einen neuen Wert.

Anbei bisher mein Code. Klappt alles soweit jedoch nimmt er nicht das neu kopierte Dokument und ändert die Werte sondern er nimmt das "alte" Quelldokument und ändert dort die Werte.

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim ret_eval As Variant
	Set db = session.CurrentDatabase
	Set dc = session.CurrentDatabase.UnprocessedDocuments
	Set doc = dc.GetFirstDocument()
	While Not(doc Is Nothing)
		Call doc.CopyToDatabase(db)

		ret_eval = Evaluate( |FIELD Ersteller := @Name([CN];@Username);@True|, doc )
		ret_eval = Evaluate( |FIELD Datum := @Today;@True|, doc )
		Call doc.Save(True, True)		

		Set doc = dc.GetNextDocument(doc)

	Wend
End Sub

Kann mir jemand hierbei Hilfestellung geben?

Hallo zusammen,

ich habe eine Datenbank (A) in der ich eine neue Maske erstelle.
In dieser Maske soll über einen Button eine Picklist aufgerufen werden die eine Ansicht aus Datenbank (B) aufruft.

Danach sollen die ausgewählten Dokumente als Doclink in ein Feld geschrieben/gesetzt werden.

Meine Schaltfläche schaut bisher so aus:
(Der Text wird übernommen aber wie bekomme ich zusätzlich einen Doclink zu den ausgewählten Dokumenten noch eingefügt?)

Auswahl := @PickList([Custom];"REPLIKID";"ANSICHT";"Dokument auswahl";"Bitte wählen Sie die Dokumente aus.";1);
FIELD SW := @Trim(@Unique(SW : Auswahl));
@Command([RefreshHideFormulas]);
""

Grüße

Hallo zusammen,

ich bin gerade dran unseren Dominoserver von Windows Server 2003R2x86 auf Windows Server 2008R2x64 zu migrieren.

Das ganze wird eine ganz neue Maschine und wird erstmal parallel hochgezogen.
IP (letztendlich), Partitions und Ordnerstruktur wird die gleiche bleiben (was das Dominodata angeht)
Der Servername wird sich ändern.

Ich werde dann auf dem 2008R2x64 die Installation von Domino 8.52 durchführen aber den Server danach nicht starten.

Nun meine Frage:
Welche Dateien und Datenbanken müssen übernommen werden, dass der Server sozusagen wieder 1zu1 aufsetzt.

Danke im Voraus

Hallo zusammen,

ich hänge etwas bei einer HideWhen.

Ich möchte einen Abschnitt verstecken.
Der Benutzer der in Rolle X ist darf den Abschnitt nur sehen, wenn das Feld einen gewissen Wert hat.

Wenn ein anderer Benutzer die Rolle X nicht hat, das Feld aber den gewissen Wert - so darf dieser den Abschnitt nicht sehen.

@IsNotMember("[X]";@UserRoles)  & FeldStatus = "Wert"

Bei mir klappts leider nur wenn ich eins von beiden habe.

Vielleicht kann mir jemand auf die Sprünge helfen?
Danke vorab

Hallo taurec,

danke für die Auskunft.

Ja, die kompletten Serversysteme werden auf 8.5.2 gehoben - nur die Clients bleiben vorerst auf 8.5.1

Grüße