Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Anhänge werden nicht gedruckt

(1/3) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite