pmsg            := ComObjCreate("CDO.Message")
pmsg.From       := """Lens Company"" <fax@LensCompany.com>"
pmsg.To         := "k*******r@gmail.com"
pmsg.BCC        := ""
pmsg.CC         := ""
pmsg.Subject    := "Lenses are Ready for " . CustRef . " (" . CustOrder . ")"
pmsg.TextBody   := Order
sAttach         := ""

fields := Object()
fields.smtpserver   := "smtp.gmail.com"
fields.smtpserverport     := 465
fields.smtpusessl      := True
fields.sendusing     := 2
fields.smtpauthenticate     := 1
fields.sendusername := "kashif@LensCompany.com"
fields.sendpassword := "PASSWORD"
fields.smtpconnectiontimeout := 60
schema := "http://schemas.microsoft.com/cdo/configuration/"

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()