<% From="jai@comcast.net" Subject="from super.." Body="testing... " Send_cdo_Mail From,"mwayfarer@gmail.com",Subject,Body Function Send_cdo_Mail2(From,Rcpt,Subject,Body) ' added 2007/12/05 sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "64.8.218.13" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = From .To = Rcpt .Subject = Subject '.TextBody = Body ' text/plain format .HTMLBody = Body ' text/html format .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing end function %>