Advertisement
tabnation

email text

Feb 26th, 2021
150
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.00 KB | None
  1. f1::
  2.  
  3. pmsg := ComObjCreate("CDO.Message")
  4. pmsg.From := """StreamRight"" StreamRight@gmail.com" ;Youtube does not allow angled brackets so just add them at start and end of the email address (greater than and less than symbols)
  5. pmsg.To := "1112225555@vtext.com"
  6. pmsg.BCC := "" ; Blind Carbon Copy, Invisible for all, same syntax as CC
  7. pmsg.CC := ""
  8. pmsg.Subject := "---What A Deal---"
  9. pmsg.TextBody := "Would you like to buy something from me?"
  10.  
  11. fields := Object()
  12. fields.smtpserver := "smtp.gmail.com" ; specify your SMTP server
  13. fields.smtpserverport := 465
  14. fields.smtpusessl := True
  15. fields.sendusing := 2
  16. fields.smtpauthenticate := 1
  17. fields.sendusername := "testman@here.com"
  18. fields.sendpassword := "abc123"
  19. fields.smtpconnectiontimeout := 60
  20. schema := "http://schemas.microsoft.com/cdo/conf...​"
  21. pfld := pmsg.Configuration.Fields
  22.  
  23. For field,value in fields
  24. pfld.Item(schema . field) := value
  25. pfld.Update()
  26.  
  27. Loop, Parse, sAttach, |, %A_Space%%A_Tab%
  28. pmsg.AddAttachment(A_LoopField)
  29. pmsg.Send()
Advertisement
RAW Paste Data Copied
Advertisement