* This is the modus mailing list *
Dear All,
i've tried the code that Suneel suggested us.
All is working fine only for mailbox hosted on the server,
but for customer that are using ETRN service this solutions
can't work.
The problem is on the VopMailWeb.MailSession object that need a valid
user/password conbination to connect to the quarantine folder.
I've tried to release other user message using the postmaster account
(binding
the Object to this account, and the postmaster receive the released message.
Has Anyone found a solution to use the function VopWeb.ReleaseEncrypted?
This function do not require binding on the mailbox.
Thanks in advance,
Antonio
----Suneel TestCode.asp-----
<%
Option Explicit
'=================================
' Start a Mail Session for a user
Dim VopWeb
Set VopWeb = Server.CreateObject("VopMailWeb.MailSession")
If Not IsObject(VopWeb) Then
' Error instantiating the the VOPWeb Object
Else
VopWeb.OpenMailSession
VopWeb.Authenticate "[EMAIL PROTECTED]", "password"
Select Case Err.number
Case &H00000000
' Login successfull
Case &H80060003
'Error Login Failed
Case &H80040032
'Error IMAP4 Not Supported
Case &H800406BA OR &H800406BF
'Error Server Not Available
Case Else
' Other Error
End Select
End If
'=================================
'=================================
' Create a Folder object and set it to the quarantine
Dim tmpFolder,QuarantineFolderID,QuarantineFolder
For Each tmpFolder In VopWeb.Folders
If tmpFolder.Type = 9 Then 'FOLDER_QUARANTINE
QuarantineFolderID = tmpFolder.ID
Set QuarantineFolder = tmpFolder
Exit For
End If
Next
'=================================
'=================================
' Loop through all messages in the Quarantine Folder ' Use the block above
to set the Quarantine Folder
QuarantineFolder.Sync(True)
QuarantineFolder.Envelopes.GetEnvelopeList QuarantineFolder.EnvelopesCount,
"" , 0
Dim MessageSortOrder
MessageSortOrder = QuarantineFolder.Envelopes.SortOrder
Dim CurrentMessage,CurrentIndex,CurrentMessageID,Status
Dim Subject, Recipients, From, Date, Size, QuarantineCategory, Priority
For CurrentIndex = 1 to QuarantineFolder.Envelopes.Count
set CurrentMessage = QuarantineFolder.Envelopes.Item(CurrentIndex)
CurrentMessageID = CurrentMessage.MessageID
' Following are some properties for the CurrentMessage
Status = CurrentMessage.Status
' 0 = Unread
' 1 = Read
' 2 = Replied
' 3 = Forwarded
' 4 = Deleted
Subject = CurrentMessage.Subject
Recipients = CurrentMessage.FormattedTo
From = CurrentMessage.FormattedFrom
Date = CurrentMessage.Rfc822Date
Size = CurrentMessage.FormattedSize
QuarantineCategory = CurrentMessage.Category
Priority = CurrentMessage.Priority
Response.Write CurrentIndex & "-" & CurrentMessageID & "-" & Subject
If Instr(Subject,"Test")>0 then
' Release a message based on the MessageID
QuarantineFolder.Envelopes.ReleaseMessage CurrentMessageID
Response.Write " - <B>released</B>"
End if
Response.Write "<BR>"
Next
QuarantineFolder.Sync(True)
'=================================
' Close a Mail Session
If IsObject(VopWeb) Then
VopWeb.CloseMailSession
Set VopWeb = Nothing
End If
'=================================
%>
**
To unsubscribe, send an Email to: [EMAIL PROTECTED]
with the word "UNSUBSCRIBE" in the body or subject line.
