Aanpassen Regel voor Postvak IN met VBA script

Chocka · 29 mrt 2017

Met behulp van deze site, heb ik een regel aangemaakt die het script uitvoert, welke prima werkt.

Nu heb geen script kennis om deze verder aan te passen, want ik zal graag zodra de attachment is opgeslagen, dat desbetreffende bericht als gelezen wordt verplaatst naar de folder "Verwerkt".

Ik heb dit geprobeerd in de regel te verwerken, maar reden wil dat maar niet lukken?

Hierbij het script zoals ik die nu heb staan:

Code:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "Y:\Printen facturen uit mail\"
Dim dateFormat
    dateFormat = Format(Now, "yyyy-mm-dd H-mm")
     For Each objAtt In itm.Attachments
          objAtt.SaveAsFile saveFolder & "\" & dateFormat & objAtt.DisplayName
          Set objAtt = Nothing
     Next
End Sub

En de regel is:

Bekijk bijlage 296103

OctaFish · 29 mrt 2017

Zoiets?

Code:

Dim SaveFolder As String
Dim objNS As NameSpace
Dim Inbox As MAPIFolder, objFolder As MAPIFolder
Dim objItem As MailItem, olOutMail As MailItem
Dim objAtt As Attachment
Dim dateFormat
    
    Set objNS = GetNamespace("MAPI")
    Set Inbox = objNS.GetDefaultFolder(olFolderInbox)
    Set objFolder = Inbox.Folders("Verwerkt")
    SaveFolder = "Y:\Printen facturen uit mail\"
    dateFormat = Format(Now, "yyyy-mm-dd H-mm")
     
    For Each objItem In Inbox.Items
        If objItem.Class = olMail Then
            objItem.UnRead = True
            objItem.FlagIcon = olBlueFlagIcon
            objItem.Save
            objItem.Move objFolder
            For Each objAtt In objItem.Attachments
                 objAtt.SaveAsFile SaveFolder & "\" & dateFormat & objAtt.DisplayName
            Next
        End If
    Next objItem

Chocka · 30 mrt 2017

OctaFish zei:
Zoiets?

Ik veronderstelde dat ik jouw code 1:1 kon kopieren plakken ipv de huidige code die gebruik. Dus heb het volledig overgenomen, maar deze doet niets, dus de oude maar weer even teruggezet. Kan ik ergens iets lezen dit op te lossen?

Aanpassen Regel voor Postvak IN met VBA script

Chocka

Gebruiker

Bijlagen

OctaFish

Verenigingslid

Chocka

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy