Anhänge mit Endung xls per Agent lösen und in ein bestimmtes Verzeichnis schreiben?

  • 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

  • Hallo,


    habe meinen Agenten wtwas verändert. Jetzt klappt es mit dem automatischen lösen von Anhängen in einen bestimmten Ordner im Netzwerk.


    Gruß
    Wolle

  • und wie sieht er jetzt aus?


    Stehe auch grad vor dem gleichen Problem!!! :(

    {Domino 7.02 / Notes 7.02}


    Vor dem Gebrauch schütteln, nach schütteln nicht mehr zu gebrauchen! :hammer: