Re: Use VB to detach an attachment ( and delete the document)

Subject:

Comments:: : try this code, using COM : : ----------------------- : : Function detachFile() : : Dim s As New NotesSession : : Dim db As NotesDatabase : : Dim v As NotesView : : Dim doc As NotesDocument : : Dim Object As NotesEmbeddedObject : : Dim filename As String : : Call s.Initialize : : ' s.Initialize asks PASSWORD OF CURRENT USER : : '(Notes Client must be running on the machine) : : Set db = s.GetDatabase("riz.lahore.com", "Mail\username.nsf") : : Set v = db.GetView("($Inbox)") : : Set doc = v.GetFirstDocument : : While Not (doc Is Nothing) : : Set Object = doc.GetAttachment("crs.cfg") : : If Not (Object Is Nothing) Then : : 'MsgBox "Found an object named embObject" : : filename = "c:\test\" & Object.Name : : Call Object.ExtractFile(filename) : : ' if u want to delete the document : : Call doc.Remove(True) : : : : MsgBox "file Extracted" : : End ' Stop searching : : End If : : Set doc = v.GetNextDocument(doc) : : Wend : : MsgBox "File " + " crs.cfg " + " not found in INBOX." : : End Function

Optional Link URL:
Link Title:
Optional Image URL: