CreateObject to Attachment Object conversion
CreateObject to Attachment Object conversion
(OP)
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")))
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")))
RE: CreateObject to Attachment Object conversion
RE: CreateObject to Attachment Object conversion
RE: CreateObject to Attachment Object conversion
It would be simpler to have users write up their info in Word or Excel and have them attach it instead of embedding it, no ?
Pascal.