Dejo el codigo que estoy utilizando es en W 2003
Código:
  
Muchas gracias 	Dim MailObj	
	archivo = Split (request("path"),"\")	
	Set MailObj=CreateObject("CDO.Message")
	MailObj.Subject=archivo(UBound(archivo))
	MailObj.From="[email protected]"
	MailObj.To=Email	
	MailObj.MimeFormatted = true	
	MailObj.BodyPart.ContentTransferEncoding = "base64"	
	MailObj.AddAttachment request("path"), archivo(UBound(archivo)), "application/pdf"	
	MailObj.Send
 
 

