Access & Outlook

Question posted by: IceBower (Newbie) on July 3rd, 2008 10:27 AM

Hi all,

Im creating a database which has a table linked to an email account. so far i can only get the table to show wether or not an email has an attachment but i cant find away of opening/importing them.

Anyone know how?

debasisdas

Moderator

6,576 Posts

July 3rd, 2008
11:29 AM
#2

Re: Access & Outlook

can you pass more information please.

IceBower

Newbie

15 Posts

July 3rd, 2008
12:05 PM
#3

Re: Access & Outlook

Quote:

can you pass more information please.

What im ideally looking for is some Access code that will allow me to detach the files from emails (linking them using the table mentioned) and save them to a local drive.

IceBower

Newbie

15 Posts

July 3rd, 2008
02:10 PM
#4

Re: Access & Outlook

This could do with tidyign up a bit but it seems to do the job!

Expand|Select|Wrap|Line Numbers

	Dim oOutlook As Outlook.Application

Dim oNs As Outlook.NameSpace

Dim oFldr As Outlook.MAPIFolder

Dim oAttachments As Outlook.Attachments

Dim oAttachment As Outlook.Attachment

Dim iMsgCount As Integer
 
Dim oMessage As Outlook.MailItem
 
Dim iCtr As Long, iAttachCnt As Long
 
Dim sFileNames As String

Dim aFileNames() As String
 
'get reference to email folder

Set oOutlook = New Outlook.Application

Set oNs = oOutlook.GetNamespace("MAPI")

tolfolder = "Mailbox - Bower, Phil X" 'Top folder

myfolder = "Important" 'email folder

Set oFldr = oNs.Folders(tolfolder).Folders(myfolder)
 
Debug.Print "Total Items: "; oFldr.Items.Count

Debug.Print "Total Unread items = " & oFldr.UnReadItemCount
 
For Each oMessage In oFldr.Items
 
    With oMessage

        'basic info about message

        If .UnRead = True Then

            Debug.Print .To

            Debug.Print .CC

            Debug.Print .Subject

            Debug.Print .Body

            iMsgCount = iMsgCount + 1

            With oMessage.Attachments

                iAttachCnt = .Count

                If iAttachCnt > 0 Then

                    For iCtr = 1 To iAttachCnt

                        'UID will need replacing with unique identifier for record in DB

                        .Item(iCtr).SaveAsFile "C:\" & UID & "\" & .Item(iCtr).FileName

                    Next iCtr

                End If

            End With

            .UnRead = False

        End If

    End With

Next oMessage
 
End Sub

Not the answer you were looking for? Post your question . . .
189,891 Experts ready to help you find a solution.
Sign up for a free account, or Login (if you're already a member).