Мне нужно найти все файлы в этом фолдере и просто скопировать их в другое место.
Как начать, кто подскажет?

VB.net или C#, все-равно.

Спасибо.

Всем спасибо, но это не точно то что мне надо было.
А вот правильное решение:



Private Sub GetAndCopyAttachments()
Dim objOutlookApp As Object
Dim objOutlookNS As Object
Dim objFolderGroup As Object
Dim objCurFolderGroup, objFolders As Object
Dim objCurFolder As Object
Dim Item, Atmt As Object
Dim strDestURL As String
Dim strFileName As String



objOutlookApp = New Microsoft.Office.Interop.Outlook.Application
objOutlookNS = objOutlookApp.GetNamespace("MAPI")
objOutlookApp.Session.Logon(, , True, True)
objFolderGroup = objOutlookNS.Folders


objCurFolder = GetFolder("Public Folders/All Public Folders/IA Forms/human Resources")

For Each Item In objCurFolder.Items
For Each Atmt In Item.Attachments
Atmt.SaveAsFile(strFileName)
Next Atmt
Next Item

End Sub

Public Function GetFolder(ByVal strFolderPath As String) As Microsoft.Office.Interop.Outlook.MAPIFolder
' folder path needs to be something like
' "Public Folders\All Public Folders\Company\Sales"
Dim objApp As Outlook.Application, objNS As Outlook.NameSpace, I As Integer
Dim colFolders As Outlook.Folders, objFolder As Outlook.MAPIFolder, arrFolders() As String


strFolderPath = Replace(strFolderPath, "/", "\")
arrFolders = Split(strFolderPath, "\")
objApp = CreateObject("Outlook.Application")
objNS = objApp.GetNamespace("MAPI")
objFolder = objNS.Folders.Item(arrFolders(0))

If Not objFolder Is Nothing Then
For I = 1 To UBound(arrFolders)
colFolders = objFolder.Folders
objFolder = Nothing
objFolder = colFolders.Item(arrFolders(I))
If objFolder Is Nothing Then
Exit For
End If
Next
End If



Return objFolder

End Function