Classic ASP
Classic ASP
Save Email Attachments to Filesystem
Saves email attachments to a directory.Chilkat Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
set email = Server.CreateObject("Chilkat.Email")
' Load an email object containing attachments.
' This .eml can be downloaded from:
' http://www.example-code.com/testData/HtmlEmail.eml
success = email.LoadEml("HtmlEmail.eml")
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>"
Response.End
End If
' If OverwriteExisting is turned on, files with the same
' name are overwritten. If turned off, new/unique filenames
' are automatically generated. The filenames actually saved
' are accessible via the GetAttachmentFilename method.
email.OverwriteExisting = 1
' Save all attachments to the "myAttachments" subdirectory
' found under the calling process's current working directory.
' This directory is automatically created if it does not already
' exist.
success = email.SaveAllAttachments("myAttachments")
If (success <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( email.LastErrorText) & "</pre>"
Response.End
End If
' List the attachment filenames:
For i = 0 To email.NumAttachments - 1
Response.Write "<pre>" & Server.HTMLEncode( email.GetAttachmentFilename(i)) & "</pre>"
Next
%>
</body>
</html>