This is the code I'm using to send emails.
Select EmailQuery
go top
SCAN for EmailQuery.email <> " "
UserName="SLHEDGE"
Password="SLHEDGE"
Recipient=EmailQuery.email
MailSubject="DPB DAILY RUN Status"
MailMsg=msg
MailObj=CreateObject("Outlook.Application")
NameSpace=MailObj.GetNameSpace("mapi")
NameSpace.Logon(UserName,Password)
MailItem=MailObj.CreateItem(0)
MailItem.Recipients.Add(Recipient)
MailItem.Subject=MailSubject
MailItem.Body=MailMsg
MailItem.Send
NameSpace.Logoff
WRITE_TO_LOG("Email just sent to "+Recipient)
Loop
ENDSCAN