Attachment mit Memo ausdrucken

[eknori]

wie kann ich beim drucken eines memos direkt ein angehängtes attachment mit ausdrucken?
Hat jemand schon mal einen solchen Stunt programmiert ?

[Christopher]

Mir ist bis jetzt auch noch keine Lösung bekannt evtl. Domino 7? Bei Outook gibt es diese Funktion.

[y20frank]

Hi Ulrich!
Das ist wirklich 'n Stunt... wüsste da auch nichts, aber wenn mal was da wäre sicher ein klasse Tool... Hast du mal die Snadbox durchsucht, vielleicht ist ja dort etwas zu finden?

evtl. Domino 7?

Hm, nö, auch da hab ich nichts gefunden

Aus der 7'er Help heißt es lapidar:
You can print most file attachments directly from Notes.
Note  You cannot print an attached vCard file directly, but you can save it as a contact document in your Personal Address Book and then print the document.
To print an attached file
  1.   Click the attachment.
  2.   From the menu, choose Attachment - View.
  3.   Choose File - Print.
  4.   (Optional) To print more than one copy, enter the number of copies.
  5.   Click OK. (Macintosh users, click Print.)


Gruß
Frank

[eknori]

Ja, die Sandkiste gibt nichts her in der Richtung; da werde ich dann mal ein wenig drüber meditieren müssen.

[Glombi]

Soll denn das für alle möglichen Dateitypen gehen?
Word, Excel und sowas kann man ja via COM Klassen drucken?
Bei PDF habe ich es auch hinbekommen, sofern der Acrobat Reader installiert ist.
Aber was ist mit dem Rest?

Andreas

[eknori]

prinzipiell soll das mit allen Typen von Anhängen so gehen ( natürlich nur da, wo es Sinn macht - kein .exe oder .zip etc )

[TMC]

prinzipiell soll das mit allen Typen von Anhängen so gehen ( natürlich nur da, wo es Sinn macht - kein .exe oder .zip etc )

Hmm, wie wär's wenn Du das auf Eure gängige Firmensoftware zuschneidest?

Also z.B.:
 - MS Office
 - pdf
 - .txt

Ich könnte mir vorstellen, damit deckt man > 90% ab.

[eknori]

ja, sehe ich auch so... Bin schon am coden  

[TMC]

Bin schon am coden  

Schön  

Hab hier noch ein Script irgendwo, um rauszufinden, mit welcher exe-Datei Windows die ausgewählte Datei (pdf, doc, xls, etc.) beim Doppelklick öffnet.

Muss mal kramen......

[eknori]

brauchst du nicht, den ganzen API Kram habe ich hier

[eknori]

im Prinzip braucht man eigentlich nur das, um ein Att non Platte zu drucken

Sub PrintDefault (fname As String)
   
 'Ref: Microsoft article Q170918
   
   Dim hwnd As Long
   Dim ret As Long
   Dim msg As String
   
   ret = ShellExecute(hwnd, "Print", fname, "", "", 0)
   
   If ret<32 Then  ' Error
      
      Select Case ret        
         
      Case ERROR_FILE_NOT_FOUND
         msg = "File not found"
      Case ERROR_PATH_NOT_FOUND
         msg = "Path not found"
      Case SE_ERR_ACCESSDENIED
         msg = "Access denied"
      Case SE_ERR_OOM
         msg = "Out of memory"
      Case SE_ERR_DLLNOTFOUND
         msg = "DLL not found"
      Case SE_ERR_SHARE
         msg = "A sharing violation occurred"
      Case SE_ERR_ASSOCINCOMPLETE
         msg = "Incomplete or invalid file association"
      Case SE_ERR_DDETIMEOUT
         msg = "DDE Time out"
      Case SE_ERR_DDEFAIL
         msg = "DDE transaction failed"
      Case SE_ERR_DDEBUSY
         msg = "DDE busy"
      Case SE_ERR_NOASSOC
         msg = "No association for file extension"
      Case ERROR_BAD_FORMAT
         msg = "Invalid EXE file or error in EXE image"
      Case Else
         msg = "Unknown error"
      End Select
      
      Msgbox MSG_UnableToPrint + fname + Chr$(13) + MSG_Continue, 16, msg
      Print("Could not print attachment: " & fname)
      
   Else
      
      Print("Printing attachment : " & fname)
      
   End If
   
End Sub

[eknori]

so, hier die fertige Lösung. Diue Datenbank enthält eine Teilmaske mit dem nötigen Code. Die teilmaske wird in die Memo Maske eingebunden und stellt dann einen Buhtong zur verfügung, der zunächst die Memo und dann die angehängten Dateien ausdruckt.
Es wird auf dem Standarddrucker gedruckt.

[TMC]

Prima, sieht gut aus  

Habs in R6 mit pdf, doc, xls und txt getestet, klappte einwandfrei.

Frage:
Warum unterscheidest Du teilweise noch (bzw. auskommentiert) zwischen den Office-Apps?

Code

   Select Case Lcase$(FileExtension)
   Case ""
      Msgbox MSG_NoExtension, 16, MSG_UnableToPrint + fname
 '       Case ".doc"
 '               Call PrintMSWord (fname)
   Case ".xls"     
      Call PrintMSExcel (fname)               
 '       Case ".ppt"
 '               Call PrintMSPowerPoint (fname)
   Case Else
      PrintDefault (fname)
   End Select