Thanks Naomi. Here is the calling code from a form. The smtpmail.prg is in the poject.

**** new email
SET PROCEDURE TO smtpmail.prg

cSmtps="smtp.xtra.co.nz"  &&ALLTRIM(gst.smtps)
cBan="Wellington Apprelemaster"
cFrom="shafid@khan.co.nz"
cTo="shafid@xtra.co.nz"
cSubj="National account files from "+cban
cMsg="National account files from "+cban
cAttch="C:\khan\khan.dbf"

SendSmtpEmail(cSmtps,cFrom,cTo,cSubj,cMsg,cAttch)

How do I hook up the new class I have created "Oletest" to this form ??