IMAP NOOP Command

Demonstrates how to send an IMAP NOOP command using SendRawCommand.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim imap As New Chilkat.Imap()

Dim success As Boolean

'  Anything unlocks the component and begins a fully-functional 30-day trial.
success = imap.UnlockComponent("Anything for 30-day trial")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


'  Login
success = imap.Login("****","****")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


'  Send a NOOP command
Dim response As String
response = imap.SendRawCommand("NOOP")
MsgBox(response)


'  Disconnect from the IMAP server.
imap.Disconnect()