|
|
Driri
Gold Platin u.s.w. member:)
 Offline
Geschlecht: 
Beiträge: 6046
|
 |
« Antworten #21 am: 06.05.04 - 16:19:03 » |
|
Das Script hier habe ich noch gefunden, damit soll man Anhänge direkt drucken können, habs aber (meine ich) nie benutzt.
Printing attachments with Notes is not very comfortable. You can do it with OLE but you need to know witch software to call.
This way enables you to print using the native software print function.
This function calls a win32 method : ShellExecute; it looks in the registry what soft is linked to the file to print.
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (Byval hwnd As Long, Byval lpszOp As String, _
Byval lpszFile As String, Byval lpszParams As String, Byval LpszDir As String, Byval FsShowCmd As Long) As Long
Declare Private Function GetDesktopWindow Lib "user32" () As Long
Private Const SW_HIDE = 0&
Sub PrintAttachment(doc As NotesDocument)
Dim rtItem As NotesRichTextItem
Dim Scr_hDC As Long
Dim ret As Long
Dim file As String
Set rtItem = doc.GetFirstItem("D_Body")
If Not rtItem Is Nothing Then
Forall o In rtItem.EmbeddedObjects
file = ReplaceSubString ( o.Name , " " , "_" )
Call o.ExtractFile( "c:\temp\" & file )
Scr_hDC = GetDesktopWindow()
ret = shellExecute(Scr_hDC, "print",file,Null ,"c:\temp" ,SW_HIDE)
If ret <= 32 Then
Msgbox "An error occurs while printing!"
End If
End Forall
End If
End Sub
|
|
|
|
|
Gespeichert
|
Gruß, Ingo
------------------------------------------------------------
11 Domino-Server (8.5.3 auf i5 und Windows)
2500 Notes 8.0.2, 100 Notes 6.5
IBM Content Manager / Content Collector für Mailarchivierung
ClearSwift Appliance (Anti-Spam, Anti-Virus)
Axceler NOTRIX
iAnywhere MobileOffice 5.7, in Ablösung
ca. 400 Smartphones (SymbianOS)
Lotus Notes Traveler 8.5.3
ca. 250 Smartphones (Android)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Autor