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 olFolderCalenda r As Integer = 9
Dim olfFolderConfli cts As Integer = 19
Dim olFolderContact s As Integer = 10
Dim olFolderDeleted Items As Integer = 3
Dim olFolderDrafts As Integer = 16
Dim olFolderInbox As Integer = 6
Dim olFolderJournal As Integer = 11
Dim olFolderJunk As Integer = 23
Dim olFolderLocalFa ilures As Integer = 21
Dim olFolderNotes As Integer = 12
Dim olFolderOutbox As Integer = 4
Dim olFolderSentMai l As Integer = 5
Dim olFolderServerF ailures As Integer = 22
Dim olFolderSyncIss ues As Integer = 20
Dim olFolderTasks As Integer = 13
Dim olPublicFolders AllPublicFolder s = 18

Dim oApp As Object = CreateObject("O utlook.Applicat ion")
Dim oOutlook As Object = CreateObject("O utlook.Applicat ion")
Dim oFolder As Object =
oApp.GetNamespa ce("MAPI").GetD efaultFolder(ol FolderInbox)
'oFolder = oFolder.Folders ("Some Sub Folder")

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

For i = 1 To oFolder.Items.C ount
objMail = oFolder.Items(i )
Debug.WriteLine (objMail.Subjec t)
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.c om> wrote in message
news:dc******** *************** ***@posting.goo gle.com...

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

=============== =============== =============== ======
Dim olFolderCalenda r As Integer = 9
Dim olfFolderConfli cts As Integer = 19
Dim olFolderContact s As Integer = 10
Dim olFolderDeleted Items As Integer = 3
Dim olFolderDrafts As Integer = 16
Dim olFolderInbox As Integer = 6
Dim olFolderJournal As Integer = 11
Dim olFolderJunk As Integer = 23
Dim olFolderLocalFa ilures As Integer = 21
Dim olFolderNotes As Integer = 12
Dim olFolderOutbox As Integer = 4
Dim olFolderSentMai l As Integer = 5
Dim olFolderServerF ailures As Integer = 22
Dim olFolderSyncIss ues As Integer = 20
Dim olFolderTasks As Integer = 13
Dim olPublicFolders AllPublicFolder s = 18

Dim oApp As Object = CreateObject("O utlook.Applicat ion")
Dim oOutlook As Object = CreateObject("O utlook.Applicat ion")
Dim oFolder As Object =
oApp.GetNamespa ce("MAPI").GetD efaultFolder(ol FolderInbox)
'oFolder = oFolder.Folders ("Some Sub Folder")

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

For i = 1 To oFolder.Items.C ount
objMail = oFolder.Items(i )
Debug.WriteLine (objMail.Subjec t)
Next i