script para enviar e-mail

[eduardo alberto 0]

Olá a todos

 

tenho um script de validação de e-mail,

'Função de validação de e-mail 
email = request.form("email")

Function EmailValido(email)
Set objRegExp = New RegExp
objRegExp.Pattern = "^[a-z0-9._-]+\@[a-z0-9._-]+\.[a-z]{2,4}$"
objRegExp.IgnoreCase = True
EmailValido = objRegExp.Test(email)
End Function

If EmailValido(Trim(email)) = True Then
' aqui vai a ação se o email for válido

Else

' aqui vai a ação se o email for inválido

End If

mais gostaria de "colocar" dentro desse codigo um script para enviar e-mail, você sabe como eu faço isso, como faço esse script que envia e-mail?

[andreia_sp 1]

você precisa usar um componente de envio de email.. o mais comum é o CDONTS, mas você pode consultar com o teu serviço de hospedagem quais os componentes disponiveis pra isso, e entao escolher um

[eduardo alberto 0]

Muito obrigada andrei mudei todo o script todo valeu !!!