Das Notes Forum
Domino 9 und frühere Versionen => ND6: Administration & Userprobleme => Thema gestartet von: Swoop am 21.04.05 - 15:01:04
-
Hallo
ich hätte da ein Problem - sonst wäre ich wohl nicht hier ;)
Ich habe von einem externen Programm generierte eMail
die mir zu Notes übergeben wird. In diesem eMail
ist der Anhang unter einem Querstrich und nicht oben im Textfeld.
Und hier ist auch schon mein Problem:
wenn ich diese eMail ausdrucke, sehe ich den Anhang nicht.
Aber genau das möchte der Anwender :-(
Hat jemand eine Idee wie ich diesen Anhang nach oben bekomme?
In dem Programm von dem das Mail kommt kann ich nichts machen.
Vielleicht eine Formel oder so den ich dann in die Symbolleiste packen kann oder einen Agent übers Menü zu starten...
Hat einer von euch einen Tipp??
Selbst kopieren geht nicht. Da kommt der Strich mit.
Nur abbhängen, neues Memo, und wieder anhängen - dann gehts.
LG Swoop
-
Hallo Swoop,
versuche mal die Mail im Editier-Modus zu drucken.
Ich meine damit:
Mail öffnen, in die Mail doppelt klicken und dann drucken.
Schau mal, ob das eventuell hilft. Wenn nicht, dann weiss ich auch nicht mehr...
Gruss,
Andrycha
-
Abhängen und im gleichen Memo im Body-Field wieder anhängen, das sind offensichtlich R3-kompatible Anhänge, die nicht im Body-Feld sondern direkt im Dokument verankert sind. Dazu kann ein Agent gemacht werden.
-
Hi.
das mit dem Editier-Modus hab ich schon probiert
das geht leider auch nicht.
Das mit dem Agenten wäre eine gute Idee
aber leider bin ich nur Admin und hab von LS "noch" nicht
wirklich viel Ahnung :-(
Vielleicht könnte mir da jemand von euch aushelfen ::)
Wäre echt nett.
LG Swoop
-
Hi
also ich hab jetzt das hier...
Sub Initialize
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.DocumentContext
Dim db As NotesDatabase
Set db = session.CurrentDatabase
'Move the V2 file attachment to the rich text field
Set rtitem = New NotesRichTextItem ( doc, "AttachmentFiles" )
Set FileList = doc.GetFirstItem("$File")
If Not FileList Is Nothing Then
Forall item In Filelist.values
Set object = doc.GetAttachment( item)
If object.Type = EMBED_ATTACHMENT Then
datadir$ = session.GetEnvironmentString("Directory", True)
FilePath$ = datadir$ & "\" & item
Call object.ExtractFile(FilePath$)
Call object.remove
Call rtitem.embedObject(EMBED_ATTACHMENT,"",FilePath$,"")
End If
End Forall
' Finally, delete the file from the file system
On Error Resume Next
Kill FilePath$
End If
End Sub
Aber damit klappt das irgendwie nicht :-(
und hiermit auch nicht ???
Sub Initialize
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim v2File As NotesItem
Dim rtItem As NotesRichTextItem
Dim inputAttachment As NotesEmbeddedObject
Dim tempDirectory As String
Dim fileName As String
Dim filePath As String
Dim moveToFieldName As String
moveToFieldName = "Rt_Dokument_Anhänge"
Set doc = ses.DocumentContext
Set v2File = doc.GetFirstItem ( "$File" )
fileName = v2File.Values(0)
Set inputAttachment = doc.GetAttachment ( fileName )
tempDirectory = ses.GetEnvironmentString ( "Directory", True )
filePath = tempDirectory + "\" + fileName
'--Save the file on the server
Call inputAttachment.ExtractFile ( filePath )
'--Delete the original attachment
Call doc.RemoveItem ( "$File" )
'--Create the rich text item and re-attach the file
If doc.HasItem ( moveToFieldName ) Then
Set rtItem = doc.GetFirstItem ( moveToFieldName )
Else
Set rtItem = New NotesRichTextItem ( doc, moveToFieldName )
End If
Set inputAttachment = rtItem.EmbedObject ( EMBED_ATTACHMENT, "", FilePath )
'--Finally, delete the file from the server file system
Kill FilePath
End Sub
Hat jemand vielleicht eine Idee warum?
Danke
-
Aber damit klappt das irgendwie nicht :-(
und hiermit auch nicht ???
Aaah ja - jetzt wissen wir alle Bescheid, was "damit nicht klappt".
Ich mag jetzt nicht den ganzen Code durchflöhen, aber was mir als erstes aufstiess, war das Dealen mit dem $File-Item(s). So geht das nicht, da diese losgeköst vom jeweiligen RTItem sind und durchaus auch Attachments mehrerer Items enthalten können bzw. mehrere Attachments eines Items.
Ein wenig mehr Motivation für unsere Mithilfe wäre angebracht, finde ich.
Bernhard
-
Ein wenig mehr Motivation für unsere Mithilfe wäre angebracht, finde ich.
Wie darf ich denn das bitte verstehen?!
Wie oben schon geschrieben bin ich leider nur ein Admin aus dem im Moment ein Entwickler gemacht wird obwohl ich von LS und Co fast 0 Ahnung habe.
Und da dies hier ein befristeter Job ist - der sich aber fast direkt vor meiner Haustür befindet - möchte ich doch alles versuchen das er vielleicht unbefristet wird und ich dann so etwas mehr davon mitbekomme wie mein 14 Monate alter Sohn groß wird!
Danke
Swoop
-
Ein wenig mehr Motivation für unsere Mithilfe wäre angebracht, finde ich.
Wie darf ich denn das bitte verstehen?!
Hallo Swoop,
was Bernhard damit meint ist eigentlich ganz einfach zu erklären.
Du hast uns hier zwei Codebrocken eingefügt und sagst dazu, daß da was nicht funktioniert.
Aber Du hast uns nicht verraten, was da nicht funktioniert. Wir können also nur raten, wo denn der Fehler liegen könnte.
Jetzt versetz Dich doch bitte mal in die Lage eines Menschen, der keine solchen "fehlerhaften" Mails aus einem Fremdprogramm hat und nur die von Dir bis jetzt gemachten Angaben sieht.
Derjenige, der Dir ja helfen will, kann ja nicht eben mal den Code nehmen und in seine Mail-DB kopieren um Ihn zu testen. Schließlich hat er ja das fehlerhafte Dokument gar nicht, das bearbeitet werden soll. Also kann er nur mühsam den Quelltext durchgehen und versuchen, irgendwelche Fehler zu finden.
Und da haben wir jetzt den Punkt erreicht, an dem Bernhard hier nach zusätzlicher Motivation gefragt hat. Du schreibst, daß es damit nicht klappt und mit etwas anderem auch nicht. Aber Du hast einfach vergessen zu beschreiben, was denn eigentlich nicht funktioniert.
Gibt es bei Ausführung des Codes eine Fehlermeldung? Wenn ja, welche? Oder läuft der Code zwar durch, es passiert aber mit Deinem Dokument gar nichts?
Kurz: Was geht denn nicht? Je genauer Du das Problem eingrenzen kannst, desto besser können Dir die Menschen hier im Forum helfen. Und genau das wollte Bernhard von Dir. Nicht mehr und nicht weniger ;).
Das ist ähnlich wie mit Deinem 14 Monate alten Sohn :). Je genauer Du Ihm heute Dinge erklärst oder zeigst, desto besser wird er sie später verstehen und ggf. auch umsetzen, oder?
Viele Grüße
Andreas
-
Oh sorry. Ist mir so garnicht aufgefallen.
Jedefalls passiert nichts. Ich bekomme weder eine Fehlermeldung noch passiert etwas mit dem Dokument.
Falls es was hilft...
Die Software nennt sich WindowsRetrieval V6.0
Sie "verschickt" angeforderte Dokumente (gif's) via eMail.
Allerdings mit oben genannten Problem.
Braucht ihr nochwas?
Danke
LG Swoop
-
Von Variante 2 würde ich aus schon genannten Gründen die Finger lassen.
Variante 1 folgt dem "klassischen Weg", wirft das erzielte Resultat aber einfach wieder weg - Du hast vergessen, das modifizierte Dokument zu speichern.
HTH,
Bernhard
-
Danke Bernhard
Damit habe ich schonmal den Grund warum es nicht geht.
Ich muß da nochwas klären:
Wie gesagt bin ich nur Admin und habe von LotusScript nicht wirklich viel Ahnung. Aus diesem Grunde habe ich mich auf den Weg gemacht und mir diese 2 Scripte aus dem großen WWW zusammengesucht aus 2 Code-DB's.
Was müßte jetzt da noch rein damit er mir das gespeicherte so in die eMail plaziert das ich es ohne diesen Strich sehe?
Da ich gerade am lernen bin... Sehe ich das richtig das daß dann ein RTField sein muß?
Vielen Dank
Gruß Sascha