Support 3

[Support 3]

We have received your email and will contact you directly. We will publish any findings in this thread.

Regards,
Advansys Support

[Support 3]

Please see below the source code of the “Quick Send” applet. You need to copy the source code and paste into an applet. You need the Formativ Creator or Studio (http://www.advansyscorp.com/formativ_framework.htm) to create and manage the applet. Please note, Advansys do not provide support for the example and cool solutions solution. Hope this helps.

'-------------------------------------------------------------------------------
' Formativ Solutions for GroupWise
' Quick Send
' Designed by: Formativ Business Solution Team
' Copyright (c) 2003 Advansys Pty Limited (www.advansyscorp.com)
' Version 1.0
' 
' DESCRIPTION:
' Sends one copy of the current open email message to each recipient email
' address stored in a flat text file.
' 
' 
' NOTES:
' - The text file must contain one email address per line. 
' - The email address must contain the '@' character.  The applet ignores 
'   address(s) not containing the '@' character.
' - Run the applet by pressing the button that appears on a composing email
'   message toolbar.
' - You must save the composing email message before you can run the applet.
' - The applet has been tested with GroupWise 6.5.1 and 6.0.2
' 
' 
' HISTORY:
' 19 June 2003 MA: Initial release
'
' 2006-08-08  MA 1.0.1
'     - Utilities.doevents added when sending and cloning messages.
'       We need to forces Windows to process any pending messages in the Windows application message queue
'       when sending large groups.
'-------------------------------------------------------------------------------


const IDS_CAPTION               = "Formativ Business Solutions"
const IDS_NO_MSG_VIEW           = "An error occurred while locating the saved message.  Close all message(s) views, then open the master draft message and run the applet again."
const IDS_SAVE_MSG              = "Please save the message (CTRL+S) and run the applet again to proceed."
const IDS_EMPTY_FILE            = "The selected recipients file is empty."
const IDS_CONFIRMATION          = " email messages will be generated.  Do you want to proceed?"
const IDS_MSG_BOX_TYPE          = "The message is not draft.  Please run the applet from a composing or draft message toolbar."
const IDS_INVALID_MSG           = "Unable to access the message.  Please save and close the message, then open the message and try again."
const IDS_FILE_SELECT_DLG       = "Select the address text file..."
const IDS_INVALID_ADDRESS       = "This file does not contains any valid email addresses."
const IDS_STATUS_INIT           = "Initializing...[Please wait]"
const IDS_STATUS_SEND           = "Sending Messages...[Please wait]"
const IDS_MESSAGES_SENT         = "Total messages sent: "

'-->Flexalock
dim gStatusDlg


'-------------------------------------------------------------------------------
' Main Line processing 
'-------------------------------------------------------------------------------
Sub Main(Client, GWEvent)
  
  dim iRecipientsList

  on error resume next
  
  set gStatusDlg = Utilities.NewStatusDialog
    
  iMessageID = GroupWise.ItemMessageIDFromView
  
  ' Do we have a valid message ID?
  if not IsValidMessageID(iMessageID) then
    exit sub
  end if  
  
    
  ' Find the message 
  set iMsg = groupwise.account.GetMessage(iMessageID) 
  
  ' Do we have the message object?
  if not isobject(iMsg) then
    gStatusDlg.hide
    call msgbox(IDS_INVALID_MSG, vbCritical, IDS_CAPTION)
    exit sub
  end if
  
  ' Make sure the message type is draft
  if (iMsg.BoxType <> fgwDraft) then
    gStatusDlg.hide
    call msgbox(IDS_MSG_BOX_TYPE, vbCritical, IDS_CAPTION)
    exit sub  
  end if

  set iRecipientsList = utilities.stringlist
  
  ' Select the addresses list file and validate the addresses  
  if not SelectRecipientsList(iRecipientsList) then
    exit sub
  end if
  
  gStatusDlg.hide
  
  ' Confirmation message box before sending the message to the recipients
  if (MsgBox (iRecipientsList.count & IDS_CONFIRMATION, vbOKCancel+vbInformation, IDS_CAPTION) = vbCancel) then
    exit sub
  end if
  
  
  ' Send messages
  call SendMessage(iRecipientsList, iMsg)  
  
  Set iMsg = nothing  
    
End Sub



'-------------------------------------------------------------------------------
' Send the message to the recipients
'-------------------------------------------------------------------------------
sub SendMessage(aList, aMsg)
  
  dim x
  dim iDlg
  dim iAddress
  dim iMasterMsg
  dim iCloneMsg
  dim iCounter
  dim iListBoxCtl
  dim iSentMsg
  dim iTotalMessages

  on error resume next
  iTotalMessages = 0

  if not isobject(aMsg) then
    exit sub
  end if
  
  if (aList.count = 0) then
    exit sub
  end if
  
  gStatusDlg.Title = IDS_STATUS_SEND
  gStatusDlg.ProgressRange = aList.count
  gStatusDlg.show  
    
  set iSentItemsList = utilities.stringlist

  utilities.doevents
  set iMasterMsg = aMsg.Clone
  
  set iDlg = Utilities.NewControlBoxDialog
  set iListBoxCtl = iDlg.AddListBoxControl   
  
  ' Clear all recipients if exists
  iCounter = iMasterMsg.Recipients.count
  if (iCounter > 0) then
    for x = 1 to iCounter
      iMasterMsg.Recipients.item(x).delete
    next
  end if
    
  
  
  ' Sending messages to each recipients
  for x = 0 to aList.count -1
    iAddress = trim(aList.strings(x))
    if (iAddress <> "") then

      'utilities.trace("iAddress: " & iAddress)

      ' Clone the message
      utilities.doevents
      set iCloneMsg = nothing
      set iCloneMsg = iMasterMsg.clone

      utilities.doevents
      call iCloneMsg.Recipients.add(iAddress)        
      
      ' Send the message
      set iSentMsg = nothing
      set iSentMsg = iCloneMsg.send
      
      ' Make sure we have send the message
      if (iSentMsg.MessageID <> "") then
        iListBoxCtl.items.add(iAddress)
      end if

      utilities.doevents
      iCloneMsg.delete

      if not iSentMsg is nothing then
        iTotalMessages = iTotalMessages + 1
        gStatusDlg.StatusText = IDS_MESSAGES_SENT & iTotalMessages
      end if

      set iSentMsg = nothing
      set iCloneMsg = nothing
      
    end if

    gStatusDlg.ProgressPosition = x
  next
  
  iMasterMsg.delete
  iMasterMsg.delete
  
  gStatusDlg.hide
  
  iDlg.Caption = IDS_CAPTION
  iDlg.title = iListBoxCtl.items.count & " messages sent to:"
  iDlg.Button2Visible = FALSE
  iDlg.execute
  
  set iMasterMsg = nothing
  
end sub




'-------------------------------------------------------------------------------
' Is the message ID is valid?
'-------------------------------------------------------------------------------
function IsValidMessageID(aID)

  IsValidMessageID = FALSE
    
  if (len(aID) = 0) then
    exit function
  end if
        
  if (instr(1, aID, "Token failed execution", 1) <> 0) then
    gStatusDlg.hide
    call msgbox(IDS_NO_MSG_VIEW, vbExclamation, IDS_CAPTION)  
    exit function
  end if

  if (aID = "X00") then
    gStatusDlg.hide
    call msgbox(IDS_SAVE_MSG, vbExclamation, IDS_CAPTION)
    exit function
  end if
  
  IsValidMessageID = TRUE 
  
end function



'-------------------------------------------------------------------------------
' Select the recipients list file and make sure the contents are valid
'-------------------------------------------------------------------------------
function SelectRecipientsList(byref aList)
  
  aList.clear
  SelectRecipientsList = FALSE
  
  dim iFileCTL
  
  ' Display file select dialog
  Set iFileCTL = Utilities.NewOpenFileDialog
  iFileCTL.Title = IDS_FILE_SELECT_DLG
   iFileCTL.Filter = "Text File (*.txt)|*.TXT"
 
  gStatusDlg.hide
  
  ' Execute the file select dialog
  if not iFileCTL.execute then
    exit function
  end if
    
  dim x
  dim iAddress
  dim iTempList
  
  set iTempList = utilities.stringlist
  iTempList.LoadFromFile(iFileCTL.Filename)

  gStatusDlg.Title = IDS_STATUS_INIT
  gStatusDlg.ProgressRange = iTempList.count
  gStatusDlg.show  
    
  if (iTempList.count = 0) then
    gStatusDlg.hide
    call msgbox(IDS_EMPTY_FILE, vbExclamation, IDS_CAPTION)  
    exit function
  end if
  
  
  ' Validate the address(s). 
  ' - Make sure we have @ characters in the address
  ' - Do not include duplicate address
  for x = 0 to iTempList.count -1
    iAddress = iTempList.strings(x)
    if (instr(1, iAddress, "@", 1) <> 0) and (len(iAddress) > 1) and (aList.indexof(iAddress) = -1) then
      aList.add(iAddress)
    end if
    gStatusDlg.ProgressPosition = x
  next
     
  
  ' Do we have any address(s) after validate? 
  if (aList.count = 0) then
    gStatusDlg.hide
    call msgbox(IDS_INVALID_ADDRESS, vbExclamation, IDS_CAPTION)  
    exit function  
  end if
  
  SelectRecipientsList = TRUE
  
end function  

Regards,
Advansys Support

[Support 3]

At the very minimum, you need the Formativ Runtime and Multiple signature solution. If you want to cutomize the integrations (i.e. integrate with Onsend) then you will require the Formativ Creator or Studio. You can download the Formativ framework and solutions from the following url:
http://www.advansyscorp.com/formativ_download.htm

Hope this helps.

Regards,
Advansys Support

[Support 3]

Unfortunately, we did not receive the email you sent to us. Could you please resend the email to support.

Regards,
Advansys Support

[Support 3]

Please make sure the stationery not created using MS Word. We strongly recommend against using Microsoft Word as your HTML editor. When a Word document is saved as HTML, Word includes HTML codes which make the HTML file incompatible with a GroupWise HTML message.

If the problem persists, please email the Formativ configuration and the stationery to support@advansyscorp.com. You can obtain the configuration by selecting Help – About Formativ… from the GroupWise main menu. When the About Formativ dialog appears, go to the Configuration tab and click the button Copy to clipboard.

Regards,
Advansys Support

[Support 3]

Thanks for your feedback. Please do not hesitate to contact us if you have any further questions or comments.

Regards,
Advansys Support

[Support 3]

Thanks for your feedback. Please do not hesitate to contact us if you have any further questions or comments.

Regards,
Advansys Support

[Support 3]

Could you please provide us the build date of the GroupWise client, you can obtain the build date by selecting Help | About GroupWise.

It may not be related to your problem. We have reported the following issue to Novell about the latest GroupWise 7.0.1 client (15/11/2006 build). Novell also informed that there are large number of commands affected (forward, reply, view, send, etc) in this beta version.
http://www.advansyscorp.com/forums/topic/2121074041/

Regards,
Advansys Support

[Support 3]

Please see the solution in the following thread:
http://www.advansyscorp.com/forums/topic/8211025141/

Regards,
Advansys Support

[Support 3]

Sorry, we could not find the response to the earlier thread. May be the issue has been resolved by the user.

Anyway, we have able to re-produce the problem today. It appears that the issue of initializing dialog only happen if the Stationery solution unable to locate the default stationery file. For example: You can re-produce the issue by setting the the default stationery to “Cappucino Note” then rename the “Cappucino Note” stationery file name in the disk, usually in “C:Documents and SettingsUSER_NAMELocal SettingsApplication DataAdvansysFormativ1.0DataStationeryExamples”.

Solution:

• Reset the default stationery. Hold the SHIFT key down prior to execute the Stationery solution, select a stationery and click “Set as default” option.
• Edit the stationery ini file, usually in “C:Documents and SettingsUSER_NAMELocal SettingsApplication DataAdvansysFormativ1.0Configstationery.ini”. Update the “Last Stationery” value. For example: “Last Stationery=Cappucino Note”.

I have created a bug entry for this issue and we will fix this in future release.

Regards,
Advansys Support

[Support 3]

Thanks for your feedback .

Regards,
Advansys Support

[Support 3]

Please see the response below about disabling Quick Config:
http://www.advansyscorp.com/forums/topic/1354043703/

Regards,
Advansys Support

[Support 3]

Please see the response in the following thread:
http://www.advansyscorp.com/forums/topic/7821043141/

Regards,
Advansys Support

[Support 3]

Please see below the options to specify the stationery path:

• You can update the applet and specify an override path in the OVERRIDE_PATH constant. This constant value will take precedent. Please note, end user can change the stationey location during a session but when the applet execute the stationery path will set to the OVERRIDE_PATH value. For example:
  OVERRIDE_PATH constant is defined to “m:SharedFolderstationery”. Every time the Stationery applet execute, it will shows all stationery from the “m:SharedFolderstationery” folder. However, end user can change the stationey location from the UI (Settings – General – Stationery Location) for a session only.

  You need to run the installer, go to the Formativ Applets folder, usually C:Documents and SettingsUSER_NAMEMy DocumentsAdvansysFormativApplets. Select the applet “Stationery_Flexalock.vbf” and open with Notepad to edit the OVERRIDE_PATH constant. Note that, you then need to deploy the updated applet to all users using Novell ZENworks or other tools.

• You can uses the applet to set the stationery loaction. Select ‘Settings – General – Stationery Location’ to set the stationery path. Stationery applet writes the settings including the stationery location into an ini file “stationery.ini”. This file is stored into each user Formativ Config directory, usually “C:Documents and SettingsUSER_NAMELocal SettingsApplication DataAdvansysFormativ1.0Config”. You will need to deploy this ini file to all users Formativ Config directory.

Hope this helps.

Regards,
Advansys Support

[Support 3]

Very interesting and we never had any report about this issue. Here are some thoughts:

• Can you see the emails sent to other clients in your “Sent Items” folder?
• Can you reproduce the same behaviour with another Stationery or perhaps with a sample Stationery?
• Please make sure the Stationery not created using MS Word. We strongly recommend against using Microsoft Word as your HTML editor. When a Word document is saved as HTML, Word includes HTML codes which make the HTML file incompatible with a GroupWise HTML message. See the help for more information.
• If possible, can you upgrade your GroupWise client to a latest version and try the solution.

Hope this helps.

Regards,
Advansys Support

[Author]

Replies