Guten Morgen Forum,
ich suche ein Script, das nach Eingang einer Mail prüft ob eine xls oder zip Datei angehängt ist und diese automatisch löst und in ein bestimmtes Verzeichnis kopiert?
Mein Beispiel wäre so aber irgendwie klappt es nicht:
Sub Initialize
If Dok.HasEmbedded Then
TempArrAtt = Evaluate({@text(@attachmentNames)},dok)
If TempArrAtt(0) = "" Then
Exit Sub
Else
For i = 0 To Ubound(temparrAtt)
Set Objekt = Dok.GetAttachment(TempArrAtt(i))
If (Objekt.Type = 1454) Then
Call Objekt.ExtractFile("C:\Mails\" & Objekt.Name)
Call Objekt.remove
End If
Next i
End If
End If
End Sub
Kann mit jemand einen Tip geben?
Gruß
Wolle