Hallo. Mijn volgende "puzzel" krijg ik helaas niet aan de praat.
In Outlook worden vele emails met bijlagen ontvangen. Van slechts steeds één door de gebruiker geselecteerde c.q. geopende email wil ik na een druk op de formulier knop de bijlage(n) van deze email opslaan op de hd. In een verder stadium wil ik deze als bijlage opslaan in de db. Bij het zoeken via google vind je vaak dezelfde oplossingen (vaak overgenomen van snb !!) waarbij de bijlagen van alle emails worden opgeslagen. Dat is niet wat ik zoek, nl. de bijlagen van één geopende email.
Ik heb de regel waarbij elke email item wordt gescand buiten werking gesteld maar dat levert de bug: Fout 91 Objectvariabele of blokvariabele With is niet ingesteld. Ik heb van alles "getest" maar kom er niet uit. Wie weet een oplossing?
Opm.: Ik vond een leerzame site met veel email variaties, van snb? <http://www.snb-vba.eu/VBA_Outlook_external.html>
In Outlook worden vele emails met bijlagen ontvangen. Van slechts steeds één door de gebruiker geselecteerde c.q. geopende email wil ik na een druk op de formulier knop de bijlage(n) van deze email opslaan op de hd. In een verder stadium wil ik deze als bijlage opslaan in de db. Bij het zoeken via google vind je vaak dezelfde oplossingen (vaak overgenomen van snb !!) waarbij de bijlagen van alle emails worden opgeslagen. Dat is niet wat ik zoek, nl. de bijlagen van één geopende email.
Ik heb de regel waarbij elke email item wordt gescand buiten werking gesteld maar dat levert de bug: Fout 91 Objectvariabele of blokvariabele With is niet ingesteld. Ik heb van alles "getest" maar kom er niet uit. Wie weet een oplossing?
Opm.: Ik vond een leerzame site met veel email variaties, van snb? <http://www.snb-vba.eu/VBA_Outlook_external.html>
Code:
Private Sub Knop181_Click()
Dim Item As Outlook.MailItem
Dim Atmt As Outlook.Attachment
Dim Filename As String
'For Each Item In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(6).Items
For Each Atmt In Item.Attachments
Tmp = Split(Atmt.Filename, ".")
Debug.Print Atmt
Select Case Tmp(UBound(Tmp))
Case "pdf", "xls", "xlsx", "doc", "docx", "jpg"
Filename = "D:\Bijlagen_email_db\" & Atmt.Filename
Attachments.SaveAsFile Filename
End Select
Next
'End Select
End Sub