Downloading entire message
Dim objIMAP4, objMsg, objAttach, strEmailInfo Set objIMAP4 = CreateObject("MailBee.IMAP4") ' Unlock IMAP4 object objIMAP4.LicenseKey = "put your license key here" ' Set IMAP4 server name objIMAP4.ServerName = "mail.server.com" ' Set user credentials objIMAP4.UserName = "username" objIMAP4.Password = "password" ' Connect to the server and ' log in email account If objIMAP4.Connect Then ' Select Inbox folder If objIMAP4.SelectMailbox("Inbox") Then ' Completely retrieve a message Set objMsg = objIMAP4.RetrieveSingleMessage(1, False) If Not objIMAP4.IsError Then ' Add message headers to message's info string strEmailInfo = _ "From: " & objMsg.FromAddr & vbCrLf & _ "To: " & objMsg.ToAddr & vbCrLf & _ "Subject: " & objMsg.Subject & vbCrLf "Attach(s): " ' Add attachments' names to message's info string For Each objAttach In objMsg.Attachments ' Skip inline attachments (embedded images and so on) If Not objAttach.IsInline Then strEmailInfo = strEmailInfo & " " & objAttach.Filename End If Next ' Add body text to message's info string strEmailInfo = strEmailInfo & vbCrLf & vbCrLf & objMsg.BodyText ' Display message's info MsgBox strEmailInfo Else ' Display error information MsgBox "Error #" & objIMAP4.ErrCode & ", " & objIMAP4.ErrDesc End If Else ' Display error information MsgBox "Error #" & objIMAP4.ErrCode & ", " & objIMAP4.ErrDesc End If ' Close the connection objIMAP4.Disconnect Else ' Display error information MsgBox "Error #" & objIMAP4.ErrCode MsgBox "Server response: " & objIMAP4.ServerResponse End If
<% Dim objIMAP4, objMsg, objAttach, strEmailInfo Set objIMAP4 = Server.CreateObject("MailBee.IMAP4") ' Unlock IMAP4 object objIMAP4.LicenseKey = "put your license key here" ' Set IMAP4 server name objIMAP4.ServerName = "mail.server.com" ' Set user credentials objIMAP4.UserName = "username" objIMAP4.Password = "password" ' Connect to the server and ' log in email account If objIMAP4.Connect Then ' Select Inbox folder If objIMAP4.SelectMailbox("Inbox") Then ' Completely retrieve a message Set objMsg = objIMAP4.RetrieveSingleMessage(1, False) If Not objIMAP4.IsError Then ' Add message headers to message's info string ' ' We use Server.HTMLEncode to properly handle situation ' when HTML-unsafe chars (such as '<', '>', '&') appear ' somewehere in "From:", "To:" or "Subject:" fields strEmailInfo = _ "From: " & Server.HTMLEncode(objMsg.FromAddr) & "<br>" & _ "To: " & Server.HTMLEncode(objMsg.ToAddr) & "<br>" & _ "Subject: " & Server.HTMLEncode(objMsg.Subject) & "<br>" & _ "Attach(s): " ' Add attachments' names to message's info string For Each objAttach In objMsg.Attachments ' Skip inline attachments (embedded images and so on) If Not objAttach.IsInline Then strEmailInfo = strEmailInfo & " " & objAttach.Filename End If Next ' Add body text to message's info string strEmailInfo = strEmailInfo & "<br><br>" & objMsg.BodyText ' Display message's info Response.Write strEmailInfo Else ' Display error information Response.Write "Error #" & objIMAP4.ErrCode & ", " & objIMAP4.ErrDesc End If Else ' Display error information Response.Write "Error #" & objIMAP4.ErrCode & ", " & objIMAP4.ErrDesc End If ' Close the connection objIMAP4.Disconnect Else ' Display error information Response.Write "Error #" & objIMAP4.ErrCode & "<br>" Response.Write "Server response: " & objIMAP4.ServerResponse End If %>See Also: