email text

f1::

pmsg := ComObjCreate("CDO.Message")
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)
pmsg.To := "1112225555@vtext.com"
pmsg.BCC := "" ; Blind Carbon Copy, Invisible for all, same syntax as CC
pmsg.CC := ""
pmsg.Subject := "---What A Deal---"
pmsg.TextBody := "Would you like to buy something from me?"

fields := Object()
fields.smtpserver := "smtp.gmail.com" ; specify your SMTP server
fields.smtpserverport := 465
fields.smtpusessl := True
fields.sendusing := 2
fields.smtpauthenticate := 1
fields.sendusername := "testman@here.com"
fields.sendpassword := "abc123"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/conf...​"
pfld := pmsg.Configuration.Fields

For field,value in fields
pfld.Item(schema . field) := value
pfld.Update()

Loop, Parse, sAttach, |, %A_Space%%A_Tab%
pmsg.AddAttachment(A_LoopField)
pmsg.Send()