Here is some sample PowerScript from back in 2004. The word document created is saved from a template doc previously created with specific bookmarks used to format the text.<\/p>\n
oleobject lole_word\nOLEObject lole_item, lole_attach, lole_outlook\nstring ls_file_name\nlole_word = CREATE oleobject\nlole_outlook = Create OLEObject\nTRY\n\tlole_word.connecttonewobject('word.application')\nCATCH (runtimeerror a)\n\tMessagebox('Error','Error connecting with MS Word. Process terminating.')\n\tRETURN -1\nEND TRY\nlole_word.visible = FALSE \/\/ dont want to see word<br \/>\/\/ get the Word template\nls_file = C:\\temp\\template.doc\nIf Not FileExists(ls_file) Then\n\t\/\/ERROR CONDITION\n\t li_rc = MessageBox("File Not Found", "Cannot find document template: "+ls_file+"~r"+ "Do you want to select the template?", Question!, YesNo!, 2)\n\t If li_rc = 2 Then\n\t\tReturn -1\n\t Else\n\t\tGetFileOpenName("Select Template File", ls_file, ls_file_name, ".DOC","Template Files, *.DOC")\n\t\tIf Not FileExists(ls_file_name) Then\n\t\t\t\/\/ ERROR CONDITION\n\t\t\tMessageBox("Template File Not Found","Cannot find document: "+ ls_file_name)\n\t\t return -1\n\t\tEnd If\n\t End If\nELSE\nEnd If\nTRY\n\tlole_word.Documents.open(ls_file_name)\nCATCH (runtimeerror b)\n\tMessagebox('Error','Error opening ' + ls_file_name + ' with MS Word. Process terminating.')\n\tRETURN -1\nEND TRY\n\/\/ put data into bookmarks on document\nlole_word.activedocument.bookmarks.item('vendor').range.text = ids_xdex.getitemstring(1,'vendordesc') \/\/data directly from datastore \nlole_word.activedocument.bookmarks.item('buyertext').range.text = ls_buyernote \/\/data assigned previously to variable\nlole_word.activedocument.bookmarks.item('text').range.text = ls_data\nlole_word.activedocument.bookmarks.item('legend').range.text = '* D - De Expedite, E - Expedite, C - Cancel' \/\/hard coded string data\nlole_word.activedocument.bookmarks.item('buyer').range.text = ls_name\nlole_word.activedocument.bookmarks.item('buyerfax').range.text = ls_fax\nlole_word.activedocument.bookmarks.item('buyeremail').range.text = ls_email\nis_doc = ls_file + ls_doc\n\/\/ save document before processing further\nTRY\n\tlole_word.activedocument.saveas(is_doc)\nCATCH (runtimeerror c)\n\tMessagebox('Error','Error saving document ' + is_doc + '. Process terminating.')\n\tRETURN -1\nEND TRY\nTRY\n\tlole_word.activedocument.saveas('P:\\temp.doc') \/\/ save 'dummy' so 'real' document is not locked\nCATCH (runtimeerror d)\n\tMessagebox('Error','Error saving temp document. Process terminating.')\n\tRETURN -1\nEND TRY\nlole_word.activedocument.printout()\t\/\/ print from word\n\/\/Connect to Outlook session using 'Outlook.Application'\nli_rc = lole_outlook.ConnectToNewObject("outlook.application")\nIf li_rc <> 0 Then\n\t\/\/ ERROR CONDITION\n Messagebox("Outlook Error",string(li_rc))\n Destroy lole_outlook\n Return li_rc\nEnd If\n\/\/Creates a new mail Item\nlole_item = lole_outlook.CreateItem(0)\n\/\/Set the subject line of message\nlole_item.Subject = "Expedite \/ De Expedite Notice"\n\/\/Body of mail message\nlole_item.Body = "Please review the attached file and advise: "+Char(13)\n\/\/Recipient(s) Use a semicolon to separate multiple recipients\nlole_item.To = dw_vendorfax.getitemstring(1,'contactemail')\nlole_attach = lole_item.Attachments\nlole_attach.add(is_doc) \/\/ attach the word document\nlole_item.Display \/\/displays the message\n\/\/ lole_item.Send \/\/sends the message (commented out so user can personalize the message in Outlook if they want to)\nlole_outlook.disconnectobject()\nDESTROY lole_outlook\nDESTROY lole_word<\/pre>\n\n\nUpdated March 2021<\/p>\n","protected":false},"excerpt":{"rendered":"
Here is some sample PowerScript from back in 2004. The word document created is saved from a template doc previously created with specific bookmarks used to format the text. oleobject lole_word OLEObject lole_item, lole_attach, lole_outlook string ls_file_name lole_word = CREATE oleobject lole_outlook = Create OLEObject TRY lole_word.connecttonewobject('word.application') CATCH (runtimeerror a) Messagebox('Error','Error connecting with MS Word.…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,10],"tags":[12,13,16],"_links":{"self":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/19"}],"collection":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/comments?post=19"}],"version-history":[{"count":11,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/19\/revisions"}],"predecessor-version":[{"id":1713,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/posts\/19\/revisions\/1713"}],"wp:attachment":[{"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/media?parent=19"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/categories?post=19"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/anvil-of-time.com\/wp-json\/wp\/v2\/tags?post=19"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}