Beiträge von Busdriver

Hallo,

ich stehe mal wieder vor einer ganz blöden Aufgabenstellung :

Ziel ist es eine Datenbank zu schaffen die sieben Unternehmen zur Verfügung steht, über welche Informatonen ausgetauscht werden sollen. (So weit kein Probblem)

Diese sieben Unternehmen haben jeweils eigene NotesSysteme und sind nicht direkt miteinander verbunden.

Es gibt ein achtes Unternehmen was den 7 anderen ein Hosting zur Verfügung stellen könnte. Hierfür stehen aber in jedem Fall nur 100 MB zur verfügung.

Die Daten die Ausgetauscht werden werden in wenigen Wochen diese Grenze überschreiten, da es sich vor allem um Excel Tabellen, Datenlisten und PDF's handeln wird.

Meine Aufgabe ist es jetzt diese Datenbank zu entwickeln. Das Dokumentenmanagement sowie Workflow etc. sind nicht das Problem. Ich frage mich nur. auf welchem Weg die Unternehmen die Daten austauschen sollen !?

Ich habe zwei Ideen :
a) Eine Replik die Gehostet wird, welche nur die neuen Dokumente austauscht und die Daten dann in eine im Unternehmen lokale Datenbank kopiert.
b) Eine Mail-In Datenbank die die Dokumente austauscht und an alle verteilt. (ganz ohne Hosting)

Beide Ideen haben Risiken ! Vor allem da ich sicher stellen muss das in allen Unternehmen alle Daten vorhanden sind und nichts verloren geht.
Wie stellt man so etwas an ? Habt Ihr noch Ideen ? Welche Lösung haltet Ihr für sinnvoller ?

Ich hoffe Ihr habt ein paar anregungen und Meinungen für mich, denn ich kann mich so gar nicht entscheiden :-?

Schöne Grüße,
Der Bussy

Vielen Dank für die Hilfe !!!

Hier die fertige Lösung :

Sub Senden
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim aktiv_doc As NotesDocument
	Dim dc As NotesDocumentCollection
	Dim doc_Mail As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim ndt As New NotesDateTime("30.12.1899")
	Set db = session.CurrentDatabase

' Dokumente suchen, bei denen Verteilt = ""
	Set view = db.GetView("DayView")
	Set doc = view.GetFirstDocument

	While Not doc Is Nothing
		Set doc_Mail = New NotesDocument(db)
		Set aktiv_doc = doc
		Set doc = view.GetNextDocument(doc)
' Mail erstellen
		doc_Mail.SendTo = aktiv_doc.Verteiler
		doc_Mail.Subject = aktiv_doc.Sortierung(0) & " " & aktiv_doc.Doc_Bezeichnung(0)
		Set rtitem = doc_Mail.CreateRichTextItem("Body")
		Call rtitem.AppendText("Controling Informationen   ")
		Call rtitem.AppendDoclink(aktiv_doc, "Link")
		doc_Mail.Principal = "Controlling"
		doc_Mail.Send(False)

' Feld Verteilt füllen
		aktiv_doc.Verteilt = "1"
		aktiv_doc.Save True, True, True

' nächstes Dokument wählen

	Wend
End Sub

Hallo,

vor einigen Tagen habt Ihr mir hier bei einem Agenten geholfen.
Eigentlich dachte ich der läuft ganz super, allerdings ist mir jetzt ein Problem aufgefallen.

Hier einmal der Code

Sub Senden
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim dc As NotesDocumentCollection
	Dim doc_Mail As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim ndt As New NotesDateTime("30.12.1899")
	Set db = session.CurrentDatabase

' Dokumente suchen, bei denen Verteilt = ""
	Set view = db.GetView("DayView")
	Set doc = view.GetFirstDocument

	While Not doc Is Nothing
		Set doc_Mail = New NotesDocument(db)

' Mail erstellen
		doc_Mail.SendTo = doc.Verteiler
		doc_Mail.Subject = doc.Sortierung(0) & " " & doc.Doc_Bezeichnung(0)
		Set rtitem = doc_Mail.CreateRichTextItem("Body")
		Call rtitem.AppendText("Controling Informationen   ")
		Call rtitem.AppendDoclink(doc, "Link")
		doc_Mail.Principal = "Controlling"
		doc_Mail.Send(False)

' Feld Verteilt füllen
		doc.Verteilt = "1"
		doc.Save True, True, True

' nächstes Dokument wählen
		Set doc = view.GetNextDocument(doc)
	Wend
End Sub

Wenn der Agent läuft, setzt er das Feld Verteilt auf "1".
Die auswahl für die Ansicht ist Verteilt != 1. Also wenn der Agent lief, verschwindet das Dokument aus der Ansicht. Aber damit bekommt mein Agent ein Problem und bricht beim GetNextDocument ab.
Wie kann man das umhgehen ???

Danke schon mal für Eure Hilfe.

Okay ! Ich hab's !!!

Vielen Dank für die Hilfe !!! Und für alle interessierten, hier ist die Lösung !

:laola: :laola:

Sub Senden
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim view As NotesView
	Dim doc As NotesDocument
	Dim dc As NotesDocumentCollection
	Dim doc_Mail As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim ndt As New NotesDateTime("30.12.1899")
	Set db = session.CurrentDatabase

' Dokumente suchen, bei denen Verteilt = ""
	Set view = db.GetView("DayView")
	Set doc = view.GetFirstDocument

	While Not doc Is Nothing
		Set doc_Mail = New NotesDocument(db)

' Mail erstellen
		doc_Mail.SendTo = doc.Verteiler
		doc_Mail.Subject = doc.Sortierung(0) & " " & doc.Doc_Bezeichnung(0)
		Set rtitem = doc_Mail.CreateRichTextItem("Body")
		Call rtitem.AppendText("Controling Informationen   ")
		Call rtitem.AppendDoclink(doc, "Link")
		doc_Mail.Principal = "Controlling"
		doc_Mail.Send(False)

' Feld Verteilt füllen
		doc.Verteilt = "1"
		doc.Save True, True, True

' nächstes Dokument wählen
		Set doc = view.GetNextDocument(doc)
	Wend
End Sub

Schöne Grüße,

Bussy

Okay Okay, also hier der zwischenstand.

Jetzt kommt der Fehler "Keine Namen gefunden an die die Mail gesendet werden kann.

Sub Terminate
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim dc As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim doc_Mail As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim ndt As New NotesDateTime("30.12.1899")
	Set db = session.CurrentDatabase

' Dokumente suchen, bei denen Verteilt = ""
	Set dc = db.Search("Verteilt=""""", ndt, 0)
	Set doc = dc.GetFirstDocument

	While Not doc Is Nothing
		Set doc_Mail = New NotesDocument(db)

' Mail erstellen
		doc_Mail.Form="Memo"		
		doc_Mail.sendTo = doc.Verteiler
		doc_Mail.Subject = doc.Sortierung(0) & " " & doc.Doc_Bezeichnung(0)
		Set rtitem = doc_Mail.CreateRichTextItem("Body")
		Call rtitem.AppendText("Controling Informationen")
		Call rtitem.AppendDoclink(doc, "Link")
		doc_Mail.Principal = "Controlling"
		doc_Mail.Send(False)

' Feld Verteilt füllen
		doc.Verteilt = "1"
		doc.Save True, True, True

' nächstes Dokument wählen
		Set doc = dc.GetNextDocument(doc)
	Wend
End Sub

Das Feld "Verteiler" ist aber gefüllt. Es ist ein Namesfeld.

Ich habe mir jetzt eine Ansicht gebaut.

Also : Alle Dokumente in der Datenbank mit der Suche
Ansicht=DayView

Aber ich habe glaube ich den Fehler gefunden :

doc_Mail.Send

fehlt da nicht was ? (Missing Argument)

Hmmm. So weit so gut. Waren noch ein paar kleine Fehler drin,
aber die hab ich gefunden.

Nun kommt bei Lauf der Fehler :
Main : TERMINATE
Object Variable not set.

Ich wollte das ganze Debuggen, geht aber irgendwie nicht So ein mist auch.

Wofür ist den diese Zeile :

set dc = db.Search("Verteilt=""""", ndt, 0)

Warum die ganzen Anführungzeichen ? Und wartum das Datum ?

DANKE nochmal

PS : Ich habe gerade ein Script Seminat gebucht :hammer: also lang werd ich euch nichtmehr nerven

Danke für das Script, nur gerade mit dem Umbauen hab ich solche Probleme. Bin nur Amateur und Script Laie, vor allem wenn es um den Aufruf der Funktion von einem Agenten aus geht.

Es sollen alle Dokumente in der Datenbank bearbeitet werden.

Hey Leute,

ich habe da ein kleines Problem. Ich brauche einen Agenten der in einer Bestimmten Zeitspanne läuft und eine Mail verchickt.

In Formelsprache sieht es bisher so aus :

_Empfaenger := Verteiler;
_Bezeichnung := Doc_Bezeichnung;
_Sortierung := Sortierung;
_body := "Controling Informationen";

@MailSend(_Empfaenger; "" ; "" ; @Text(_Sortierung)+ " " + @Text(_Bezeichnung) ; "Automatische Mail" ; _body ; [IncludeDoclink]);

Wie sieht der selbe Agent in Script aus ? Zusätzlich aber mit der Funktionalität das Feld Principal zu füllen und in die Dokumente die in der Datenbank sind das Feld "Verteilt" zu füllen.
Selektiert sollen dann in der Datenbank alle Dokumente werden bei den Verteilt = 1 oder ja ist. Und diese Mails sollen an einen in dem Dokument gespeichertem Verteiler geschickt werden (incl. DocLink).

Ich übe da schon 4 Tage dran, bekomme Ihn aber nicht zum laufen. Der Agent soll täglich ab 16 bis 00 Uhr laufen.

Kann mir jemand helfen ? Ich verzweifle sonst noch.

Danke !