AutoHotkey Community

/* Example usages
Outlook_SaveAttachment("\.tif$",true) ; will open the first attached .tif file
Outlook_SaveAttachment("important info\.txt"
 ,false
 ,"C:\Documents and Settings\sinkfaze\Desktop\"
 ,"itsmebaloney.txt") ; will rename 'important info.txt' to 'itsmebaloney.txt' and save it to the desktop
*/

Outlook_SaveAttachment(rStr,open=false,dir="",rename="") {

   COM_CoInitialize()
   olItem:=COM_GetActiveObject("Outlook.Application")
   olItem:=COM_Invoke(olItem,"ActiveInspector.CurrentItem.Attachments")
   Loop % COM_Invoke(olItem,"Count") {
      att:=COM_Invoke(olItem,"Item",A_Index)
      if RegExMatch(name:=COM_Invoke(att,"DisplayName"),rStr)
         break
   }
   COM_Invoke(att,"SaveAsFile",(!dir ? A_Temp : dir) (!rename ? name : rename))
   COM_Release(name),COM_Release(att),COM_Release(olItem)
   COM_CoUninitialize()
   if open
      Run % (!dir ? A_Temp : dir) (!rename ? name : rename)
   return

}

Word_TextBox(Left,Top,Width, Height,Text,Aligment){
   Word   := Word_Attach("A")
   ActiveDocument := com_invoke(Word,"ActiveDocument")
   Shape          := com_invoke(ActiveDocument,"Shapes")
   AddTextBox     := com_invoke(Shape,"AddTextBox",1, Left, Top, Width, Height)
   ;TextBox line
      Line := com_invoke(AddTextBox,"Line")
      COM_Invoke(Line,"Visible",0)
   ;TextBox fill
      Fill    := COM_Invoke(AddTextBox, "Fill")
       COM_Invoke(Fill,"Visible",0)
   TextFrame := com_invoke(AddTextBox,"TextFrame")
        ;TextBox margins
      COM_Invoke(TextFrame,"MarginBottom=", 0)
      COM_Invoke(TextFrame,"MarginLeft=", 0)
      COM_Invoke(TextFrame,"MarginRight=", 0)
      COM_Invoke(TextFrame,"MarginTop=", 0)
   TextRange := com_invoke(TextFrame,"TextRange")
   ;Text aligment in textbox (center)
      Paragraphs     := COM_Invoke(TextRange, "Paragraphs", 1)
      COM_Invoke(Paragraphs,"Alignment=",Aligment)
   
   Text      := com_invoke(TextRange,"Text=",Text)
   ;Fix font property
      Font := COM_Invoke(TextRange,"Font")
      COM_Invoke(Font,"Name=", "Tahoma")
      COM_Invoke(Font,"Size=", 10)
      COM_Invoke(Font,"Bold=", False)
      COM_Invoke(Font,"Italic=", False)
      COM_Invoke(Font,"AllCaps=", False)
   COM_Release(ActiveDocument)
   COM_Release(Word)
   COM_Release(Shapes)
   COM_Release(AddTextBox)
   COM_Release(TextRange)
}

*PgDn:: PPT_Move("Next")
*PgUp:: PPT_Move("Previous")

Word_Replace(FindText,ReplaceWith){
 Word := Word_Attach("A")
  Selection   := COM_Invoke(Word,"Selection")
  Find        := COM_Invoke(Selection,"Find")
  Replacement := com_invoke(Find,"Replacement")
    com_invoke(Find,"Text=",FindText)
    com_invoke(Find,"ClearFormatting")
    com_invoke(Replacement,"Text=",ReplaceWith)
    com_invoke(Replacement,"ClearFormatting")
  Execute := com_invoke(Find,"Execute",FindText,1,2)
  COM_Release(Execute)
  COM_Release(Find)
  COM_Release(Selection)
  COM_Release(Word)
}

com_CoInitialize()
Word_Open()
txt := "abc def ghi def abc"
Word_InsertText(txt)
FindText = def
ReplaceWith = xxx
Word_Replace(FindText,ReplaceWith)
com_CoUnInitialize()
exitapp

com_CoInitialize()
Word_Open()
Word_InsertText("123456")
com_CoUnInitialize()

Outlook_SetEmail(NewMail="true",To="",Subj="",Body="",Cc="",Bcc="",Att="")

Outlook_SetEmail(true,"chris@autohotkey.com","AutoHotkey","AutoHotkey RULZ!!!",0,0,2)

InputBox, n
 , Outlook_SaveAttachments
 , How many attachments?
 , , 300, 151
if (ErrorLevel || !n || RegExMatch(n,"^\D+$")) ; if user presses cancel, var is left blank or if var is non-digits
  return
Loop % n { ; will loop for number of attachments
  InputBox, s
   , Outlook_SaveAttachments
   , Enter a match string for the attachment.
  if (ErrorLevel || !s) ; if user presses cancel or var is left blank
    break
  Outlook_SaveAttachment(s,false,<< some directory (optional) >>,<< some new file name (optional) >>)
}
return

FileRead, test, C:test.txt
COM_CoInitialize()
Word_Open()
Bold := True
FontSize := 10
Word_InsertText("%test%")
COM_CoUnInitialize()
ExitApp

Word_InsertText("%test%") ; incorrect
Word_InsertText(test) ; correct

Word_Open()