Use o componente EasyMailObject para processar o Código Fonte de Correio do Exchange em ASP-Anexos para salvar (SaveTt.asp)
< %@ Idioma = vbscript %>
<%
'********************************************
'Este arquivo é usado para baixar anexos
Autor: Awayeah
'E -mail: [email protected]
'********************************************
Dim FSO, tempfile
Set fso = createObject ("script.filesystemoBject")
Dim TFolder, tname, tfile
'Const TemporaryFolder = 2
'Set tfolder = fso.getSpecialFolder (TemporaryFolder)
Definir pop3 = sessão ("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 ()
Se x <> 0 então
Response.Write "Erro de conexão:" + cstr (x)
POP3.Disconnect
Final se
'Defina o diretório temporário em que o anexo é armazenado, use um caminho absoluto.
POP3.TempDirectory = "E:/Webmail/Mailatt"
y = pop3.DownloadHeaders
i = clng (request.QueryString ("msgid"))
j = clng (request.QueryString ("Attid"))
msg = pop3.DownloadSingLemessage (i)
'Defina o objeto da mensagem para apontar para essa mensagem baixada
Definir mensagem = 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 "arquivo: ///"+"/Mailatt/"+message.attachments (j) .filename
pathname = message.attachments (j) .tempfileName
parentfolder = fso.getParentFolderName (PathName)
Definir pasta = fso.getFolder (parentfolder)
DIR_NAME = FASTER.NAME
nome do arquivo = fso.getfilename (nome do caminho)
Path = "/Webmail/Mailatt/"+DIR_NAME+"/"+NOME FILE
Caminho de resposta
%>