set xpop = Server.CreateObject("Pop3Express.DeliverMail")

' 전송 상태를 확인할 때 사용
xpop.DisplayStatus = True

' ########################################
' 등록된 사용자 계정수 만큼 루프를 반복한다.

' Pop3서버에 연결한다(서버이름, 아이디, 비밀번호)
If xpop.Connect("ServerName", "Userid", "Password") = FalseThen
response.write xpop.ErrorString
Else
mcount = xpop.FetchMsgCount() ' 전체 메시지 갯수를 가져온다.
If mcount < 0 Then
response.write xpop.ErrorString ' 메일을 받아올 때 발생한 에러메시지
End If

For i = mcount To 1 Step -1
If xpop.FetchMessage(i) = False Then ' 메시지를 가져온다.
response.write xpop.ErrorString
End if

'If xpop.DeleteMessage(i) = False Then ' 메시지를 가져온후 pop3서버의 메시지를삭제
' response.write xpop.ErrorString
'End if
Next
End If

xpop.DisConnect ' 서버와의 연결을 끊는다.

For Each xmsg In xpop.Messages '메시지 컬렉션에서 메시지 객체를 가져온다.
response.write "From: " & xmsg.Size & "<br>" '메시지크기(첨부파일포함)
response.write "From: " & xmsg.From & "<br>" '보낸사람의 이름이나 이메일주소
response.write "FromEmail: " & xmsg.FromAddress & "<br>" '보낸사람의 이메일주소
response.write "FromName: " & xmsg.FromName & "<br>" '보낸사람의 이름
response.write "To: " & xmsg.To & "<br>" '메일을 받는 사람
response.write "Cc: " & xmsg.Cc & "<br>" '참조
response.write "Bcc: " & xmsg.Bcc & "<br>" '숨은 참조
'보낸날짜(년-월-일 시:분:초)
response.write "SendDate: " & xmsg.SendDate("%Y-%m-%d %H:%M:%S") & "<br>"
'받은 날짜(년/월/일 시:분:초)
response.write "ReceiveDate: " & xmsg.ReceiveDate("%Y/%m/%d %H:%M:%S") & "<br>"
response.write "Charset: " & xmsg.Charset & "<br>" '캐릭터셋(문자열형식)
response.write "EncodeType: " & xmsg.EncodeType & "<br>" '인코딩타입
response.write "Priority: " & xmsg.Priority & "<br>" '메일의 중요도
response.write "Subject: " & xmsg.Subject & "<br>" '메일의 제목

' 첨부파일이 있으면 첨부 파일을 저장한다.(첨부파일과 본문에 포함된 파일로 구분된다)
sBody = xmsg.Html
For Each xattach In xmsg.Attachments
if xattach.ContentsID = "" then '첨부 파일
xattach.SaveFile "./file/" & xattach.FileName
else ' 본문에 포함된 파일(컨텐츠 아이디가 있으면 본문에 포함된 파일)
'본문에 포함된 파일은 웹에서 보여줄 수 있는 경로에 저장한다.
xattach.SaveFile "./body_file/" & xattach.FileName
'본문에 컨텐츠 아이디를 웹 경로로 바꾼다.
sBody = replace(sBody,"cid:" & xattach.ContentsID, "./body_file/" & xattach.FileName)
sBody = replace(sBody,xattach.ContentsID, "./body_file/" & xattach.FileName)
end if
Next

If Len(xmsg.Html) > 0 Then
response.write "Html: " & sBody & "<br>" '메일의 Html로 된 본문
Else
response.write "Text: " & xmsg.Text & "<br>" '메일의 Text로 된 본문
End If
Next

' ########################################
' 루프 끝

set xpop = nothing
%>