<%


'*******************************************
'***  	   Convert Emails Date		****
'*******************************************

	Function CheckForMail(intUserID)
	    Dim Mailer
	    Dim strError
	    Dim iLoop
	    Dim iAtt
	    Dim intEmailID

	    Dim strEmailRecipients
	    Dim strEmailCarbonCopy
	    Dim strEmailFromName
	    Dim strEmailFromAddress
	    Dim strEmailFromReplyTo
	    Dim strEmailSubject
	    Dim strEmailBody
	    Dim intEmailPriority
	    Dim intEmailSize
	    Dim dtmEmailDate
	    Dim intEmailStatus
	    Dim strEmailHeaders
	    Dim strEmailType


		Set Mailer = Server.CreateObject("POP3svg.Mailer")
		Mailer.RemoteHost = "mail.youdomain.com"
		Mailer.UserName   = "emailaddress@yourdomain.com"
		Mailer.Password   = "password"
		Mailer.MailDirectory = Server.MapPath("/download-folder/")
		Mailer.OpenPop3

		  'Find out how many messages there are
		  Dim iMessages
		  iMessages = Mailer.MessageCount


	    if iMessages > 0 then
		  'Loop through all of the available messages
		  For iLoop = 1 to iMessages
		    If Mailer.Retrieve(iLoop) then

			'Retreave info
			'-------------------
				strEmailRecipients		= Trim(Mailer.Recipients)
				strEmailCarbonCopy		= Trim(Mailer.CC)
				strEmailFromName		= Trim(Mid(Mailer.FromName, 1, 50))
				strEmailFromAddress		= Trim(Mid(Mailer.FromAddress, 1, 50))
				strEmailFromReplyTo		= Trim(Mid(Mailer.GetHeaderField("Reply-To"), 1, 50))
				strEmailSubject			= Trim(Mid(Mailer.Subject, 1, 200))
				strEmailBody			= Trim(Mailer.BodyText)
				intEmailPriority		= Mailer.Priority
				intEmailSize			= Trim(Mailer.GetHeaderField("Size"))
				dtmEmailDate			= Trim(ConvertDate(Mailer.Date))
				intEmailStatus			= 1
				strEmailType			= Trim(Mailer.GetHeaderField("Content-Type"))


			'Add to Database
			'-------------------
				strSQL = "SELECT * FROM " & strDBTable & "Emails;"
				rsCommon.Open strSQL, adoCon,3,3
				  rsCommon.AddNew

					rsCommon("Author_ID")		= intUserID
					rsCommon("Email_To")		= strEmailRecipients
					rsCommon("Email_CC")		= strEmailCarbonCopy
					rsCommon("Email_FromName")	= strEmailFromName
					rsCommon("Email_FromAddress")	= strEmailFromAddress
					rsCommon("Email_FromReply")	= strEmailFromReplyTo
					rsCommon("Email_Subject")	= strEmailSubject
					rsCommon("Email_Body")		= strEmailBody
					rsCommon("Email_Priority")	= intEmailPriority
					rsCommon("Email_Size")		= intEmailSize
					rsCommon("Email_Date")		= dtmEmailDate
					rsCommon("Email_Status")	= intEmailStatus
					rsCommon("Email_Header")	= strEmailHeaders
					rsCommon("Email_Type")		= strEmailType

				  rscommon.requery

					intEmailID			= rsCommon("Email_ID")

				  rsCommon.Update
				rsCommon.Close

			if Mailer.AttachmentCount > 0 then
			    for iAtt = 1 to Mailer.AttachmentCount
				if Mailer.GetAttachmentInfo (iAtt) then
				     call Mailer.SaveAttachmentToFile(iAtt,iAtt & "-" & "-" & now() & Mailer.AttFileName)

					strSQL = "SELECT * FROM " & strDBTable & "Attachments;"
					rsCommon.Open strSQL, adoCon,3,3
					  rsCommon.AddNew
						rsCommon("Author_ID")			= intUserID
						rsCommon("Email_ID")			= clng(intEmailID)
						rsCommon("Attachment_ContentType")	= Mailer.AttContentType
						rsCommon("Attachment_FileName")		= Mailer.AttFileName
						rsCommon("Attachment_Path")		= "/download-folder/" & iAtt & "-" & now() & "-" & Mailer.AttFileName
						rsCommon("Attachment_Size")		= Mailer.AttFileSize
					  rsCommon.Update
					rsCommon.Close
				end if
			    Next 'iAtt
			end if

			Mailer.Delete(iLoop)

		    End If
		  Next 'iLoop
	    end if
		Mailer.ClosePop3
		set Mailer = nothing

		CheckForMail	= strError
	End Function

'*******************************************
'***  	   Convert Emails Date		****
'*******************************************

	Function ConvertDate(sDate)
		Dim aDates, sDay, sMonth, sYear, sTime
		aDates = Split(sDate, " ")
		sMonth = aDates(2)
		sDay = CInt(aDates(1))
		sYear = CInt(aDates(3))
		sTime = aDates(4)
		ConvertDate = CDate(sMonth & " " & sDay & ", " & sYear & " " & sTime)
	End Function




%>