Outlook/Mapi Object, Help saving attachments using VB.NET Forms

[Peter]

I found this code and it works great. Is there any way to up date the
code to export attachments to (c:\Exports)?

================================================== =
Dim olFolderCalendar As Integer = 9
Dim olfFolderConflicts As Integer = 19
Dim olFolderContacts As Integer = 10
Dim olFolderDeletedItems As Integer = 3
Dim olFolderDrafts As Integer = 16
Dim olFolderInbox As Integer = 6
Dim olFolderJournal As Integer = 11
Dim olFolderJunk As Integer = 23
Dim olFolderLocalFailures As Integer = 21
Dim olFolderNotes As Integer = 12
Dim olFolderOutbox As Integer = 4
Dim olFolderSentMail As Integer = 5
Dim olFolderServerFailures As Integer = 22
Dim olFolderSyncIssues As Integer = 20
Dim olFolderTasks As Integer = 13
Dim olPublicFoldersAllPublicFolders = 18

Dim oApp As Object = CreateObject("Outlook.Application")
Dim oOutlook As Object = CreateObject("Outlook.Application")
Dim oFolder As Object =
oApp.GetNamespace("MAPI").GetDefaultFolder(olFolde rInbox)
'oFolder = oFolder.Folders("Some Sub Folder")

Dim objMail As Object
Dim FileName As String
Dim i As Integer

For i = 1 To oFolder.Items.Count
objMail = oFolder.Items(i)
Debug.WriteLine(objMail.Subject)
Next i

[Jay B. Harlow [MVP - Outlook]]

Peter,
The following site has a plethora of articles on using Outlook from .NET.

http://www.microeye.com/resources/res_outlookvsnet.htm

This site, although not necessarily .NET both of these have a lot of Outlook
programming examples & information:

http://www.outlookcode.com/
http://www.slipstick.com/dev/index.htm

The http://www.outlookcode.com/ site would be a good resource for general
Outlook programming questions such as this one.

Hope this helps
Jay
"Peter" <pe***@mclinn.com> wrote in message
news:dc**************************@posting.google.c om...

I found this code and it works great. Is there any way to up date the
code to export attachments to (c:\Exports)?

================================================== =
Dim olFolderCalendar As Integer = 9
Dim olfFolderConflicts As Integer = 19
Dim olFolderContacts As Integer = 10
Dim olFolderDeletedItems As Integer = 3
Dim olFolderDrafts As Integer = 16
Dim olFolderInbox As Integer = 6
Dim olFolderJournal As Integer = 11
Dim olFolderJunk As Integer = 23
Dim olFolderLocalFailures As Integer = 21
Dim olFolderNotes As Integer = 12
Dim olFolderOutbox As Integer = 4
Dim olFolderSentMail As Integer = 5
Dim olFolderServerFailures As Integer = 22
Dim olFolderSyncIssues As Integer = 20
Dim olFolderTasks As Integer = 13
Dim olPublicFoldersAllPublicFolders = 18

Dim oApp As Object = CreateObject("Outlook.Application")
Dim oOutlook As Object = CreateObject("Outlook.Application")
Dim oFolder As Object =
oApp.GetNamespace("MAPI").GetDefaultFolder(olFolde rInbox)
'oFolder = oFolder.Folders("Some Sub Folder")

Dim objMail As Object
Dim FileName As String
Dim i As Integer

For i = 1 To oFolder.Items.Count
objMail = oFolder.Items(i)
Debug.WriteLine(objMail.Subject)
Next i