Outlook save attachements in folder with subject

[snhnic]

Ik heb een macro die alle attachement uit geselcteerde mappen opslaat in een map op mijn windows explorer. Nu wil ik eigenlijk een stap verder.

Ik ben niet goed in programmeren, maar ik wil dat er in de map subfolders op basis van het mailonderwerp wordt genmaakt en dat daar dan de attachments in komen. Dit zodat ik dezelfde structuur krijg als outlook maar dan op de folder. Wie kan mij helpen.

Zie onderstaande code: Dat heb ik nu

Sub MoveAttachmentsToFolder()
   Dim olMailItem As MailItem
   Dim olAtt As Attachment
   Dim intAtt As Integer
   Dim strPath As String, FileName As String

   If Application.ActiveExplorer.Selection.Count = 0 Then
      MsgBox ("select E-mail Items")
      Exit Sub
   End If
   
   
   
   'strPath = fnShellBrowseForFolderVB
   strPath = "C:\Users\YLM\Documents\Eric info\Eric temp"
   
   If Len(strPath) = 0 Then
      Exit Sub
   End If
   strPath = strPath & "\"
         
   intAtt = 0
   For Each olMailItem In Application.ActiveExplorer.Selection
      If olMailItem.Class = olMail Then
         For Each olAtt In olMailItem.Attachments
            FileName = strPath & olAtt.FileName
            olAtt.SaveAsFile FileName
            
            intAtt = intAtt + 1
         Next
      End If
   Next
   MsgBox intAtt & " Attachement(s) Saved in: " & strPath
End Sub

 

[edmoor]

Zet je code even in codetags.

Het onderwerp van de mail kan je vinden in olMailItem.Subject
Weet je zeker dat je dat wilt?
Het onderwerp kan bijvoorbeeld RE: bevatten en daar zit dus al een teken in die niet is toegestaan in de naam van een folder.

 

[snhnic]

Hoe doe ik dat dan in code tags? En ja dat wil ik inderdaad graag, er kan dan toch ook een stukje code in dat de karakters stript die niet mogen?

 

[edmoor]

De codetags doe je als volgt:
Tik eerst: [ CODE]
Dan je code
En dan: [ /CODE]
maar dan beide zonder de spatie achter het [ teken.

 

[snhnic]

Thanks dat is dan al vast goed!

 

[snb]

Kijk ook eens hier voor het opslaan van bijlagen:

http://www.snb-vba.eu/VBA_Outlook_external.html#L241