Se sua empresa tem um servidor de email, utilize o codigo abaixo para enviar email.
Você precisa estar conectado na rede da empresa.
<% 'Enviar email utilizando o servidor de Email da sua empresa 'procure ver com o administrador da rede qual é o ip do servidor de emails 'Exemplo: " 'smtpserver="10.12.45.8" De_email = "[email protected]" Para_Email = "[email protected]" nome = session("Nome") msg="Coloque aqui o conteudo do email" texto = "--------------------------------------------"&vbcrlf texto = texto&"Nome: Testes"&vbcrlf texto = texto&"E-mail: "&De_email&vbcrlf texto = texto&"mensagem: "&msg&vbcrlf sch = "https://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 .Item(sch & "smtpserver") = "10.12.45.8" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = De_email .To = Para_Email ' .cc="cc_copia@cc_empresa.com.br" ' Cópia '.Bcc="bcc_copia@bcc_empresa.com.br" ' Cópia oculta .Subject = "Assunto do email" .TextBody = texto .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %>