Remove Method

Remove specified email.

long Remove([in] BSTR UIDL)

Parameters

UIDL

Identifier of the email to be removed. Each email has an unique UIDL in EmailArchitect Server.

Return Value

Return value is zero if this method succeeds; otherwise return value is non-zero.

Usage Example

Dim server, user, password, requestAddr
server = "localhost"
user = "hunter@emailarchitect.net"
password = "mypassword"
requestAddr = "192.168.0.1"

Dim oSvr
Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot")
r = oSvr.Connect( server, user, password, 0, requestAddr )
If r <> 0 Then
  WScript.Echo( "connect server failed!" )
  WScript.Quit
End If

Dim oDomains, oDomain
Set oDomains = oSvr.DomainCollection
Set oDomain = oDomains.Items(CStr(oSvr.Domain)) 

Dim oUsers, oUser
Set oUsers = oDomain.UserCollection
Set oUser = oUsers.Items(CStr(oSvr.User))

Dim oMBXs, oMBX, oTools
Set oTools = CreateObject("EmailArchitectObjects.Tools")
Set oMBXs = oUser.MBXCollection

Set oMBX = oMBXs.Items(CStr(oTools.EncodeHex("inbox")))
Dim oMails, oMail
Set oMails = oMBX.MailCollection

'remove email of which subject contains "free" keywords 
Dim i, nCount, uidl
uidl = ""
nCount = oMails.Count
For i = 0 To nCount-1
  Set oMail = oMails.Items(CLng(i))
  If InStr( 1, oMail.Subject, "free", 1 ) > 0 Then
    uidl = oMail.UIDL
    Exit For
  End If
Next

If uidl = "" Then
  WScript.Quit
End If

If oMails.Remove( uidl ) <> 0 Then
  WScript.Echo( "remove failed" )
  WScript.Quit
End If