Verwenden Sie die EasyMailObject-Komponente, um den Exchange-Mail-Quellcode in ASP-SAVE-Anhängen (SAVEATT.asp) zu verarbeiten.
< %@ Sprache = vbScript %>
<%
'**********************************************
'Diese Datei wird zum Herunterladen von Anhängen verwendet
'Autor: Awayeah
'E -Mail: [email protected]
'**********************************************
Dim fso, tempfile
Setzen Sie fso = createObject ("scripting.filesystemObject").
Dimem TFOLDER, TNAME, TFILE
'Const temporaryFolder = 2
'Set tFolder = fso.getSpecialFolder (TemporaryFolder)
Setzen Sie Pop3 = Session ("Pop3")
'Set pop3 = createObject ("EasyMail.pop3.5")
'Pop3.LICENSEKEY = "AWA/S19I500R1AX30C0R3100"
'Pop3.mailserver = strServer
'Pop3.account = session ("staccount")
'Pop3.password = session ("strPassword")
'pop3.PreferredBodyFormat = 1
'Pop3.Timeout = 90
x = pop3.connect ()
Wenn x <> 0 dann
Antwort.Write "Verbindungsfehler:" + cstr (x)
Pop3.disconnect
Ende wenn
Setzen Sie das temporäre Verzeichnis, in dem der Anhang gespeichert ist, einen absoluten Pfad.
pop3.tempDirectory = "e:/webmail/mailatt"
y = pop3.downloadHeaders
i = clng (Request.queryString ("msgid"))
J = CLNG (Request.queryString ("Attid"))
msg = pop3.downloadSingLemessage (i)
Setzen Sie das Nachrichtenobjekt, um auf diese heruntergeladene Nachricht zu verweisen
Setzen Sie Message = Pop3.Messages (MSG)
'Message.attachments (j) .Save tFolder+"/"+message.attachments (j) .filename, 1
'Message.attachments (j) .Save "c:/inetpub // wwwroot/mailatt/"+message
'Response.write "Datei: ///"+"/mailatt/"+message.attachments (j) .FileName
pathname = message.attachments (j) .TempFileName
ParentFolder = fso.getParentFoldername (Pathname)
Setzen Sie Ordner = fso.getFolder (ParentFolder)
DIR_NAME = order.name
Dateiname = fso.getFileName (Pathname)
path = "/webmail/mailatt/"+dir_name+"/"+Dateiname
Reaktion.Redirect Pfad
%>