Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Delete Email
VB.NET source code example to delete email from an IMAP server.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Create an object, connect to the IMAP server, login,
' and select a mailbox.
Dim imap As New Chilkat.Imap()
imap.UnlockComponent("UnlockCode")
imap.Connect("www.mymailserver.com")
imap.Login("login", "password")
imap.SelectMailbox("Inbox")
' Get a message set containing the message IDs
' of all emails having the word Viagra in the subject
Dim msgSet As Chilkat.MessageSet
msgSet = imap.Search("SUBJECT Viagra", 1)
' Mark all the messages in the set for deletion
Dim success As Long
success = imap.SetFlags(msgSet, "Deleted", 1)
If (success = 0) Then
' If success returns 0, it failed.
MsgBox(imap.LastErrorText)
Exit Sub
End If
' Alternatively, we could loop over the emails in the
' message set and delete them one by one.
'Dim i As Long
' For i = 0 To msgSet.Count - 1
' success = imap.SetFlag(msgSet.GetId(i), msgSet.HasUids(), "Deleted", 1)
' If (success = 0) Then
' If success returns 0, it failed.
' MsgBox(imap.LastErrorText)
' Exit Sub
' End If
' Next
' Now really delete by expunging (also close the mailbox).
imap.ExpungeAndClose()
' Disconnect from the IMAP server.
imap.Disconnect()
End Sub
Important: The download for this
example does not contain the ChilkatDotNet.dll which |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.