Hvordan få tilgang en 2007 VBA e-postvedlegg

Visual Basic for Applications (VBA) er et programmeringsspråk som vanligvis brukes i Office-programmer for å automatisere rutineoppgaver. Du kan enkelt skrive VBA-kode for å søke etter en bestemt vedlegg i innboksen mappe og lagre det i en mappe.

Bruksanvisning

1 Start Microsoft Access 2007, velg "Databaseverktøy" og klikk "Visual Basic". Velg "Verktøy" -menyen og klikk "Referanser". Merk av i boksen ved siden av "Microsoft Outlook 12,0 Object Library" og klikk "OK".

2 Skriv inn følgende for å opprette en ny under:

Sub getEemailAttachment ()

Skriv "Enter" for å skape "End Sub" automatisk.

3 Skriv inn følgende å erklære variabler som skal brukes for å få tilgang til Outlook vedlegg:

Dim nmSp Som navnerom

Dim oInbxFldr Som MAPIFolder

Dim objMailItems som objekt

Dim emailAttachment Som Outlook.Attachment

4 Skriv inn følgende for å definere din navne og definere variabelen for å holde innboksen mappe Outlook:

Sett nmSp = GetNamespace ( "MAPI")

Sett oInbxFldr = nmSp.GetDefaultFolder (olFolderInbox)

5 Skriv inn følgende å sløyfe gjennom alle vedlegg og lagre vedlegg til "C: \" når det er funnet:

For hver objMailItems I oInbxFldr.Items

For hver emailAttachment I objMailItems.attachments

If emailAttachment.FileName = "myAttachment.doc" Then

emailAttachment.SaveAsFile "C: \" & attachmentFileName

Slutt om

Neste emailAttachment

Neste objMailItems

Du kan erstatte "myAttachment.doc" med navnet på vedlegget i følgende linje:

Hvis emailAttachment.FileName = "myAttachment.doc"

6 Skriv inn følgende for å frigjøre dine variabler fra minnet:

Sett emailAttachment = Nothing

Sett objMailItems = Nothing

Sett nmSp = Nothing