você tem que ver se o componente de envio de email esta instalado..!! e também preencher estes campos objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = xx objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = xx objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = xx