Yo lo he creado y me funciona bien.
<html>
<head>
<title></title>
</head>
<body background="images/bgfondo.jpg">
<!--#include file="upload.asp"-->
<%
Response.Expires = -1
Server.ScriptTimeout = 600
'Aqui se crear el objeto
Set Uploader = New FileUploader
Uploader.Upload()
origen = Uploader.Form("origen"): nombres = Uploader.Form("nombres")
asunto = Uploader.Form("asunto"): mensaje = Uploader.Form("mensaje")
If nombres = "" Then nombres = "Desconocido"
mensaje = "<font color=#003366 size=3 face=Arial>Mensaje Enviado Por:" & nombres & "<BR><BR>" & mensaje
If Uploader.Files.Count = 0 Then
Response.Write "File(s) not uploaded."
Else
For Each File In Uploader.Files.Items
File.SaveToDisk Server.MapPath("archivos/mail")
numSize = File.FileSize: NameFile = File.FileName
'aqui la ruta de tu arhchivo q has subido
RutaFile = "C:\Inetpub\wwwroot\mi carpeta\archivos\mail\" & NameFile
'NameFile = "../archivos/mail/" & NameFile
Next
End If
Set myMail = Server.createObject("CDO.Message")
Set Config = Server.createObject ("CDO.Configuration")
With Config
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "www.alumnos.abaco-corp.edu.pe"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
Set myMail.Configuration = Config
myMail.Subject = asunto
myMail.From = origen
myMail.To = "[email protected]"
myMail.HtmlBody = mensaje
myMail.AddAttachment RutaFile
myMail.Send
set myMail=nothing
'aqui yo borro el archivo x q ya no lo necesito
Function BorrarArchivo(archivo)
dim fs
Set fs = Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(archivo) then fs.DeleteFile(archivo)
Set fs = Nothing
End function
BorrarArchivo(RutaFile)
%>
<script>document.location.href="ver_mensaje_mail.a sp?id=2";</script>
</body>
<html>