Function SendEmail(pto, psubj, pbody) 'Send an email using CDONTS ' Const cstCdoLow = 0 ' Low importance ' Const cstCdoNormal = 1 ' Normal importance (default) ' Const cstCdoHigh = 2 ' High importance Dim oMail,strBody Set oMail = CreateObject("CDONTS.NewMail") oMail.BodyFormat=0 ' for HTML formatting oMail.MailFormat=0 oMail.From= "programmer@southbeachsoftware.com" oMail.To= pto oMail.Subject=psubj oMail.Body= pBody oMail.Importance = 2 'cstCdoHigh oMail.Send set oMail=nothing END Function>Hi,