Hi everybody,

I wrote some code as shown below, which allows a user to create an embedded word document from a file, this works fine. But I've been asked if I can change this so that it's an attachment instead, anybody now how I can change this code to do that.

Thanks

Matt       

        Dim uiw As New NotesUIWorkSpace
    Dim wordobj As Variant, handle As Variant, csz As String
    Dim app As Variant
    Dim uid As NotesUIDocument
    Set uid = uiw.CurrentDocument
    Call uid.GotoField("letter")
    
    Call uid.CreateObject("Word Document","","mypath")
    Set handle = uid.GetObject ("Word Document")
    Call handle.activate
    Set app = handle.Application
    
Call app.ActiveDocument.Bookmarks("supplier"). _Range.InsertAfter((uid.FieldGetText("supplier")))