Beiträge von Patri

nur als Einlieferer

also der gesamte import würde nach meinen berechnungen ca. 8 Stunden dauern. (ohne abgleich nur import) die Datenbank liegt derzeit lokal soll aber auf einen server gestellt werden. Diese CSV-datei wurde aus einer Oracle-Datenbank exportiert.

Leider hat das Format der Adressen nicht geholfen.

Was mir die Mail.Box sagt? hmm irgendwie gar nichts. weiß auch nicht genau wie ich das nachgucken soll..

@Text( Wert ; "T1")
sollte gehen

das soll alles per skript passieren?

sonst könntest du die maildb auch indizieren und dann die such-funktion nutzen

habe mal das hier geschriben:

Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim doc As NotesDocument


Set db = s.GetDatabase("Server", "mail.box")
Set doc = db.CreateDocument


doc.Form = "Memo"
doc.From = "Fabian Kaiser/meine Firma@meine firma"
doc.SendTo = "Fabian Kaiser/meine firma@meine firma"
doc.Subject = "hallo"
doc.body = "hallo"


Call doc.save(False,False)	
Msgbox "alles klar"

aber irgendwie funktioniert das immernoch nicht recht.. keine fehlermeldung, keine mail :\

Moin Leute,

ich habe einen Agent geschriben, der Kundendaten(~16.000 Datensätze) aus einer CSV-Datei importieren soll. der Seperator ist ein Semikolon. Leider ist dieser Import einfach zu langsam. Später soll dieser Import nicht nur importieren sondern auch den bestehenden Datenbestand abgleichen. Weiß einer von euch, wie ich das alles beschleunigen kann?

--------------------CODE----------------------------

Dim ws As New NotesUIWorkspace
	Dim path As Variant
	Dim num(1 To 12) As String
	Dim s As New notesSession
	Dim tre As String
	Dim zäh As Integer
	Dim wer(12) As String
	Dim zwe As String
	Dim zei As String
	Dim doc As NotesDocument
	Dim datNR As Integer
	Dim db As NotesDatabase
	Dim pos As Integer
	Dim item As NotesItem

	wer(1) = "ef_nr"
	wer(2) = "ef_name"
	wer(3) = "ku_nr"
	wer(4) = "ku_name"
	wer(5) = "obligo"
	wer(6) = "inanspruchnahme"
	wer(7) = "sicherheiten"
	wer(8) = "freie_sicherheiten"
	wer(9) = "wirtsch_sicherheiten"
	wer(10) = "gueltig_ef"
	wer(11) = "mber_ef"
	wer(12) = "oe_ef"

	zäh = 1	
	tre = ";"
	Set db = s.CurrentDatabase
	datNr = Freefile()

	path = ws.OpenFileDialog(False, "Bitte wählen Sie die CSV-Datei", "KredInfo|*.csv", , )

	If Not( Isempty(path)) Then
		Open path(0) For Input As #datNr
		Seek datNr, 1
		Do While Not Eof(datNr)
			Line Input #datNr, zei
			Set doc 	= db.createDocument
			doc.form 	= "main"
			If doc.ComputeWithForm(False,False) Then
				While Instr(zei,tre) > 0 
					pos = Instr(zei,tre)
					zwe = Left(zei,(pos - 1))
					zei = Mid(zei,(pos + 1))

					Set item = doc.ReplaceItemValue(wer(zäh),zwe)

					zäh = zäh + 1
				Wend
				Set item = doc.ReplaceItemValue(wer(12),zei)
				Call doc.save(False,False)	
				zäh = 1
			End If
			Yield
		Loop
	End If

danke erstmal für deine erklärung. Nun habe ich verstanden was du meinst.
Kannst du mir auch sagen welche Felder ich dafür setzen muss. Also es ist so, dass unser Administrator gerade im Urlaub ist und ich nicht unbedingt ungültige Dokumente, die evtl. Fehlermeldungen erzeugen , erstellen möchte. Kannst du mir eventuell sagen welche Felder ich setzen muss?

hmmm das überschreitet meine Wissensgrenze. Was ist diese mail.box?

hab grad mal gegoogelt und leider auf die schnelle nichts finden können. Magst du mir das erklären?

@IsDocBeingEdited ist schon ganz richtig

also die mail.box von jedem nutzer auf dem server? bei mir dann z.B. fkaiser.nsf oder bei meinem kollegen bheinen.nsf

oder welche meinst du?

hmmm das wäre ein Möglichkeit, aber leider ist es nicht möglich, dass ein normaler Benutzer bei einem anderen Benutzer ein Dokument erzeugt. Es muss eine andere Lösung dafür her..

"Documents sent by a script contain an item called $AssistMail whose value is set to 1. When a script uses the Send method to mail a document, the method automatically creates this item on the document."

hmm

es muss doch irgendwie eine Möglichkeit geben, dass ich eine automatisch generierte E-Mail verschicken kann, auf die ein Abwesenheitsagent auch antwortet.

ich vermute, dass dieses Feld beim absenden wohl gesetzt wird oder so

dann hängt er das Feld wieder automatisch mit dem Wert "1" an :\

der debugger bleibt bei item2.remove stehen.

im Debugger steht unter item2 nichts und unter mail:

also das verändern geht, aber leider bringt es nicht den erwünschten Erfolg. Noch immer bekomme ich keien Antwortmail (Habe auf NULL und auf 0 gesetzt)

das löschen geht nicht. Da bekomme ich immer die fehlermeledung "Object variable not set"

>Dim item2 As NotesItem
>Set item2 = mail.GetFirstItem("$AssistMail")
>item2.Remove

Moin zusammen,

ich habe folgendes Problem:
Über einen Agent wird eine E-Mail generiert. Allerdings soll bei Abwesenheit eines Mitarbeiters auch eine Antwort vom Abwesenheitsagenten geschickt werden. Nur leider macht er dies nicht. Wie ich herausgefunden habe liegt es wohl daran, dass bei automatisch generierten E-Mails ein Feld "$AssistMail" erstellt wird mit dem Wert "1".

Gibt es eine Möglichkeit dieses Feld zu ändern, zu löschen oder gar dass es nicht erstellt wird?

Wäre über Antworten sehr erfreut.

--------------------------------
Systeminfo:
Im Einsatz sind die Notesversionen:
4.6, 5.0, 6.5.2