Extracting mails and attachments from outlook 2003 in vb.net

Introduction

hi,

Here, I am putting some sample code for extractng mails and attachments from Outlook 2003 using VB.NET.

The program will extarct the mail from selected folder in Outlook 2003.

For this, first add a reference to Outlook.

****write this code for getting the mails ***************

Dim objOL As Outlook.Application
Dim objNS As Outlook.NameSpace
Dim objFolder As Outlook.Folders
Dim Item As Object
Dim myItems As Outlook.Items
Dim x As Int16

objOL = New Outlook.Application()
objNS = objOL.GetNamespace("MAPI")

Dim olfolder As Outlook.MAPIFolder
olfolder = objOL.GetNamespace("MAPI").PickFolder
myItems = olfolder.Items

Dim i As Integer
For x = 1 To myItems.Count
    messagebox.show(myItems.Item(x).SenderName) 
    messagebox.show myItems.Item(x).SenderEmailAddress)
    messagebox.showmyItems.Item(x).Subject)
    messagebox.showmyItems.Item(x).Body)
    messagebox.show myItems.Item(x).to)
    messagebox.showmyItems.Item(x).ReceivedByName)
    messagebox.show myItems.Item(x).ReceivedOnBehalfOfName)
    messagebox.showmyItems.Item(x).ReplyRecipientNames)
    messagebox.showmyItems.Item(x).SentOnBehalfOfName)
    messagebox.showmyItems.Item(x).CC)
    messagebox.show myItems.Item(x).ReceivedTime)
Next x

***********for getting attachments use this code******************

Dim Atmt As Outlook.Attachment

For Each Atmt In Item.Attachments
    filename = "C:\Email Attachments\" + Atmt.FileName
    Atmt.SaveAsFile(filename)
Next Atmt

Try it out .. and let me know if there is any problem.

Thanks.

This article has no explicit license attached to it but may contain usage terms in the article text or the download files themselves. If in doubt please contact the author via the discussion board below.

A list of licenses authors might use can be found here