Access & Outlook

IceBower

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

can you pass more information please.

IceBower

Quote:

Originally Posted by debasisdas

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

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

Access & Outlook

re: Access & Outlook

re: Access & Outlook

re: Access & Outlook

Similar Visual Basic 4 / 5 / 6 bytes

/bytes/development

/bytes/it

/bytes/about