Beiträge von pallinio

hi

Nein das ist nicht der vollständige Code! Das ist nur der Teil, in dem ich das RichtextFeld kopiere!

Zur Info:

officeForce ist meine Datenbank in der das Dokument antwort erzeugt wird!
antwort soll ebenfalls eine Email sein, aber nicht aus der MailDB sondern aus einer anderen Datenbank mit einer komplett anderen Maske!

officeMemo hat mit dem Teil der da steht nix zu tun, das ist ein überbleibsel von Cpoy and Paste!

ich benuzte Version 6.5.1!

Dein Vorschlag hat leider nicht Funktioniert!
Sobald ich die Anhänge so entferne öffnet er mit antwort nicht mehr!

Guten Morgen Zusammen

ich möchte aus dem Memo- Body(iNotes6) den Inhalt in ein anderes Dokument übernehmen und dabei alle Anhänge entfernen!

Das Funkktioniert mit @Befehlen ganz wunderbar, aber ich brauche das dringend in Script!

Die Übernahme des Feldes funktioniert auch dabei, aber die Anhänge lassen sich nicht entfernen!

Mein Code:

Set email = New NotesRichTextItem(antwort,"Body")
Call email.AppendText(Chr(10))
Call email.AppendText(Chr(10))
Call email.AppendText(Chr(10))
Call email.AppendRTItem(uidoc.Document.GetFirstItem("Body"))

Call antwort.Computewithform(True, False)
UnId = antwort.UniversalID

Print("geschafft")
Print(antwort.GetItemValue("Firstname")(0) +" " + antwort.GetItemValue("Lastname")(0))
' -------


Set officeMemo = OfficeForce.GetDocumentByID(UnId)
Print("UnID: " + UnId)

Call ws.EditDocument(True ,antwort ,False , ,False , True )

In der Hilfe steht das ich die Anhänge so entfernen könnte:

'Forall o In email.EmbeddedObjects
' If ( o.Type = EMBED_ATTACHMENT ) Then
' Call o.Remove
' Print("Object: " + o.Name)
' End If
'End Forall

aber dann wird der Befehl call ws.EditDocument(...) nicht ausgeführt!

Wer kann mir helfen?

Gruß Pallinio