Autor Thema: Position für Methode CopyItemtodocument festlegen  (Gelesen 3879 mal)

Offline zyrak2003

  • Frischling
  • *
  • Beiträge: 19
Liebe Kolleginnen und Kollegen,

ich brauche dringend eure Hilfe für eine kleine Scriptherausforderung. Im Folgenden Script öffne ich eine Antwortmail, und möchte in diese ein NotesItem einfügen. Das klappt auch soweit, allerdings soll das NotesItem nicht ans Ende des Bodyfelds kopiert werden sondern an den Anfang.

Der Befehl Call item.CopyItemToDocument(replyMail,"Body") klebt den Feldinhalt direkt hinter den Text der Ursprungsmail.


Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim db As NotesDatabase, dbMail As NotesDatabase
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument, docMail As NotesDocument, replyMail As NotesDocument, docProfile As NotesDocument
   Dim item As NotesItem
   
   ws.ReloadWindow
   ws.ViewRefresh
   Set db=s.CurrentDatabase
   Set uidoc=ws.CurrentDocument
   Set doc=uidoc.Document
   
   
   Set docProfile=db.GetProfileDocument("DBProfile")
   Servername=docProfile.Mails1Server(0)
   DBname=docProfile.Mails1DB(0)
   
   Set dbMail=s.GetDatabase(Servername,DBName)
   
   If doc.MailID(0) = "" Then
      Exit Sub
   End If
   
   Set docMail = dbMail.GetDocumentByUNID(doc.Mailid(0))
   Set replyMail = docMail.CreateReplyMessage(False)
   
   replyMail.From = "Absender xy"
   replyMail.SendTo = doc.MailAddress(0)
   replyMail.Subject = "Antwort: " & doc.MailThema(0)
   Set item = doc.GetFirstItem( "Ausgangsmail" )
   Call item.CopyItemToDocument(replyMail,"Body")
   
   Call replyMail.Save( True, True )
   
End Sub

Hat jemand eine zündende Idee?

Liebe Grüße
zyrak2003

Offline Bastel123

  • Senior Mitglied
  • ****
  • Beiträge: 355
  • Geschlecht: Männlich
Re: Position für Methode CopyItemtodocument festlegen
« Antwort #1 am: 03.12.13 - 13:50:38 »
Schau dir mal die Klasse NotesRichTextNavigator und dort die Methode SetPosition an.

Vielleicht hilft das.

Gruß
Sebastian
Gruß Sebastian
-----------------------------------------------------
Kaum macht man's richtig, schon funktioniert's.

Offline Tode

  • Moderatoren
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 6.870
  • Geschlecht: Männlich
  • Geht nicht, gibt's (fast) nicht... *g*
Re: Position für Methode CopyItemtodocument festlegen
« Antwort #2 am: 03.12.13 - 14:29:28 »
CopyItemToDocument ist die falsche Methode. Nimm ein NotesRichtextItem und füge dort per AppendText den Text ein... dann kannst Du -wie von Sebastian beschrieben- mittels NotesRichtextNavigator die Position bestimmen. Also so:
Code
Dim body as NotesRichtextItem
Set body = New NotesRichtextItem( replyMail, "Body" )

... Hier die Position festlegen mittels Navigator
Call body.AppendText( item.Values )

Oder: Wenn "Ausgangsmail" ein Richtextitem ist:

Call body.AppendRichtextItem( item )
Gruss
Torsten (Tode)

P.S.: Da mein Nickname immer mal wieder für Verwirrung sorgt: Tode hat NICHTS mit Tod zu tun. So klingt es einfach, wenn ein 2- Jähriger versucht "Torsten" zu sagen... das klingt dann so: "Tooode" (langes O, das r, s und n werden verschluckt, das t wird zum badischen d)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz