Domino 9 und frühere Versionen > ND6: Entwicklung

Emailanhang exportieren nach Word

<< < (2/3) > >>

Axel:

--- Zitat von: Matze-muc am 03.04.06 - 14:52:12 ---Reicht das erstmal für eine weitere Diskussion ?

--- Ende Zitat ---

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

--- Ende Code ---

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
--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete