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:
Code
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
Alles anzeigen
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