IMAP NOOP Command

Demonstrates how to send an IMAP NOOP command using SendRawCommand.

Download Chilkat IMAP ActiveX

set imap = CreateObject("Chilkat.Imap")

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

'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  Login
success = imap.Login("****","****")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  Send a NOOP command

response = imap.SendRawCommand("NOOP")
MsgBox response

'  Disconnect from the IMAP server.
imap.Disconnect