Hallo,
stück für Stück verstehe ich mehr und Mehr von VBA und dacht mir ich kann mal eben zwei (gut funktionierende) Scripte zussamnpacken.
Das klappte nicht so toll. Es kommen immer wieder mal andere Fehlermeldungen. Ist es vieleicht bloß ein ganz kleiner Fehler?
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\" 'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
saveFolder2 = "T:\emc\TAAUTO\" 'Hier ist der Pfad anzugeben, wohin der Anhang gespeichert werden soll!
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
|