Public
Sub
Save_TrailB1(itm
As
Outlook.MailItem)
Dim
objAtt
As
Outlook.Attachment
Dim
saveFolder
As
String
Dim
saveFolder2
As
String
Dim
Space
Space =
" - "
saveFolder = "T:\emc\IKS\IKSAUTO\"
saveFolder2 = "T:\emc\TAAUTO\"
For
Each
objAtt
In
itm.Attachments
If
InStr(objAtt.DisplayName,
".pdf"
)
Or
_
InStr(objAtt.DisplayName,
".PDF"
)
Then
objAtt.SaveAsFile saveFolder &
"\" & "
VWL01-Trail-Balance" & Space & objAtt.DisplayName
If
InStr(objAtt.DisplayName,
".xml"
)
Or
_
InStr(objAtt.DisplayName,
".XML"
)
Then
objAtt.SaveAsFile saveFolder2 &
"\" & "
TrailBalance.xml"
End
If
objAtt.Delete
Set
objAtt =
Nothing
Next
End
Sub
Kann mir da jemand helfen?
Danke FKSS