Autor Thema: Rich Text Export mit eingebetten Bildern  (Gelesen 1213 mal)

Offline arcon

  • Frischling
  • *
  • Beiträge: 47
  • Geschlecht: Männlich
  • Notes4Ever
Rich Text Export mit eingebetten Bildern
« am: 03.07.03 - 09:54:11 »
Hallo,

habe folgendes Problem wen eine User in ein Memo ein Bild per copy&paste einfügt wird es nicht als Attachment eingefügt sondern als Objekt im Rich Text.

Beim Export in ein Word wird nur der Textteil genommen die Bilder werden Ignoriert und andere Formate bringens auch nicht  ???

Meine Frage ist nun wie kann ich erkennen ob das Rich Text Feld solche Objekte beinhaltet und wie kann man diese Mail Exportieren wo auch die Bilder mit exportiert werden.

Arcon

Offline Alirion

  • Frischling
  • *
  • Beiträge: 41
  • Geschlecht: Männlich
  • Nicht`s ist so, wie es scheint!
Re:Rich Text Export mit eingebetten Bildern
« Antwort #1 am: 03.07.03 - 10:05:23 »
Gehe standardmäßig mit kopieren aus der Zwischenablage vor. D.H. du holst den Inhalt der Mail mit

call uidoc.gotofield("dein Feld")
call udoc.selectall()
call uidoc.copy()

anschließend hast du den Inhalt der Mail aus dem "dein Feld" in der Zwischenablage.

Im Wordobjekt springst du zu der entsprechenden Bookmark und fügst es mit

Object.Paste() ein.

Hoffentlich hilfts!

Offline arcon

  • Frischling
  • *
  • Beiträge: 47
  • Geschlecht: Männlich
  • Notes4Ever
Re:Rich Text Export mit eingebetten Bildern
« Antwort #2 am: 03.07.03 - 11:16:57 »
Hi, danke für die Antwort

nur brauche ich eine Lösung die Back-End funktioniert da ich den Export auch autom. über den Server mittels Agent laufen lassen möchte.

Mit dem Code gehts leider nicht da man hier eben die Bilder und Formatierung verliert. >:(


Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim col As NotesDocumentCollection
   Dim wordobj As Variant
   Dim worddoc As Variant
   Dim ntNotes As NotesDocument
   Dim path As Variant
   
   path="c:\test.doc"
   Set wordobj = CreateObject("Word.Application")
   
   wordobj.visible = True
   
   Set db = s.CurrentDatabase
   Set col = db.UnprocessedDocuments
   
   FileCount = 0
   
   For i = 1 To col.Count
      Set ntNotes = col.GetNthDocument( i )
      
      Set wordObj = GetObject(path)
      tempfield=ntNotes.body
      
      Call WordObj.ActiveWindow.Selection.TypeText(tempfield+Chr$(13))
      
      wordObj.Save
      wordObj.Application.Quit
      
      Set wordObj = Nothing
      
   Next
   Set wordObj = Nothing
   Msgbox "File has been exported to -->: " + path


Arcon
« Letzte Änderung: 03.07.03 - 11:59:51 von arcon »

Offline Alirion

  • Frischling
  • *
  • Beiträge: 41
  • Geschlecht: Männlich
  • Nicht`s ist so, wie es scheint!
Re:Rich Text Export mit eingebetten Bildern
« Antwort #3 am: 03.07.03 - 15:25:23 »
Da Du für diese Variante den Zwischenspeicher brauchst, und du nur aus einem notesuidocument den Zwischenspeicher füllen kannst, hast Du auf dem Server oder egal (Backend) immer ein Problem.

Funktional ist es nur im Front-End möglich.

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz