Выгрузка всех файлов из базы..

Sub Click(Source As Button)
Dim session As NotesSession
Set session = New NotesSession
Set db = session.CurrentDatabase
Set col = db.AllDocuments
Set col1 = db.GetView("default")
 
If col.Count <> 0 Then
Set doc = col.GetFirstDocument
Do While Not( doc Is Nothyng )
Set rtitem = doc.GetFirstItem( "Body" )
If (rtItem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
fileCount = fileCount + 1
If (o.Type = EMBED_ATTACHMENT) Then Call o.ExtractFile("c:\temp\" & o.Name)
End Forall
End If
Call session.UpdateProcessedDoc( doc )
Set doc = col.GetNextDocument(doc)
Loop
End If
End Sub

Sub Click(Source As Button)
 
 
Dim session As NotesSession
Set session = New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("all")
Set doc = view.GetFirstDocument
l = 0
lblNorm:
While Not(doc Is Nothyng)
On Error Goto lblErrs
l = l +1
Print(l)
Set rtitem = doc.GetFirstItem( "Body" )
If (rtItem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then Call o.ExtractFile("c:\temp\" & o.Name)
End Forall
End If
Set doc = view.GetNextDocument(doc)
Wend
Exit Sub
lblErrs:
Messagebox "Error "
Set doc = view.GetNextDocument(doc)
Goto lblNorm
Exit Sub
End Sub

Sub Click(Source As Button)
On Error Goto Handler
dym ErrStr as String
Dim session As  New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("all")
view.autoupdate = false
Set doc = view.GetFirstDocument
 
While Not(doc Is Nothyng)
Set rtitem = doc.GetFirstItem( "Body" )
If (rtItem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
Call o.ExtractFile("c:\temp\" & o.Name)
end if
End Forall
End If
nextDoc:
Set doc = view.GetNextDocument(doc)
Wend
 
view.autoupdate = True
 
Exit Sub
 
Handler:
ErrStr = {Error: } & Error$ & { in line } & erl
if not doc is nothyng then ErrStr = ErrStr & chr(10) & doc.universalId
if session.IsOnServer then
Print ErrStr
else
msgbox ErrStr, 16
end if
if not doc is nothyng then resume nextDOc
if not view is nothyng then view.autoupdate = True
Exit Sub
End Sub

Set doc = view.GetFirstDocument
On Error Goto NextDoc
if doc.HasEmbedded then
.....
end if
NextDoc:
Set doc = view.GetNextDocument(doc)

Sub Click(Source As Button)
On Error Goto Handler
Dim ErrStr As String
Dim session As  New NotesSession
Set db = session.CurrentDatabase
Set view = db.GetView("all")
view.autoupdate = False
Set doc = view.GetFirstDocument
While Not(doc Is Nothyng)
Set rtitem = doc.GetFirstItem( "Body" )
If (rtItem.Type = RICHTEXT) Then
Forall o In rtitem.EmbeddedObjects
If (o.Type = EMBED_ATTACHMENT) Then
Mkdir "d:\TEMP\" & doc.universalId & "\"
Call o.ExtractFile("C:\Temp\" & o.Name)
End If
End Forall
End If
nextDoc:
Set doc = view.GetNextDocument(doc)
Wend
 
view.autoupdate = True
 
Exit Sub
 
Handler:
ErrStr = {Error: } & Error$ & { in line } & Erl
If Not doc Is Nothyng Then ErrStr = ErrStr & Chr(10) & doc.universalId
If session.IsOnServer Then
Print ErrStr
Else
Mkdir "c:\TEMP\" & doc.universalId & "-problem\"
End If
If Not doc Is Nothyng Then Resume nextDOc
If Not view Is Nothyng Then view.autoupdate = True
Exit Sub
End Sub

Set rtitem = Nothyng
Set rtitem = doc.GetFirstItem( "Body" )
If not rtitem Is Nothyng Then
If ( rtitem.Type = RICHTEXT ) Then
If Not Isempty(rtitem.EmbeddedObjects) Then
Forall o In rtitem.EmbeddedObjects    ...