Advertisement
datatheoz

MailBee POP3

Jan 25th, 2020
262
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 2.60 KB | None | 0 0
  1.         Using ionosPop As New Pop3Mail.Pop3(strLicenseKey)
  2.             With ionosPop
  3.                 Try
  4.                     .Connect(strPopHpst, strPopPort)
  5.                 Catch ex As Exception
  6.                     Debug.Print("Error connecting: " & ex.Message)
  7.                     Return
  8.                 End Try
  9.  
  10.                 Try
  11.                     .Login(strEmailId, strPassword)
  12.                 Catch ex As Exception
  13.                     Debug.Print("Error in login: " & ex.Message)
  14.                     Return
  15.                 End Try
  16.  
  17.                 Dim inboxMessages As Integer = .InboxMessageCount
  18.                 Debug.Print("Inbox Message Count: " & inboxMessages.ToString & Environment.NewLine)
  19.  
  20.                 If inboxMessages > 0 Then
  21.                     Dim msgCollection As MailMessageCollection
  22.  
  23.                     Try
  24.                         msgCollection = .DownloadEntireMessages(1, inboxMessages)
  25.                     Catch ex As Exception
  26.                         Debug.Print("Error in DownloadEntireMessages: " & ex.Message)
  27.                         Return
  28.                     End Try
  29.  
  30.                     For i As Integer = 0 To msgCollection.Count - 1
  31.                         Using msg As MailMessage = msgCollection(i)
  32.                             Debug.Print("From: " & msg.From.AsString)
  33.                             Debug.Print("To: " & msg.To.AsString)
  34.                             Debug.Print("Subject: " & msg.Subject)
  35.                             Debug.Print("Body: " & msg.BodyPlainText)
  36.  
  37.                             Try
  38.                                 If .DeleteMessage(i + 1) Then
  39.                                     Debug.Print($"Marked message #{i + 1} for deletion.")
  40.                                 End If
  41.                             Catch ex As Exception
  42.                                 Debug.Print("Error in DeleteMessage" & ex.Message)
  43.                             End Try
  44.  
  45.                             Debug.Print(Environment.NewLine)
  46.                         End Using
  47.                     Next
  48.                 Else
  49.                     Debug.Print("No messages were found in \Inbox")
  50.                 End If
  51.  
  52.                 If .Disconnect() Then
  53.                     If inboxMessages <> 0 Then
  54.                         Debug.Print("Successfully deleted messages.")
  55.                     End If
  56.  
  57.                     Debug.Print("Connection succesfully closed.")
  58.                 Else
  59.                     Debug.Print("Failed to delete messages.")
  60.                     Debug.Print("Error closing connection.")
  61.                 End If
  62.             End With
  63.         End Using
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement