* This is the modus mailing list *
OK, I had a look through the code and it appears that the Message List does not use an
encrypted Message ID. Instead it uses the MessageID from the current Message.
Unfortunately Vircom do not provide any documentation for their COM objects so we
can't find the Methods or Properties too easily, we have to dig around their existing
code. However, using this we can actually create our own one-click release mechanism
very easily, however the user login information would need to be part of this and
hence you should write a small encryption routine.
The process you would follow is to generate your one click release page, this would
create a link which includes the following information:
EmailAddress
Password
MessageID
The Release page would then create an instance of the VopMailWeb.MailSession and
release the Message.
Here are some relevant code blocks that should allow you to accomplish what you need
(I would be interested in seeing the final product):
'=================================
' Start a Mail Session for a user
Set VopWeb = Server.CreateObject("VopMailWeb.MailSession")
If Not IsObject(VopWeb) Then
' Error instantiating the the VOPWeb Object
Else
VopWeb.OpenMailSession
VopWeb.Authenticate EmailAddress, 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
For Each tmpFolder In VopWeb.Folders
If tmpFolder.Type = FOLDER_QUARANTINE Then
QuarantineFolderID = tmpFolder.ID
QuarantineFolderPath = 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
Dim CurrentMessage
For CurrentIndex = 1 to QuarantineFolder Folder.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
To = CurrentMessage.FormattedTo
From = CurrentMessage.FormattedFrom
Date = CurrentMessage.Rfc822Date
Size = CurrentMessage.FormattedSize
QuarantineCategory = CurrentMessage.Category
Priority = CurrentMessage.Priority
Next
'=================================
'=================================
' Release a message based on the MessageID
QuarantineFolder.Envelopes.ReleaseMessage CurrentMessageID
'=================================
'=================================
' Close a Mail Session
If IsObject(VopWeb) Then
VopWeb.CloseMailSession
Set VopWeb = Nothing
End If
'=================================
---
Time is money, money is the root of all evil, and knowledge is power. Therefore,
procrastination is the key to world peace.
(--------------------------------) {((((((
( Suneel Jhangiani ) /_ _ )
( Technical Director ) ( . . )
( Inter-Computer Technology Ltd. ) ( / )
(----------------------------------oOOo------------oOOo----)
( 40 James Street Tel: +44 (0) 20 7486 9601 )
( London W1U 1EU Fax: +44 (0) 7050 678 978 )
( United Kingdom Email: [EMAIL PROTECTED] )
( Website: http://www.inctech.com )
(----------------------------------------------------------)
-----Original Message-----
From: Antonio Giannetto [mailto:[EMAIL PROTECTED]
Sent: 12 December 2003 17:04
To: [EMAIL PROTECTED]
Subject: [Modus] Custom ASP Page for Release Message from quarantine
* This is the modus mailing list *
Hi Suneel,
when i browse the Quarantine from the WebMail, how the encrypted
MessageID is retrieved?
Thanks in advance,
Antonio
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Suneel Jhangiani
> Sent: venerd� 12 dicembre 2003 17.56
> To: [EMAIL PROTECTED]
> Subject: [Modus] Custom ASP Page for Release Message from quarantine
>
> * This is the modus mailing list *
>
> Hi Antonio,
>
> The Reports generated include an Encrypted Identifier which
> the VOPWeb.ReleaseEncrypted routine decrypts. You would need
> to know the encryption used by Vircom to be able to present
> the user with a mechanism to release these messages.
>
> ---
> On a child's Superman costume: Wearing of this garment does
> not enable you to fly'.
>
>
> (--------------------------------) {((((((
> ( Suneel Jhangiani ) /_ _ )
> ( Technical Director ) ( . . )
> ( Inter-Computer Technology Ltd. ) ( / )
> (----------------------------------oOOo------------oOOo----)
> ( 40 James Street Tel: +44 (0) 20 7486 9601 )
> ( London W1U 1EU Fax: +44 (0) 7050 678 978 )
> ( United Kingdom Email: [EMAIL PROTECTED] )
> ( Website: http://www.inctech.com )
> (----------------------------------------------------------)
>
>
>
>
> -----Original Message-----
> From: Antonio Giannetto [mailto:[EMAIL PROTECTED]
> Sent: 12 December 2003 15:42
> To: [EMAIL PROTECTED]
> Subject: [Modus] Custom ASP Page for Release Message from quarantine
>
> * This is the modus mailing list *
>
> Dear all,
>
> i want to develop a custom Quarantine Report directly
> accessible from the Web, i found the quarantine message list
> in the table "tblMsgCatalog" but i don't uderstand how can I
> retrieve the right message ID to release the messages.
>
> In the page ProcessRelease.asp i see this method called :
> ...
> VopWeb.ReleaseEncrypted(Request("id"), Request("domain")) ...
>
> Anyone know how can I retrieve the right MessageID?
>
> I've tried whit the MessageId in the Table "tblMsgCatalog"
> without success.
>
>
> Thanks in advance,
> Antonio
>
>
> **
> To unsubscribe, send an Email to: [EMAIL PROTECTED]
> with the word "UNSUBSCRIBE" in the body or subject line.
>
>
>
> **
> To unsubscribe, send an Email to: [EMAIL PROTECTED]
> with the word "UNSUBSCRIBE" in the body or subject line.
**
To unsubscribe, send an Email to: [EMAIL PROTECTED]
with the word "UNSUBSCRIBE" in the body or subject line.
**
To unsubscribe, send an Email to: [EMAIL PROTECTED]
with the word "UNSUBSCRIBE" in the body or subject line.
