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

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

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

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.

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......

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

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?