? "Elements in Docs Array: "+UBound($docs)
"Elements in Docs Array: "=UBound($docs)
If UBound($docs)>=0
$Root = CreateObject("Outlook.Application")
? "Outlook Creation: "+@Error
"Outlook Creation: "+@Error
Outlook Creation: 0
? "Doc: "+$Doc
"Doc: "+$Doc
$docemail = ReadProfileString("\\vsclinic2\mis\Reports\docmailer2010.txt", $doc, "Email")
Doc: BOB
? "Email: "+$docemail
"Email: "+$docemail
If Len($docemail)
Email:
Next
? "Doc: "+$Doc
"Doc: "+$Doc
$docemail = ReadProfileString("\\vsclinic2\mis\Reports\docmailer2010.txt", $doc, "Email")
Doc: GEORGE
? "Email: "+$docemail
"Email: "+$docemail
If Len($docemail)
Email: george.hamm@@gmail.com
$MailItem = $Root.CreateItem(0)
? "Root Creation: "+@Error
"Root Creation: "+@Error
$MailItem.Importance=1
Root Creation: 0