E-Mailanhang kopieren in ein neues Dokument

Hallo Forum,

ich versuche mich gerade über Lotus Script einen E-Mailanhang von einer Mail in eine neue E-Mail zu kopieren.
Dazu habe ich mir den Anhang in ein Object kopiert nur kann ich dieses Objekt jetzt nich in das neue Dokument schreiben. Hier benötige ich Eure Hilfe.

Mein code sieht bis jetzt wie folgt aus:

Do Until Doc Is Nothing
		If Doc.HasEmbedded Then
			Set rtitem = Doc.GetFirstItem( "Body" )
			If ( rtitem.Type = RICHTEXT ) Then
				Forall o In rtitem.EmbeddedObjects
					If ( o.Type = EMBED_ATTACHMENT ) Then
						objectName = o.Name
						dateiendung = Lcase$(Right$(objectName, 3))
						Set object = o.GetEmbeddedObject(objectName)
					End If

					namedb = "mailintest.nsf"		
					Set db2 = New NotesDatabase (server, namedb)

					Set docnew = db2.CreateDocument
					docnew.Form = "Memo"
					docnew.From = doc.From(0)
					docnew.Subject = doc.Subject(0)
					docnew.SMTPOriginator = doc.SMTPOriginator (0)
					docnew.SendTo = doc.SendTo(0)

					Set rtitemnew = New NotesRichTextItem( docnew,   "Body" )
					Call rtitemnew.AddNewLine( 1 )					
					Call docnew.ComputeWithForm( False, False )
					Call docnew.Save(True,False)			

					Call doc.PutInFolder( "Archiv" )
					Call doc.RemoveFromFolder( "($Inbox)" )
					Set Doc = Vw.GetFirstDocument


				End Forall
			End If			
		End If
	Loop

Mein Ziel ist es den Anhang "object" mit in das Dokument "docnew" zu schreiben. Ich kann leider nicht das Feld Body kopieren, da hier ein Text stehen könnte, der in der neuen E-Mail nicht sein sollte.

Wenn möglich sollte es funktionieren ohne den Anhang auf die Festplatte zu schreiben und dann erneut einzulesen als neuer Anhang.

Würde mich freuen wenn wir hier eine Lösung finden könnten.

Herzlichen Dank Daniel

Hallo,

danke für die Antwort. Auf das Symbol im Body kann ich verzichten.

Hast du ein Beispielcode für mich?

Ich bin nicht so gut im LotusScript und ich würde mich sehr über einen Code freuen.

Danke Daniel

Hallo,

danke für deine Antwort. Leider funktioniert diese Lösung nicht oder ich habe was falsch umgesetzt.

Bei den Code erhalte ich die Fehlermeldung "Instance member COPYTODOCUMENT dows not exist"

Forall x In doc.Items  If x.Name = "$FILE" Then    Call x.CopyToDocument(docnew)  End IfEnd Forall

Wenn ich dieses verwende, dann kommt die Fehlermeldung "Can't copy items of Type ATTACHMENT or OTHEROBJECT"

Forall x In doc.Items
  If x.Name = "$FILE" Then
    Call x.CopyItemToDocument( docnew, "$FILE" )
  End If
End Forall

Was habe ich falsch umgesetzt oder sollte ich doch auf eine andere art durchführen?

Danke Daniel

Hallo,

danke, so hat es funktioniert.

Bis bald Daniel