oCDO=CREATEOBJECT('CDO.Message') xCFG=oCDO.Configuration IF xCFG.Fields.Count>12 ulCDOField13=xCFG.Fields(13).Value ulCDOField15=xCFG.Fields(15).Value ELSE MESSAGEBOX([Cannot get Email or STMP info from CDO]; ,0,[Missing SMTP Server Name]) ulCDOField13=[NoEmailAccount@YourComputer.com] ulCDOField15=[NOSMTP] ENDIF