Carsten Novice
07. december 2017 - 16:37 Der er 7 kommentarer og
1 løsning

Gemme vedhæftet fil fra mails i Outlook - vha. VB Access

Hej alle,
Håber i kan hjælpe mig med en kode til VB Acces, hvor koden skal gemme 1 vedhæftet fil, i mails placeret i en undermappe i inbox. (der er kun 1 .xlxs fil per mail). Jeg anvender Outlook som mail system...

Mails ligger i "Inbox" - undermappe "Behandles"
Gem vedhæftet fil fra mail (placering: 'C:\GemteFiler\')
Filnavn skal ikke ændres
Når den vedhæftet fil er gemt, skal mail flyttes til
"Inbox" - undermappe "Afsluttet"

Håber at få nogle gode input.
Vh Carsten
terry Ekspert
07. december 2017 - 17:35 #1
VBA in Access you'll need a reference to Outlook (Tools-References)

Dim myApp As New Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myAflsuttetFolder As Outlook.MAPIFolder
Dim myMsg As Outlook.MailItem
Dim a As Integer


Set myApp = CreateObject("Outlook.Application")
Set myNameSpace = myApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderInbox)

Set myAflsuttetFolder = myFolder.Folders("Afsluttet")

Set myFolder = myFolder.Folders("Behandles")



    For Each myMsg In myFolder.Items
        With myMsg
           
               
                For a = 1 To myMsg.Attachments.Count
               
                    myMsg.Attachments.Item(a).SaveAsFile "C:\GemteFiler" & "\" & myMsg.Attachments.Item(a).DisplayName
                Next a
               
                myMsg.Move myAflsuttetFolder
               
               
               
        End With
    Next
   
    Set myMsg = Nothing
    Set myAflsuttetFolder = Nothing
    Set myFolder = Nothing
    Set myNameSpace = Nothing
    Set myApp = Nothing
bvirk Seniormester
08. december 2017 - 10:54 #2
Man kan så sige at det ikke har noget med access at gøre - det kunne lige så godt laves i excel eller endog blot vbscript.
Jeg kan godt forstille mig mail brug, hvor det uhensigtsmæssigt at fylde mail systemet op med massser af vedhæftede, og at det giver bedre overblik og bekvemmere start af associerede program når de ligger i filsystemmet.

En tanke jeg finder interessant, nu access er i spil, er at man sagtens kan simulere mappeindhold i access - alså bruge access som både et arkiv og arkiv browser ligesom en zip fil der browses med zip program - Så kunne man også få lidt relevante mailheadere med, som 'from' og 'subject'. Med andre ord - gemme i felttypen blob som fra 2007 er blevet eksponeret i table design, men altid har været der og tilgåes i vba vha getchunk og addchunk
Carsten Novice
08. december 2017 - 12:18 #3
Hej Terry og Bvirk,
Tak for jeres svar.
Omkring "VBA in Access you'll need a reference to Outlook (Tools-References)"
Hvordan gør jeg det i Outlook 2016?

Hvis jeg kører koden fra Terry, får jeg en Compile error med "User-defined type not defined" ved:
"Dim myApp As New Outlook.Application"
Er det på grund af, at jeg mangler ovenstående reference?
Vh Carsten
terry Ekspert
08. december 2017 - 13:21 #4
you said in your original question "en kode til VB Acces" So I assumed you wanted to have the code in Access (Microsoft Access), is that correct?
terry Ekspert
08. december 2017 - 13:30 #5
The code will also work in Outlook but you need the reference to Outlook

In Code view Look under Tools+References menu
terry Ekspert
08. december 2017 - 13:31 #6
I dont have Outlook 2016 but I guess its the same place..
Carsten Novice
08. december 2017 - 15:46 #7
Hi Terry,
Thanks again for your answer.
Yes, I want to have the code in Microsoft Access.
I just need to "adjust" the reference to Outlook.
(at present I just don't have the Tool menu in my Outlook version)
Waiting for the tool, to make the reference.
//Carsten
terry Ekspert
08. december 2017 - 17:18 #8
In Access you also find References under tools menu when in code view (CTRL+G)

In Outlook try pressing ALT+F11 to get to code view
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Computerworld
Aarhus Kommune dropper Atea som hardware-leverandør: Vælger konkurrent til hardwareordre på op til 350 millioner kroner
Efter et langt og rodet forløb har Aarhus Kommune nu endelig fundet vinderen af det enorme hardwareudbud til en værdi på op til 350 millioner kroner. Det blev et farvel til Atea og et velkommen til konkurrenten.
CIO
Cybersikkerhed til hele Danmark: Endelig faldt tiøren – lad os så komme i gang
Klumme: Regeringen og en række partier har afsat 1,4 milliarder kroner til at beskytte Danmark mod fremtidige cyber-angreb. Det er meget positivt. Nu bør vi handle. For pengene har ingen værdi i sig selv.
Comon
Det skal du gøre for at få skiftet dit (måske slidte) iPhone-batteri til 229 kroner
Apple har sænket prisen for at få skiftet batteriet i iPhone det næste år efter en større afsløring, og hvis du vil gøre brug af tilbuddet, skal du gøre dette
Job & Karriere
Regeringen vil gøre it-undervisning obligatorisk i folkeskolen: "Planen er, at alle danske børn skal lære at kode," siger undervisningsministeren
Interview: Regeringen indfører obligatorisk undervisning i it i folkeskolen på alle klassetrin og præsenterer fredag ny plan. Ny forsøgsordning i op til 50 skoler skal bane vejen. “Visionen for planen er, at alle danske børn skal lære at kode,” siger undervisningsminister Merete Riisager (LA).
White paper
Sådan virker Oracles svar på konvergeret infrastruktur i virkeligheden
Den såkaldte konvergerede infrastruktur, som sammensmelter software og hardware i datacenteret, er en populær metode til at effektivisere driften. En anden metode er Oracles Exadata Database Machine, som bygger på hardware specialsyet til databasesoftware, der sigter på at optimere databasens performance og gøre administrationen mere simpel. Men hvordan virker det i virkeligheden? Analysehuset IDC har undersøgt sagen blandt kunder, der bruger systemet, og resultaterne kan du læse i dette meget grundige whitepaper på 16 sider sponseret af Oracle. Business Value of Oracle Exadata Database Machine, whitepaper fra IDC, 16 sider på engelsk, oktober 2016. Få samtidig to infografik-filer fra om exadata fra Oracle.