Supportnet / Forum / SW-Sonstige

Type BROWSEINFO
	hOwner As Long
	pidlRoot As Long
	pszDisplayName As String
	lpszTitle As String
	ulFlags As Long
	lpfn As Long
	lParam As Long
	iImage As Long
End Type
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (Byval pidl As Long, Byval pszPath As String) As Long
Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Function BrowseFolder (path As String, windowtitle As String) As String
	
	Dim X As Long, bi As BROWSEINFO, dwIList As Long
	Dim wPos As Integer
	Dim cam2 As String
	
	bi.pszDisplayName = path
	bi.hOwner = hWndAccessApp
	bi.lpszTitle = title
	bi.ulFlags = BIF_RETURNONLYFSDIRS
	
	dwIList = SHBrowseForFolder (bi)
	cam2 = Space$(512)
	X = SHGetPathFromIDList(Byval dwIList, Byval cam2)
	
	If X Then
		wPos = Instr (cam2, Chr(0))
		BrowseFolder = Left$ (cam2, wPos - 1)
	Else
		BrowseFolder = ""
	End If
	
End Function

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim collection As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim rtitem As Variant
	Dim folder As String
	folder = BrowseFolder ("","")
	Set db = session.CurrentDatabase
	Set collection = db.UnprocessedDocuments
	Set doc = collection.GetFirstDocument
	
	While Not (doc Is Nothing)
		
		Set rtitem = doc.GetFirstItem( "Inhalt" ) 'Hier das entsprechende RT-Feld angeben
		If ( rtitem.Type = RICHTEXT ) Then
			Forall o In rtitem.EmbeddedObjects
       				Call o.ExtractFile(  folder+"\"  & o.Name )
			End Forall
		End If
		Set doc = collection.GetNextDocument(doc)
	Wend
End Sub

• Officeanwendungen, kein drucken möglich
• Drucken unter Office Home and Student 2007
• PDF Drucken mit Stapelverarbeitung?
• Karteikarten in Serie drucken mit Excel/Word ?
• Mehrere Dateien drucken & sortieren