Locked Property


If the message is returned by MailBee.POP3 object, the message will be locked (Locked=True). You cannot change properties of the locked message. This guarantees that the message is exactly the same as when it came from POP3 server. If you set Locked=False, you can start changing message properties but original will be lost and the message will be reformatted (i.e. Message.RawBody will be recreated).

If the message is created in other ways (not by MailBee.POP3 or MailBee.IMAP4 object), Locked=False already, so you can immediately set the message's properties.


Value Type: Boolean
Parameters: None 

Usage example:

'Forwarding with MailBee
Dim objPOP3, objSMTP, Msg
'Using visual basic to create object
Set objPOP3 = CreateObject("MailBee.POP3")
Set objSMTP = CreateObject("MailBee.SMTP")
'Using ASP to create object
'Set objPOP3 = Server.CreateObject("MailBee.POP3")
'Set objSMTP = Server.CreateObject("MailBee.SMTP")
'In ASP use Response.Write instead of MsgBox
objPOP3.LicenseKey = "put your POP3 license key here"
objSMTP.LicenseKey = "put your SMTP license key here"
objPOP3.Connect "mailserver.com", 110, "MyName", "MyPassword"
If objPOP3.Connected Then
   If objPOP3.MessageCount > 0 Then
      Set Msg = objPOP3.RetrieveSingleMessage(1)
      If Not Msg Is Nothing Then
        Msg.Locked = False
        Msg.ToAddr = "bill@host.com"
        Msg.CCAddr = "" ' Do not send to original CC's
        Msg.Subject = "FW: " & Msg.Subject
        objSMTP.ServerName = "mail.server.com"
        If objSMTP.Connect Then
          Set objSMTP.Message = Msg
          objSMTP.Send
          objSMTP.Disconnect
        End If
      End If
   End If
   objPOP3.Disconnect
End If

See Also:

RawBody Property


Copyright 2002-2008, AfterLogic Corporation. All rights reserved.