Rechtstreeks opslaan van bijlage in outlook

[JHM Wetzelaer]

Ik heb een groot aantal mails die een pdf-attachment bevatten.
Is het mogelijk met een macro (knop) in outlook dit attachment te openen en vervolgens rechtstreeks op te slaan op een bepaalde plaats op mijn harde schijf (bijv. D:\pdf\mailsattachments).

 

[Tiborv]

In Outlook 2007 kun je alle attachments selecteren en gewoon naar een Windowsmap slepen, dit gaat in ieder geval sneller dan via het menu. Van Macro's weet ik niets.

 

[vanveelen]

In Outlook 2007 kun je alle attachments selecteren en gewoon naar een Windowsmap slepen, dit gaat in ieder geval sneller dan via het menu. Van Macro's weet ik niets.

Hoi,

Jou verhaal gaat op, wanneer in één mail meerdere bijlagen zitten.
Maar TS heeft een andere vraag .....
Daarbij helpt dat slepen natuurlijk ook nog wel, maar een 'knop' zou natuurlijk handig zijn, zodra je een mail ontvangt met een bijlage ....
Van Macro's weet ik weinig, zéker in Outlook.

 

[Tiborv]

Inderdaad, wellicht zou het alleen iets versnellen, maar nog steeds bericht voor bericht.

Wellicht is http://technet.microsoft.com/en-us/library/ee692901.aspx iets voor je, hierbij ga ik er stiekum van uit dat VBS geen probleem vormt. Mijn VBS kennis is beperkt tot inlogscripts

 

[Wigi]

Die vraag is nog al eens aan bod gekomen:

http://www.helpmij.nl/forum/showthread.php?t=478803

Enkel de test om het gaat om een pdf moet nog toegevoegd worden.

Wigi

 

[snb]

Het antwoord staat hier al voor je klaar. En ook waar WiGi je naar verwijst.

 

[JHM Wetzelaer]

VBA code geprobeerd, maar

Ik heb onderstaande code geprobeerd. Alle attachments van al mijn mails worden nu opgeslagen, maar ik wil enkel het attachment in de geopende email opslaan in onderstaande map?

Sub bijlage_opslaan_IIb()
With GetObject(,"Outlook.Application")
For Each it In .GetNamespace("MAPI").GetDefaultFolder(6).Items
If it.Attachments.Count > 0 Then it.Attachments(1).SaveAsFile "C:\Users\Jo Wetzelaer\Desktop\Website2\" & it.Attachments(1).Filename
Next
End With
End Sub

 

[Wigi]

maar ik wil enkel het attachment in de geopende email opslaan in onderstaande map?

Het had dan wel aardig geweest als je dat in de oorspronkelijke vraag gezet had.

Gebruik:

Application.ActiveInspector.CurrentItem

om te verwijzen naar de geopende email.

Wigi

 

[JHM Wetzelaer]

nog niet duidelijk

Wigi,

hoe wordt de VBA-code dan in totaal, want ik begrijp je antwoord niet?

Alvas bedankt.