Advertisement
tabnation

outlook coms

Mar 1st, 2022
176
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;v1 AHK
  2.  
  3. f1::
  4.  
  5. DetectHiddenWindows, On
  6. Process, Exist, outlook.exe
  7. If !ErrorLevel
  8. {
  9. Run outlook.exe
  10. Sleep 15000 ;can change this is want
  11. }
  12.  
  13. global Email
  14. Outlook := ComObjActive("Outlook.Application")
  15. Email := Outlook.Application.CreateItem(0)
  16. ComObjConnect(Email, "Email_")
  17. Email.SendUsingAccount := "test@testing.com"
  18. ;inputbox could go here
  19. Email.To := "thatguy@place.com"
  20. Email.Subject := "I Need your cookies"
  21. Email.Body := "Give them to me or else I cut your grass to short"
  22. Email.Display(true)
  23. ;Email_Send
  24. Email_Send(Cancel)
  25. {
  26. if InStr(Email.Body, "grass")
  27. {
  28. MsgBox, Dont cut ppls grass! Stop it.
  29. return ComObject(0xB,0)
  30. }
  31. }
  32.  
  33.  
  34.  
Advertisement
RAW Paste Data Copied
Advertisement