Bijlage ongeblokkeerd opslaan

[AatB]

Hi,

middels een vba code sla ik bijlages op binnen het netwerk.
Een andere gebruiker moet deze bijlages verwerken, maar heeft door de blokkade geen toegang.

Weet iemand de vba code hoe ik de bijlage vanuit outlook on-geblokkeerd op kan slaan ?

?

mvg,

Aat

 

[edmoor]

Lees dit er maar eens over:
https://www.sitepoint.com/outlook-unblock-unsafe-attachments/

 

[AatB]

Hi edmoor,

bedankt, maar ik wil dit natuurlijk niet voor alle bijlages.
Alleen voor die bijlages die ik middels een macro opsla.
Dus zoiets als dit, maar dan ook een file-attribute mee kunnen geven of aan kunnen passen na het opslaan.

For Each Item In SubFolder.Items
        For Each Atmt In Item.Attachments
            If LCase(Right(Atmt.FileName, Len(ExtString))) = LCase(ExtString) Then
                FileName = DestFolder & Item.SenderName & " " & Atmt.FileName
                Atmt.SaveAsFile FileName
                I = I + 1
            End If
        Next Atmt
    Next Item

 

[edmoor]

De SaveAsFile methode heeft geen opties om de attributen aan te passen. Wat je zou kunnen doen is na het opslaan met de Shell functie een Powershell opdracht uitvoeren:

Shell "powershell -command " & "Dir " & FileName & " | Unblock-File"

Dit werkt vanaf Powershell 3.

 

[AatB]

Bedankt, dat ga ik proberen.