Utilisez le composant EasyMailObject pour traiter le code source d'échange de courrier dans ASP - pièces jointes (Saveatt.asp)
<% @ Language = vbscript%>
<%
'******************************************
'Ce fichier est utilisé pour télécharger des pièces jointes
'Auteur: Awayeah
'Courriel: [email protected]
'******************************************
DIM FSO, Tempfile
Set fso = createObject ("scripting.fileSystemObject")
Tfolder dim, tname, tfile
'Const temporaryfolder = 2
'Set tfolder = fso.getSpecialFolder (TemporaryFolder)
set pop3 = session ("POP3")
'Set pop3 = createObject ("easymail.pop3.5")
'POP3.LICENSEKEY = "AWA / S19I500R1AX30C0R3100"
'Pop3.mailServer = strServer
'Pop3.account = session ("strAccount")
'Pop3.password = session ("strpassword")
'pop3.preferredBodyFormat = 1
'POP3.Timeout = 90
x = pop3.connect ()
Si x <> 0 alors
Response.Write "Erreur de connexion:" + cstr (x)
Pop3.disconnect
Terminer si
«Définissez le répertoire temporaire où la pièce jointe est stockée, utilisez un chemin absolu.
pop3.TempDirectory = "E: / webmail / Mailatt"
y = POP3.DownloadHeaders
i = clng (request.querystring ("msgid"))
j = clng (request.querystring ("attId"))
MSG = POP3.DownloadSingleMessage (i)
'Définir l'objet de message pour pointer ce message téléchargé
Set message = pop3.messages (msg)
'Message.attachments (j) .save tfolder + "/" + message.attachments (j) .FileName, 1
'Message.attachments (j) .save "c: / inetpub // wwwroot / mailatt /" + message.attachments (j) .Filename, 1
'Response.write "Fichier: ///" + "/ Mailatt /" + Message.Attachments (J) .FileName
pathName = message.attachments (j) .TempFileName
parentFolder = fso.getParentFolderName (pathname)
set Folder = fso.getfolder (parentFolder)
dir_name = dossier.name
filename = fso.getFileName (pathname)
path = "/ webmail / mailatt /" + dir_name + "/" + nom de fichier
Response.redirect Path
%>