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

  • Thread starter Thread starter Peter
  • Start date Start date
P

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(olFolderInbox)
'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
 
Back
Top