Beiträge von apokolok

apokolok · 27. Februar 2009

Vielen Dank für die Antworten, mit Hilfe von McNotes Tip konnte ich das Problem lösen.
taurec hatte recht, es handelt sich um eingebettete Bilder und ich hatte keine Ahnung wie man diese lösen kann.

Tolles Forum, Vielen Dank!

apokolok · 26. Februar 2009

Hallo,

ich verwende ein Script, das Anhänge aus Mails löst und sie im Dateisystem ablegt.
Dies funktioniert für quasi alle Anhänge, nur Bilder (meist JPEGs) werden nicht gelöst.
Ziel ist, auch die Bilder aus den Mails im Filesystem abzulegen.

Anbei der Code:

Code

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection 
Dim doc As NotesDocument 	
Set db = session.CurrentDatabase 	
Set collection = db.UnprocessedDocuments 	
Set doc = collection.GetFirstDocument() 	
   While Not(doc Is Nothing) 		
      If doc.HasEmbedded Then 			
         Set rtitem = doc.GetFirstItem("Body") 			
         If ( rtitem.Type = RICHTEXT) Then 				
            Forall o In rtitem.EmbeddedObjects 					
               If ( o.Type = EMBED_ATTACHMENT ) Then 						
                  Call o.ExtractFile _ 
                  ("c:beispiel\" +  o.Source)
               End If 				
            End Forall 			
         End If 			
         Sleep 1 			
         Set doc = collection.GetNextDocument(doc) 		
      End If 	
   Wend 	
   collection.RemoveAll(True) 
End Sub

Alles anzeigen

Kann mir jemand weiterhelfen?

Danke

Beiträge von apokolok

Exportieren von Bildern in Filesystem

Exportieren von Bildern in Filesystem