olapp = CreateObject('outlook.application') olmessage = olapp.CreateItem(0) WITH olmessage .subject = this.icsubject .body = this.icbody SELE curEMAIL && Email addresses from a table. Not all are good GO top lGoodMail = .f. SCAN cEmail = curEMAIL.EMAIL nAT = at('@',cEmail) nDot = rat('.', cEmail) IF nAT > 0 AND nDot > 0 AND nDot > nAT lGoodMail = .T. ELSE LOOP ENDIF ** Good email, go ahead .Recipients.add(cEmail) .Recipients(1).Type = 1 ENDSCAN sele curattach && cursor with attachments go top scan .attachments.add(fullname,1) endscan .SentOnBehalfOfName = allt(this.icSentBy) && Email address of sender IF !lGoodMail =messagebox("Email Addresses are not in correct format", 16, Email") lRet = .f. ELSE .send lRet = .t. ENDIF ENDWITH Release olmessage Release olappHTH