Anhänge werden nicht gedruckt

[Swoop]

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

[Andrycha]

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

[Semeaphoros]

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.

[Swoop]

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

[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

[koehlerbv]

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

[Swoop]

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

[fritandr]

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

[Swoop]

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

[koehlerbv]

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

[Swoop]

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