EasyMailObject 구성 요소를 사용하여 ASP에서 Exchange Mail 소스 코드를 처리합니다-Save Attachments (Seaitt.asp)
< %@ language = vbscript %>
<%
'**************************************
'이 파일은 첨부 파일을 다운로드하는 데 사용됩니다
'저자 : 멀리
'이메일 : [email protected]
'**************************************
희미한 fso, tempfile
set fso = createobject ( "scripting.filesystemobject")
희미한 tfolder, 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 ()
x <> 0이면
응답. "연결 오류 :" + cstr (x)
pop3.disconnect
끝 If
'첨부 파일이 저장된 경우 임시 디렉토리를 설정하고 절대 경로를 사용하여 IUSR_Host 계정에 충분한 권한이 부여되며 웹에서 공유했습니다.
pop3.tempdirectory = "e :/webmail/mailatt"
y = pop3.download 헤드
i = clng (request.querystring ( "msgid"))
j = clng (request.querystring ( "attid"))
msg = pop3. downloadsinglemessage (i)
'다운로드 된 메시지를 가리 키도록 메시지 객체를 설정하십시오
메시지 설정 = 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 "파일 : ///"+"/mailatt/"+message.attachments (j) .filename
pathname = message.attachments (j) .tempfilename
Parentfolder = fso.getParentFolderName (PathName)
set 폴더 = fso.getfolder (Parentfolder)
dir_name = folder.name
filename = fso.getfilename (pathname)
Path = "/WebMail/Mailatt/"+dir_name+"/"+filename
응답. 편집 경로
%>