Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Using ionosPop As New Pop3Mail.Pop3(strLicenseKey)
- With ionosPop
- Try
- .Connect(strPopHpst, strPopPort)
- Catch ex As Exception
- Debug.Print("Error connecting: " & ex.Message)
- Return
- End Try
- Try
- .Login(strEmailId, strPassword)
- Catch ex As Exception
- Debug.Print("Error in login: " & ex.Message)
- Return
- End Try
- Dim inboxMessages As Integer = .InboxMessageCount
- Debug.Print("Inbox Message Count: " & inboxMessages.ToString & Environment.NewLine)
- If inboxMessages > 0 Then
- Dim msgCollection As MailMessageCollection
- Try
- msgCollection = .DownloadEntireMessages(1, inboxMessages)
- Catch ex As Exception
- Debug.Print("Error in DownloadEntireMessages: " & ex.Message)
- Return
- End Try
- For i As Integer = 0 To msgCollection.Count - 1
- Using msg As MailMessage = msgCollection(i)
- Debug.Print("From: " & msg.From.AsString)
- Debug.Print("To: " & msg.To.AsString)
- Debug.Print("Subject: " & msg.Subject)
- Debug.Print("Body: " & msg.BodyPlainText)
- Try
- If .DeleteMessage(i + 1) Then
- Debug.Print($"Marked message #{i + 1} for deletion.")
- End If
- Catch ex As Exception
- Debug.Print("Error in DeleteMessage" & ex.Message)
- End Try
- Debug.Print(Environment.NewLine)
- End Using
- Next
- Else
- Debug.Print("No messages were found in \Inbox")
- End If
- If .Disconnect() Then
- If inboxMessages <> 0 Then
- Debug.Print("Successfully deleted messages.")
- End If
- Debug.Print("Connection succesfully closed.")
- Else
- Debug.Print("Failed to delete messages.")
- Debug.Print("Error closing connection.")
- End If
- End With
- End Using
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement