Domino 9 und frühere Versionen > ND6: Entwicklung

Anhang in neues Memo hängen

(1/1)

Freezer:
Hallo zusammen,
auch nach Durchforsten des Forums komm´ ich einfach nicht mehr weiter.

Ich möchte anhand eines Doc-Links das entsprechende Dokument suchen und die dort befindlichen Anhänge in ein neues Dokument hängen und per Mail wieder versenden.
Soweit zur Theorie.
Mein Code funktioniert soweit, wenn ich ihn mit dem Debugger ausführe. Läuft der Agent jedoch periodisch gestartet, so bekomme ich zwar eine Mail, aber keine Anhänge mit.

Hat mir da jemand vielleicht einen Tipp?


--- Code: ---
Sub SucheDoc
                Dim session As NotesSession
                Dim db As NotesDatabase
                Dim view As NotesView
                Dim col As NotesDocumentCollection
                Dim rtitem As NotesRichTextItem
                Dim rtnav As NotesRichTextNavigator
                Dim rtlink As NotesRichTextDocLink
                Dim doc As NotesDocument
                Dim unid As String
Set session = New NotesSession
Set db = session.CurrentDatabase
Dim linkDb As New NotesDatabase("", "")
Dim linkDoc As NotesDocument
Dim tempDoc As NotesDocument
Dim linkServer As String
Dim linkDBID As String
Dim linkViewID As String
Dim linkDocID As String
Dim MDoc As NotesDocument
Dim MRTItem As NotesRichTextItem

Set view = db.GetView("($All)")
Set doc = view.GetFirstDocument        'Doc mit Doc-Link

While Not (doc Is Nothing)

Set rtitem = doc.GetFirstItem("Body")
Set rtnav = rtitem.CreateNavigator
Set rtlink = rtnav.GetFirstElement(RTELEM_TYPE_DOCLINK)
linkServer = rtlink.ServerHint
linkViewID = rtlink.ViewUnID
linkDBID = rtlink.DBReplicaID
linkDocID = rtlink.DocUnID


If linkDB.isopen Then
Goto SPRUNG
Else
Call linkDb.OpenByReplicaID(linkServer, linkDBID )
End If

SPRUNG:
Set linkDoc = linkDB.GetDocumentByUNID(linkDocID)
Set tempDoc = db.CreateDocument
Set MDoc = New NotesDocument( db )

If linkDoc.HasEmbedded Then
Call linkDoc.CopyAllItems( tempDoc, True )

Forall item In tempDoc.Items
If Not (Ucase(item.Name) = "$FILE") Then
tempDoc.RemoveItem (item.Name)
End If 
End Forall
Call tempDoc.CopyAllItems(MDoc)

MDoc.Subject = "Angeforderte Dokumente "
Set MRTItem = MDoc.CreateRichTextItem("body")
Call MRtItem.AppendText("Hier die angeforderten Dokumente: ")
MDoc.Form = "Memo"
MDoc.SendTo = doc.GetItemValue("From")
Else
MDoc.Subject = "Angeforderte Dokumente konnten nicht ermittelt werden"
Set MRTItem = MDoc.CreateRichTextItem("body")
Call MRtItem.AppendText("Ihre angeforderten Dokumente konnten nicht ermittelt werden. Eventuell beinhaltet das Zieldokument keine Anhänge. ")
MDoc.Form = "Memo"
MDoc.SendTo = doc.GetItemValue("From")
End If

Call MDoc.Send( False )
Set doc = View.GetNextDocument(doc)
Wend

Set doc = view.GetFirstDocument
While Not (doc Is Nothing)
Call doc.RemovePermanently(True)
Set doc = view.GetFirstDocument
Wend

End Sub


--- Ende Code ---

Gruß, Freezer

stb:

--- Zitat von: Freezer am 10.02.06 - 13:27:59 ---Läuft der Agent jedoch periodisch gestartet, so bekomme ich zwar eine Mail, aber keine Anhänge mit.
--- Ende Zitat ---

Läuft der Code, wenn Du diesen Agenten manuell startest?

Ich würde auch mal mitloggen lassen, das ist bei periodischen Agenten eh zu empfehlen. Lass Dir dabei mal jede Aktion entsprechend ausgeben, interessant dabei sind hier sicherlich auch Inhalte der Variablen. So kannst Du das ganze eingrenzen.

Freezer:

--- Zitat ---
Läuft der Code, wenn Du diesen Agenten manuell startest?


--- Ende Zitat ---
Der Code läuft manuell angestartet zumindest soweit, dass er mir den ersten Anhang zuschickt. Kommen mehrere Felder mit dem Namen $FILE vor, so nimmt er immer das erste Feld.

Beim periodischen Start bin ich mittlerweile so weit, dass ich herausgefunden habe, an welcher Stelle es liegen könnte, nämlich hier


--- Code: ---...

If linkDoc.HasEmbedded Then
Call linkDoc.CopyAllItems( tempDoc, True )

Forall item In tempDoc.Items
If Not (Ucase(item.Name) = "$FILE") Then
tempDoc.RemoveItem (item.Name)
End If 
End Forall

Call tempDoc.CopyAllItems(MDoc)      '<= hier hängt´s wohl

MDoc.Subject = "Angeforderte Dokumente "
Set MRTItem = MDoc.CreateRichTextItem("body")
Call MRtItem.AppendText("Hier die angeforderten Dokumente: ")


--- Ende Code ---

Es werden offensichtlich keine $FILE - Felder von "tempDoc" nach "MDoc" kopiert, nachdem andere Felder aus "tempDoc" gelöscht wurden.

Aber warum denn nur  :-:

Freezer

koehlerbv:
$File-Items sind verlinkt mit dem RTI, in dem das Attachment erstellt wurde. Kopiere daher einfach das betreffende Item in das Zieldokument. Die $Files werden debei von Notes mitgenommen.

Bernhard

Freezer:
Hallo  ;D

Bernhard´s Tipp war wieder mal goldrichtig. Ich hab´ jetzt mit "copyItem" das RT-Item samt Attachment ins Zieldokument kopiert und es funktioniert.

Danke wieder mal!

Freezer

Navigation

[0] Themen-Index