djfield

[djfield]

Hi, I have the same issue installing on a Windows 2003 terminal server/citrix 4.5 box. All previous Citrix installations have been fine but now its getting this error.

[Deleted by administrator for user’s privacy.]

Any help is appreciated.

This is quite urgent so I have directly emailed as well.

Kind Regards
David

[This message was edited by Support 1 on January 21, 2009 at 03:23 PM.]

[djfield]

Hi,

Just so you know we hacked around the attachment checker example and came up with the code below. Its quick and dirty but it appears to do the job:

 
'1000000 = 1mb, 20000000 = 20mb

Const miWarnSize = 20000000

sub Main(Client, GWEvent)

  Dim Msg

  Set Msg = GroupWise.ComposingItem
  if Msg is Nothing then
    on error resume next
    Set Msg = Client.ClientState.CommandMessage
    if not Msg is Nothing then
      CheckAttachments(Msg.MessageID)
    end if
  else
    CheckAttachments(Msg.MessageID)
  end if
  Set Msg = nothing

end Sub

Sub CheckAttachments(MessageID)

   Dim msName
   Dim msSize

   for x = 0 to groupwise.ItemAttachmentGetCount("X00") -1
      msName = groupwise.ItemAttachmentGetName("X00", x)
      if msName <> "" then
         Do Until InStr(1, msName, "") = 0
              msName = Mid(msName, InStr(1, msName, "") + 1)
          Loop
      end if
      miSize = Utilities.FileSystem.GetSizeOfFile(groupwise.ItemAttachmentGetName("X00", x))
      msSize = cstr(round(miSize/1000000))
      if Utilities.FileSystem.GetSizeOfFile(groupwise.ItemAttachmentGetName("X00", x)) > miWarnSize then
         CancelSendDlg.CancelSendDlgLabel1.Caption = "The size of attachment " + msName + " is really large @ " + msSize + "mb are you sure you want to send it?"
         GroupWise.CancelGroupWiseEvent = CancelSend
      end if
   next

end sub

' Ask the user if they want to cancel the sending of the item.  Return a boolean
' indicating if they wish to cancel or not.
function CancelSend
  CancelSend = CancelSendDlg.ShowModal = MRCancel
end function

 

[Author]

Replies