Hoi, op mijn werk krijg ik soms wel 50 of meer zelfde mails toe van onze leverancier met een factuur of creditnota in PDF in bijlage. Vroeger had ik een VBA-scriptje gevonden op het internet om deze bijlagen dan automatisch af te printen want elke mail apart openen kost teveel tijd. Maar helaas hebben onze IT-specialisten (afzonderlijke firma) Citrix geïnstalleerd en werkt mijn programmaatje niet meer.  IT-specialisten hebben er naar gekeken maar geraken ook niet verder.   Ik heb dit script nu al een beetje kunnen aanpassen dat het nu gewoon alle bijlagen opslaagt in een map en dit werkt, maar ik geraak niet verder. Kunnen jullie mij helpen? Ik zou nu graag willen dat het script enkel die bijlagen opslaagt als het onderwerp van de mail een bepaalde benaming heeft.
Hieronder mijn script
Alvast bedankt.
Dim ns As NameSpace
 Dim Inbox As MAPIFolder
 Dim Item As Object
 Dim Atmt As Attachment
 Dim FileName As String
 Dim i As Integer
 Const olFolderInbox = 6

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox)

Set colItems = objFolder.Items

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each objMessage In colItems
    intCount = objMessage.Attachments.Count
    If intCount > 0 Then
        For i = 1 To intCount
            strTempFile = objFSO.GetTempName
            objMessage.Attachments.Item(i).SaveAsFile "V:\ACTIES\actie\Email Attachments\" & strTempFile & "_" & _
                objMessage.Attachments.Item(i).FileName
       

Next

End If
Next


End Sub

Hallo Janbart,

Voor het opslaan van bijlagen van mails met "bepaalde Onderwerpen" zal je iets als volgend moeten gebruiken:

If olConditionSubject="onderwerp" then
PrintOut Copies:=1
EndIf

(Zeer simplistisch uitgedrukt, er komt wel meer bij kijken 

Klik HIER en HIER voor een zeer uitgebreide site over alle mogelijke toepassingen van VBA met mails (Outlook)

SoftAid              

Hier ga ik toch effe werk mee hebben.  Ga er direct mee aan de slag. Zal hier het resultaat posten mocht ik succes hebben maar dat zal ten vroegste na het week end zijn. Toch al bedankt.