Hallo zusammen
Ich habe hier einen Agent der bis Domino 7 sauber funktioniert hat. Bei Domino 8.0.1 funktioniert er nicht und ich erhalte den Fehler "Object Variable not set".
Der Debugger meint, es müsse an folgender Zeile liegen:
Hier noch der ganze Code
Code
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim dbug As NotesLog
Dim rtitem As Variant
Dim it As NotesItem
REM [Log] Starten der Protokollierung
Set dbug = New NotesLog("Router log")
dbug.LogActions = True
dbug.OpenAgentLog
dbug.LogAction("Start")
REM [Action] Abfangen der eingehenden Message
Set doc = session.documentcontext
REM [Log] Protokollieren des Themas
Set it = doc.GetFirstItem("Subject")
dbug.LogAction("Thema" + "-> " + it.Text)
REM [Action] Lösen des Anhanges
Set rtitem = doc.GetFirstItem( "Body" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
Call o.ExtractFile( "m:\Autoimport_0848120150\" + o.Source())
Call o.Remove
REM [Log] Entfernen des Attachments
dbug.LogAction("Attachment entfernt")
REM [Action] Neues Feld zur Prüfung ob entfernt
doc.stripped = "yes"
REM [Action] Text an Mail anhängen zur Information, dass Attachments entfernt wurden
rtitem.AddNewLine(1)
rtitem.AppendText(FileName +"<<Achtung: Attachment wurde vom System entfernt!>>")
Call doc.Save( True, True )
End If
End Forall
End If
REM [Log] Beenden der Protokollierung
dbug.LogAction("Der Attachment-Remover wurde beendet")
dbug.Close
End Sub
Alles anzeigen
Wäre super, wenn jemand von euch da Input geben könnte.
Gruss Andy