Public Sub Anhaenge_extrahieren(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
Dim saveFolder2 As String
saveFolder = "Pfad"
saveFolder2 = ""
If itm.Attachments.Count = 2 Then
For Each objAtt In itm.Attachments
If InStr(objAtt.DisplayName, ".pdf") Or _
InStr(objAtt.DisplayName, ".PDF") Then
objAtt.SaveAsFile saveFolder & objAtt.FileName
ElseIf InStr(objAtt.DisplayName, ".xml") Or _
InStr(objAtt.DisplayName, ".XML") Then
objAtt.SaveAsFile saveFolder2 & objAtt.FileName
itm.UnRead = False
ElseIf itm.Attachments.Count = 0 Then itm.UnRead = True
itm.Save
End If
Next
End If
Dim objOutlook As Object
Dim objMail As Object
Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "Mail-Adresse"
.Subject = "Automatische Benachrichtigung"
.Body = "Mit Erhalt dieser Mail, wurde die Extrahierung erfolgreich f?r den jetztigen Monat durchgef?hrt!"
.Send
End With
End Sub