Create Folder and Manage Folder using IMAP4/Exchange Web Service (EWS)/WebDAV in VB 6.0¶

Option Explicit

Const MailServerPop3 = 0
Const MailServerImap4 = 1
Const MailServerEWS = 2
Const MailServerDAV = 3
Const MailServerMsGraph = 4

Private Sub Command1_Click()

    ' To create folder with Exchange Web Service, please change
    ' MailServerImap4 to MailServerEWS to MailServer.Protocol

    ' To create folder email with Exchange WebDAV, please change
    ' MailServerImap4 to MailServerDAV to MailServer.Protocol

    ' Exchange Server supports POP3/IMAP4 protocol as well, but in Exchange 2007
    ' or later version, POP3/IMAP4 service is disabled by default. If you don't want to use POP3/IMAP4
    ' to download email from Exchange Server, you can use Exchange Web Service(Exchange 2007/2010 or
    ' later version) or WebDAV(Exchange 2000/2003) protocol.

    Dim oServer As New EAGetMailObjLib.MailServer
    oServer.Server = "imap4.emailarchitect.net"
    oServer.User = "test@emailarchitect.net"
    oServer.Password = "testpassword"
    oServer.Protocol = MailServerImap4

    ' Enable SSL/TLS connection, most modern email servers require SSL/TLS by default
    oServer.SSLConnection = True
    oServer.Port = 993

    ' If your IMAP doesn't deploy SSL connection
    ' Please use
    ' oServer.SSLConnection = False
    ' oServer.Port = 143

On Error GoTo ErrorHandle:
    Dim oClient As New EAGetMailObjLib.MailClient
    oClient.LicenseCode = "TryIt"

    oClient.Connect oServer
    MsgBox "Connected"

    Dim oFolder As EAGetMailObjLib.Imap4Folder
    Set oFolder = oClient.CreateFolder(Nothing, "Test Folder")

    Dim folders
    Set folders = oClient.GetFolderList()

    Dim i
    For i = 0 To folders.Count - 1
        Dim fd As EAGetMailObjLib.Imap4Folder
        Set fd = folders.Item(i)
        MsgBox "folder: " & fd.FullPath
    Next

    oClient.DeleteFolder oFolder

    oClient.Logout

    Exit Sub

ErrorHandle:
    MsgBox Err.Description
End Sub