Domino 9 und frühere Versionen > ND6: Entwicklung

Anhänge überprüfen

<< < (2/3) > >>

ata:
... eventuell ist es per COM auslesbar - soweit es sich um Attachments handelt wie Word-Dateien oder EXCEL-Sheets...

Toni

Daniel87:
Bei dem Anhang handelt es sich überwiegend um .pdf und Worddateien

ata:
... Word-Dateien sind kein Problem - bei PDF wird es schon schwieriger - ich probier mal ein paar Sachen aus...

Toni

ata:
... du könntest mal folgendes ausprobieren:


--- Code: ---Function FileLastModified( sFile As String ) As String
   Dim fso As Variant
   Dim fsoFile As Variant
   Dim sLastModified As String
   '
   Set fso = CreateObject( "Scripting.FileSystemObject" )
   If fso.FileExists( sFile ) Then
      ' Print "Die Datei existiert"
      Set fsoFile = fso.GetFile( sFile )
      sLastModified = fsoFile.DateLastModified
      Set fsoFile = Nothing
      Set fso = Nothing
   Else
      ' Print "Die Datei existiert nicht"
      sLastModified = ""
      Set fso = Nothing
   End If
   '
   FileLastModified = sLastModified
   '
End Function


--- Ende Code ---

... sollte eventuell für jede Datei funktionieren - zuvor das Attachment lösen und dann mit der Funktion angrabben...

Toni

*** edit ***
... habe noch einen Fehler debuggt...

Toni

Daniel87:
Hallo Toni,

vielen Dank für deine Mühen. Eine Frage habe ich aber noch, da ich vor kurzem erst mit Lotus Notes angefangen habe. Der Anhang wird in einem RichText-Feld gespeichert, wie kann ich den da raus lösen?

Gruß

Daniel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete