Sub uploadFile
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.Save
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem("attachment_f")
Dim files As Variant
files = ws.ope
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
Call uidoc.Save
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim rtitem As NotesRichTextItem
Set rtitem = doc.GetFirstItem("attachment_f")
Dim files As Variant
files = ws.ope