Anexar arquivos

<%
    ' Declare Variables
    Dim objJMail, strFilePath
    ' Get absolute path for file we want to attach to email.
    strFilePath = Server.MapPath("files/eternal-youth.pdf")
    ' Create instance of JMail Object
    Set objJMail = Server.CreateObject("JMail.SMTPMail")
    ' JMail SMTP on server
    objJMail.ServerAddress = "mail.gimmick-prodo.co.uk"
    ' JMail ContentType
    objJMail.ContentType = "text/plain"
    ' Senders email address
    objJMail.Sender = "[email removido]"
    ' Senders name
    objJMail.SenderName= "Gimmick Productions Ltd"
    ' Recipients email address
    objJMail.AddRecipient("[email removido]")
    ' Email Priority (3 = Normal)
    objJMail.Priority = 3
    ' Email Title
    objJMail.Subject = "Discover the secret to eternal youth"
    ' Email Body
    objJMail.Body = "Send $50 and we'll send you the secret to eternal youth!"
    ' Attach file to email
    objJMail.AddAttachment(strFilePath)
    ' Send Email
    objJMail.Execute()
    ' Close JMail Object and Destroy it to release memory
    objJMail.Close()
    Set objJMail = Nothing    
%>