|
Los campos marcados con * son obligatorios.
<% if ( strNombre = "" ) then %>
<% else %>
<%
sub subEnviarEmail ( strTo, strCC, strBCC, strFrom, strSubject, strBody )
strServidor = request.ServerVariables ("SERVER_NAME")
if ( strServidor = "gporras" ) then
response.write ( "Se envia correo:" )
response.write ( "
" )
response.write ( "From: " & strFrom )
response.write ( "
" )
response.write ( "To: " & strTo )
response.write ( "
" )
response.write ( "CC: " & strCC )
response.write ( "
" )
response.write ( "BCC: " & strBCC )
response.write ( "
" )
response.write ( "Subject: " & strSubject )
response.write ( "
" )
response.write ( "Body:
" & strBody )
else
'Email por CDONTS (XO)
'dim objNewMail
'set objNewMail = Server.CreateObject ("CDONTS.NewMail")
'objNewMail.To = strTo
'objNewMail.CC = strCC
'objNewMail.BCC = strBCC
'objNewMail.From = "Sitio Web Forjas Bolivar <" & strFrom & ">"
'objNewMail.Subject = strSubject
'objNewMail.Body = strBody
'objNewMail.Send()
'set objNewMail = nothing
'Email por Persits.MailSender
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp1.epm.net.co"
Mail.From = strFrom 'Cuenta válida de epm.net
Mail.AddAddress strTo
Mail.Subject = strSubject
Mail.Body = strBody
Mail.Send
Set Mail = nothing
end if
end sub
sub subEnviarEmailAttach ( strTo, strCC, strBCC, strFrom, strSubject, strBody, strAttachs, strDirectorio )
strServidor = request.ServerVariables ("SERVER_NAME")
if ( strServidor = "gporras" ) then
response.write ( "Se envia correo:" )
response.write ( "
" )
response.write ( "From: " & strFrom )
response.write ( "
" )
response.write ( "To: " & strTo )
response.write ( "
" )
response.write ( "CC: " & strCC )
response.write ( "
" )
response.write ( "BCC: " & strBCC )
response.write ( "
" )
response.write ( "Subject: " & strSubject )
response.write ( "
" )
response.write ( "Attachs: " & strAttachs )
response.write ( "
" )
response.write ( "Directorio: " & strDirectorio )
response.write ( "
" )
response.write ( "Body:
" & strBody )
else
'Email por CDONTS (XO)
dim objNewMail
set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.To = strTo
objNewMail.CC = strCC
objNewMail.BCC = strBCC
objNewMail.From = "respuestaslaborales.com <" & strFrom & ">"
objNewMail.Subject = strSubject
objNewMail.Body = strBody
'Attachs
arrAttachs = split ( strAttachs, ",")
numAttachs = ubound ( arrAttachs )
for i = 0 to numAttachs
objNewMail.AttachFile ( server.MapPath ( strDirectorio ) & "\" & trim ( arrAttachs (i) ) )
next
objNewMail.Send()
set objNewMail = nothing
end if
end sub
sub subEnviarEmailHTML ( strTo, strCC, strBCC, strFrom, strSubject, strBody, numTipoCorreo )
strServidor = request.ServerVariables ("SERVER_NAME")
if ( strServidor = "gporras" ) then
response.write ( "Se envia correo:" )
response.write ( "
" )
response.write ( "From: " & strFrom )
response.write ( "
" )
response.write ( "To: " & strTo )
response.write ( "
" )
response.write ( "CC: " & strCC )
response.write ( "
" )
response.write ( "BCC: " & strBCC )
response.write ( "
" )
response.write ( "Subject: " & strSubject )
response.write ( "
" )
select case numTipoCorreo
case "1"
response.write ( "Tipo Correo: Texto Plano" )
case "2"
response.write ( "Tipo Correo: HTML" )
end select
response.write ( "
" )
response.write ( "Body:
" & strBody )
else
'Email por CDONTS (XO)
dim objNewMail
set objNewMail = Server.CreateObject ("CDONTS.NewMail")
objNewMail.To = strTo
objNewMail.CC = strCC
objNewMail.BCC = strBCC
objNewMail.From = "respuestaslaborales.com <" & strFrom & ">"
objNewMail.Subject = strSubject
if ( numTipoCorreo = "2" ) then
'Correo en HTML
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
end if
objNewMail.Body = strBody
objNewMail.Send()
set objNewMail = nothing
end if
end sub
%>
<%
strFrom = "comex@umi.com.co"
strTo = "comex@umi.com.co"
strCC = ""
strBCC = ""
strSubject = "Comentario desde el sitio web"
strBody = strNombre & " escribió el siguiente mensaje: " & vbcrlf & vbcrlf
strBody = strBody & " Email: " & strEmail & vbcrlf
strBody = strBody & " Empresa: " & strEmpresa & vbcrlf
strBody = strBody & " País: " & strPais & vbcrlf
strBody = strBody & " Ciudad: " & strCiudad & vbcrlf
strBody = strBody & " Dirección: " & strDireccion & vbcrlf
strBody = strBody & " Teléfono: " & strTelefono & vbcrlf
strBody = strBody & " Fax: " & strFax & vbcrlf
strBody = strBody & vbcrlf
strBody = strBody & "Mensaje: " & vbcrlf & strMensaje
call subEnviarEmail ( strTo, strCC, strBCC, strFrom, strSubject, strBody )
%>
<%= strNombre %>, muchas gracias por escribirnos.
Muy pronto nos contactaremos con usted.
<% end if %>
|
Solicite
la visita de un asesor comercial