Emailanhang exportieren nach Word

[Matze-muc]

Hi Leute,

könnte mir einer bitte in kurzem Programmcode mitteilen, wie man
einen Anhang ins Word exportiert werden kann (quasi nur als Icon)

MFg Mathias ?

[Untitled]

@ExportToWord([AsIcon])

Klingt toll nicht? Gibts aber nicht. 

Und ich verstehe nicht was du mit "quasi nur als Icon" meinst. Ausserdem ist das, wenn ich das mal schnell durchdenke recht kompliziert und nicht so "schnell mitzuteilen".

Falls niemand einen produktiveren Kommentar als ich abliefert, bitte ich dich Mathias, mal genauer zu werden.

Grüsse
Moritz

[Axel]

Was verstehst du unter ...quasi nur als Icon?

Ich habe mal enen Agenten geschrieben, der Mails und Anhänge exportiert. Anhänge werden im Filesystem abgelegt. Im Word-Dokument werden Anhänge dann als Links abgelegt.


Schau mal hier: http://atnotes.de/index.php?topic=25092.0


Axel

[DerAndre]

Er meint bestimmt einen Da-Drauf-Drück-Gerät.

Vielleicht reicht ja auch Rechte-Maustaste und Öffnen?

André

[Matze-muc]

Hallo zusammen,

freut mich das es eine heisse Diksusion hier wird *g*.

Zum Thema "genauer" :
Ich möchte quasi nur das passende Icon (für die Dateiverknüpfung)
und den Namen der Datei im Worddokument haben.
Das auslesen der restlichen Sachen wie Emailadresse usw. stehen schon in dem Dokument....

PS: Der Anhang soll aber nicht als File abgelegt werden !

Reicht das erstmal für eine weitere Diskussion ?

Danke erstmal an alle !!
Mathias

[Axel]

Reicht das erstmal für eine weitere Diskussion ?

Nicht so ganz.

Sollen die Namen der Anhänge nur als Text im Worddokument aufgenommen werden oder soll da ein Link dahinter liegen?

Die Namen auslesen ist kein Problem.

Code

...
If ( rtitem.Type = RICHTEXT ) Then
  If xHasDocAttachments(doc) Then
    Forall o In rtitem.EmbeddedObjects
       If ( o.Type = EMBED_ATTACHMENT ) Then
          Messagebox o.Name
       End If  'If ( o.Type = EMBED_ATTACHMENT ) Then
    End Forall   'Forall o In rtitem.EmbeddedObjects
   End If  'If xHasDocAttachments(doc) Then
End If  'If ( rtitem.Type = RICHTEXT ) Then
...


Function xHasDocAttachments(doc As NotesDocument) As Integer
	
  Dim vEval As Variant
  vEval = Evaluate("@Attachments", doc)
  If vEval(0) = 0 Then 
     xHasDocAttachments = False
  Else
     xHasDocAttachments = True
  End If
	
End Function

Das mit dem Icon wird nicht so einfach. In LotusScript und in VBA gibt es keine Funktion, die das zu einer Dateiendung gehörende Icon liefert.

Axel

[koehlerbv]

Wozu soll das Ganze überhaupt gut sein? Attachment nicht speichern, aber ein Link: Wohin??

Bernhard

[Matze-muc]

Hier soll nur der Name und die Größe angegeben werden.
ist das der Code dann für den Zweck ?

ich habe mal hier den Code den ich so zusammen geschrieben hab :
(ohne den Vor- und Nachspann...)

Forall embobj In rt_Body.EmbeddedObjects
      filename(ww) = embobj.Name
      If embobj.FileSize > 1000 Then
         filegroesse1 = Round(embobj.FileSize/1000,0)
         filegroesse(ww) = filegroesse1 + " Kb"
      Else
         filegroesse1 = Round(embobj.FileSize,3)
         filegroesse(ww) = filegroesse1 + " Byte"
      End If
      ww = ww + 1
   End Forall

Das problem hier ist nun das es bei mails mit anhang funktioniert und bei mails auf einen "Type Mismatch"-Fehler läuft.
Hab ich da was falschgemacht ?

MFG Mathias

[koehlerbv]

Du hast da nichts falsch gemacht, sondern schlicht eine wichtige Prüfung weggelassen:
Du versuchst, mit "rt_Body.EmbeddedObjects" zu dealen, weisst aber überhaupt nicht, ob dieses Objekt denn überhaupt vorhanden ist (und dann auch noch Attachments enthält).

Axel hat genau diese Prüfung bereits gepostet:

Code

[b]If xHasDocAttachments(doc)[/b] Then
    Forall o In rtitem.EmbeddedObjects
       [b]If ( o.Type = EMBED_ATTACHMENT )[/b] Then

Bernhard

[Matze-muc]

Guten Morgen zusammen,

vielen Dank Bernhard....habs eingefügt und funktioniert....

Somit würde ich sagen, das wars mit dem Teil des Forums.

Schöne Tage noch...Winke
 Mathias

[Matze-muc]

Hallo nochmal....hab da noch ne Frage :

Wie schaut es den mit den eingebetteten Bilder aus ?
Kann man diese auch exportieren ?

[Axel]

Ich hab' da mal bei OpenNTF was gefunden.

Export embedded picures from Notes Documents as GIF and JPG

Es funktioniert, aber trivial ist das Ganze nicht.


Axel