Moin allerseits,
ich bin mal wieder am verzweifeln..
Da möchte man was scheinbar leichtes machen und was ist??
NICHTS geht 
ich will eigentlich nur das Tempverzeichnis von Windows rausbekommen.
In LotusScript Environ("temp")
aber in der Formelsprache??
@Environment("temp") geht nicht :-/
Das Problem ist ja, dass er im Profildokument immer nur einen Anhang speichern will. Und zwar den, den ich zuletzt hinzugefügt habe. -.-"
Ich hab das nun anders gelöst.. nicht schön aber es geht.. ich kann mich nicht so lange an so einem scheiß aufhalten.
Ich habe das profildokument zu einem normalem Dokument gemacht, einen Knopf eingebaut, der mir in einer InputBox den UNID des Dokuments ausgibt (Copy-Paste freundlich)
und ich hab ein anderes Profildokument genommen in der ich die UNID des Dokuments hinterlegen..
komischerweise kann ich im normalen Dokument alle Anhänge speichern.
Naja und jetzt hol ich mir die Anhänge halt aus dem Dokument.. nicht schön, aber es läuft nun endlich
ZitatCopyAllItems und dann eine Schleife über alle Items des neuen Dokumentes in der du die nicht benötigten herauslöscht
genau so :o
ich bin am verzweifeln... so eine kleine Sache nimmt so viel zeit weg 
Nun hab ich das problem.. nach dem Speichern vom Profildokument haben alle Dokumente außer dem zuletzt angefügtem nur noch 4 Byte.
Lieg wohl auch daran, dass nur das eine Feld $FILE im Dokument ist und das andere nur die Container sind...
Was mach ich nur falsch? -.-"
da hätte ich auch selbst drauf kommen können
najut, werd das mal morgen probieren.. Nun ist aber Feierabend und Glühweintrinken angesagt (endlich wieder Weihnachtsmarkt!!)
du hast mir für einen Moment ein lächeln auf mein Gesicht gezaubert.. aber die folgende Meldung hat es schnell wieder verstummen lassen 
yapp, hab im Debugger alle werte ueberprueft.
itm existiert und hat auch den korrekten wert. ebenso "anhang"
Warum ich mit einer schleife ueber alle Items gehe? Ich hab mal was im Internet von einem aehnlichem problem gelesen, wo das das Problem behoben hat. Aber es war nur ein versuch.. das auskommentierte ist natürlich richtig 
Hallo zusammen,
ich hab das folgende Problem:
Ich habe eine Rahmengruppe, in der ein agent aufgerufen wird, da ich Lotus Script ausführen will.
Nun soll aus einem Profildokument ein Anhang in eine Maske kopiert werden, damit die Maske den Anhang startet. (Option Autostart -> Erster Anhang in Maske öffnen)
Nun habe ich das Phänomen, dass das alles nur dann klappt, wenn der "verlinkte" Anhang als letztes im profildokument hinzugefügt wurde. andernfalls gibt es eine Fehlermeldung (siehe Unten)
Hat da jemand eine Idee?
-== Quellcode ==-
Agent:
Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim doc As NotesDocument Dim hdoc As NotesDocument Dim ws As New NotesUIWorkspace Dim anhang As String Dim itm As NotesItem Set db = s.CurrentDatabase Set doc = New NotesDocument( db ) Set hdoc = db.GetProfileDocument("(EinsatzorteAzubis)") anhang = s.GetEnvironmentString("_azubiplan_anhang") 'Set itm = doc.GetFirstItem(anhang) Forall i In hdoc.Items If i.Name = anhang Then Set itm = i Exit Forall End If End Forall doc.Form = "Anhang" 'Call doc.CopyItem(itm, "rtf_attachment") Call itm.CopyItemToDocument(doc, "rtf_attachment") Call ws.EditDocument(False, doc)End SubCode Gliederung:
@Environment("_azubiplan_anhang"; "rtf_beurteilungsbogen");
@PostedCommand([ToolsRunMacro];"(startAttachment)")Vielen Dank! Das war's ..
aww! Mich plagt dieses Problem nun auch.. das loeschen von der cache.ndk hat nichts gebracht (zumal da keine vorhanden war) und die Startoption ist auch die richtige... Jemand eine Idee?
*den Kopf auf den Tisch hau*
okay okay... problem erkannt... problem gebannt
steht in der zweiten Zeile nach dem Anfang der For-Schleife
NACH Eingang neuer Mails
Ich weisz nicht, ob der Code bei dem Problem weiterhilft, aber bitte.. hier habt ihr ihn..
On Error Goto handler
Dim s As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim mail As NotesDocument
Dim rt As NotesRichTextItem
Dim rtitm As NotesRichTextItem
Dim body As String
Dim nam As NotesName
Dim doc2 As NotesDocument
Dim hilfsdok As NotesDocument
Dim i As Long
Set db = s.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
While Not( doc Is Nothing )
If doc.From(0) <> "Ticket-System <Ticket.System@Muster-Domaene.de>" _
And Instr(doc.From(0) ,"ticket system") = 0 _
And doc.from(0) <> "ticket.system@Muster-Domaene.de"_
And doc.GetFirstItem("$AssistMail") Is Nothing Then
Set mail = New NotesDocument( db )
With mail
.form = "Memo"
.subject = "AW: " & doc.Subject(0)
.SendTo = doc.From(0)
End With
Set nam = s.CreateName(doc.From(0))
Set rt = New NotesRichTextItem(mail, "Body")
Set rtitm = doc.GetFirstItem("Body")
Call rt.AppendText("Hallo ")
Call rt.AppendText(nam.Common)
Call rt.AppendText(",")
Call rt.AddNewline(2)
Call rt.AppendText("die von Ihnen angeschriebene Mailadresse dient ausschließlich der Versendung von E-Mails und wird nicht überwacht.")
Call rt.AddNewline(2)
Call rt.AppendText("Möchten Sie eine Störung, oder möchten Sie den Status einer bereits gemeldeten Störung einsehen bzw. weitere Angaben zu Ihrem Ticket eintragen?")
Call rt.AddNewline(1)
Call rt.AppendText("Dann nutzen Sie bitte den Zugang zum Ticket-System der Muster GmbH über die Intranet Startseite.")
Call rt.AddNewline(3)
Call rt.AppendText("Freundliche Grüße")
Call rt.AddNewline(2)
Call rt.AppendText("Ihr Ticket-System der IT-Organisation")
Call rt.AddNewline(3)
Call rt.AppendText("(Bitte beachten Sie: Diese E-Mail wurde automatisch von unserem Ticket-System generiert und versandt. Rückantworten auf dieses Schreiben können daher nicht bearbeitet werden.)")
mail.Send(0)
Call mail.Save(True, False)
mail.PutInFolder("sent")
End If
Set doc = dc.GetNextDocument( doc )
Wend
'------------------------------------
For i = 1 To dc.count
Set doc = dc.GetNthDocument(i)
Call s.UpdateProcessedDoc(doc)
If (doc.HasItem("FailureReason")) Then
doc.SaveMessageOnSend = False
Call doc.Send(True, "ticketsystemerror")
Call doc.Remove(True)
Elseif (doc.hasitem("$AssistMail")) Then
Call doc.PutInFolder("autoresponder", True)
Elseif doc.From(0) = "Ticket-System <Ticket.System@Muster-Domaene.de>" Then
Call doc.PutInFolder("sent", True)
Call doc.RemoveFromFolder("($Inbox)")
Else
Call doc.PutInFolder("received", True)
Call doc.RemoveFromFolder("($Inbox)")
End If
Next
Exit Sub
handler:
Dim hdb As NotesDatabase
Dim hdoc As NotesDocument
Dim hs As New NotesSession
Set hdb = hs.CurrentDatabase
Set hdoc = New NotesDocument(hdb)
With hdoc
.Subject = "Problem bei der Abarbeitung von DHTS-Mails"
.Body = "Verdammt .. Houston wir haben ein " & Error$ & " in Zeile " & Cstr(Erl)
.SendTo = "Patri"
End With
Call hdoc.Send(False)
Resume NextHallo Zusammen,
ich habe einen Agenten, der auf eingehende E-Mails reagieren soll.
Dieser Agent soll die Art von E-Mail unterscheiden (Eingehende Mail, Automatische Antwortmail, Mail vom Ticketsystem, Fehlermail) koennen und entsprechend reagieren..
So weit so gut. Nur leider kann der Agent mit den Fehlermails nicht so umgehen wie mit normalen mails... irgendwie kann man diese mail nicht als processed Document markieren... und so schickt er die Fehlermail wieder und wieder an die Admins... bis man sie mit hand loescht... loeschen per skript zieht da leider auch nicht..
Kennt jemand das Problem oder hat vllt. sogar eine Loesung??
Vielen Dank!
Patri
okay, hat sich erledigt.. haette die Schriftart vielleicht mal mit HTML statt mit CSS reinschreiben sollen 
Nun funktioniert das alles
Vielen dank!
Alles klar taurec!
Die Loesung ist echt super
Habe das zar ein bisschen anders gemacht, aber okay..
Da die Formatierung von der Geschaeftsleitungsassistenz so gewollt ist, habe ich mich dazu entschlossen eine HTML-Datei zu generieren und per import in die Mail im Postopen zu laden.. nun bin ich auf ein Problem gestossen, welches schonmal hier im Forum gestellt wurde..
ZitatAlles anzeigenIch hab eine Signatur die als als HTML-Datei vorliegt.
ja ich weiss Html-Email brrrrrrrr. Ist nunmal so gewünscht.
Ich möchte jetzt das alles die gleiche Schrift und -größe bekommt.
Die Schriftgröße kann ich in der Sig.-Datei angeben diese (font-size) wird auch beim Import von Notes berücksichtigt. Wenn ich die Schriftart font oder font-family angebe und dort z.B. Arial oder eine andere Schrift angebe wird das nicht berücksichtigt beim Import.
Es gibt zwei Möglichkeiten:
a: Notes so anpassen das es an die Schrift der Sig.-Datei passt.
b: Die Sig.Datei so anpassen das sie an die Standard Schrift passt.
Beides bekomme ich nicht zu 100% hin. Und dazu brauche ich eine Lösung.
Gruß Nameless
Das ist jetzt zwei Jahre her. Vielleicht hat von euch mittlerweille eine Loesung!??!
Danke und Grusz Patri
so einfach ist das alles nicht... die Daten fuer die Signatur werden aus einer anderen Datenbank gezogen und somit kann ich keine HTML-Datei oder die Funktion ueber Vorgaben verwenden.
Es soll eine einheitliche Loesung fuer alle Mitarbeiter resultieren, da unser Unternehmen sonst nach aussen hin kein einheitliches Erscheinungsbild hat, da jeder Benutzer seine eigene Signatur kreiert.
@lapfandi: Da alle Maildatenbanken von unserer persoenlichen Schablone erstellt werden, wird es kein Problem mit dem Designtask geben.
um das ganze in Script abzubilden, muesste ich ja die Notesstyle class benutzen, welches aber eine backendclass ist.. somit kann ich nicht mal eben diese Signatur einfuegen..
Hallo zusammen,
in knapp zwei Monaten ist es bei uns angedacht unsere Noteslandschaft zu vereinheitlichen und jedem Benutzer eine neue MailDatenbank zu geben.
Im Zuge dessen habe ich den Auftrag die Mailschablone ein bisschen zu modifizieren und einige Features einzubauen (Warnung bei alten und grossen E-Mails, Verbindung zur zentralen Maildatenbank, automatische Mailunterschrift, ...)
Nun habe ich das Problem, dass ich ein Skript in Formelsprache habe, was unbedingt im Postopen stehen muss. Allerdings stht da schon etwas von IBM drin. Meinen Code kann ich aber auch nicht auf Skript umstellen, wenn ich das richtig sehe (Code siehe unten) und was das Skript von IBM macht, habe ich irgendwie auch nicht ganz nachvollziehen koennen.. Vielleicht ist hier ja jemand, der sich mit der mailschablone ein bisschen mehr auskennt??
Code von mir:
@If(!@IsNewDoc;@False;@Do(@Command([EditDocument];"1");(... Werte werden gesetzt ...)@Command([EditGotoField];"Body");t_name :=@Trim(ZSTVorname+" "+ZSTName);t_abteilung :="OE " + OENummer + " - " + AbtBez;t_mail :=EMail1 + "@your-domain.de";t_tel :=TelZ2;t_fax :=Fax2;@PostedCommand([EditInsertText] ; @NewLine + @NewLine); @PostedCommand([TextSetFontColor];[DarkBlue]);@PostedCommand([EditInsertText]; "Freundliche Grüße" + @NewLine + @NewLine );@PostedCommand([TextBold]);@PostedCommand([EditInsertText] ; t_name + @NewLine);@PostedCommand([TextNormal]);@PostedCommand([TextSetFontSize];"8");@PostedCommand([TextSetFontColor];[DarkBlue]);@PostedCommand([TextBold]);@PostedCommand([EditInsertText];@NewLine + "Unternehmen XY" +@NewLine + t_abteilung);@PostedCommand([TextNormal]);@PostedCommand([TextSetFontColor];[DarkBlue]);@PostedCommand([EditInsertText];@NewLine + "E-Mail" + @Char(9) + t_mail + @NewLine + "Tel.:" + @Char(9) + t_tel + @NewLine + "Fax:" + @Char(9) + t_fax + @NewLine + "Internet:" + @Char(9) + "http://www.your-domain.de/" + @NewLine + "Anschrift: Musterstrasse 7, 12345 Musterhausen");@PostedCommand([EditGotoField];"EnterSendTo")))))und hier der Code von IBM
If source.editmode And Not (source.isnewdoc) Then
Call cMemoObject.querymodechange(source)
Call cMemoObject.postmodechange()
End IfHabe schon versucht beide Codeschnipsel in einen Agenten der im Postopen gestartet wird auszufuehren.. leider ohne erfolg..
Bin fuer jede Hilfe dankbar!
Grusz Patri
Danke
Habe sogar einen Job in der Domino-Gemeinde.. werde weiterhin im Sparkassen-Domino-Umfeld als Notesprogrammierer taetig sein.. zwar erstmal auf Zeitvertrag, aber besser als nichts