Visual Basic 6.0

IMAP NOOP Command

Demonstrates how to send an IMAP NOOP command using SendRawCommand. Visual Basic 6.0

Dim success As Long
success = 0

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim imap As New ChilkatImap

' Connect to an IMAP server.
' Use TLS
imap.Ssl = 1
imap.Port = 993
success = imap.Connect("imap.example.com")
If (success <> 1) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Login
success = imap.Login("****","****")
If (success <> 1) Then
    Debug.Print imap.LastErrorText
    Exit Sub
End If

' Send a NOOP command
Dim resp As String
resp = imap.SendRawCommand("NOOP")
Debug.Print resp

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