Support 1a

[Support 1a]

Are the multiple copies of the applet directly under the ‘My Applets’ entry, or are they under the applet library entry in FormativCentral?

Generally speaking, the only way for this type of duplication to occur is for an applet to be copied, then pasted multiple times to the same location. Formativ will sequentially append a number to the copy when pasted. There are no known issues that can cause this to happen any other way.

If the copies are under the ‘My Applets’ entry, you may wish to have a look at the date and time stamps of the copies in C:Program FilesAdvansysFormativLocal (assuming a default installation) to see if you can identify a pattern (i.e if the copies all have a similiar date and time). In any case, you can simply delete the copies from this directory using the Windows Explorer, or by selecting each one and deleting them from within FormativCentral.

If the copies are under the applet library in FormativCentral, select each one and delete them manually.

In either case, continue to use Formativ to see if the problem persists. If it does, please let us know and we’ll escalate this issue.

Thanks,

Advansys Support

[Support 1a]

There are a couple of ways to do this. Here are two examples:

Example 1:
This example using native Object API calls. Notice that we do a forward in order to build a new message with the original attached. We then fill out the appropriate information in the new draft forward. We have found this is the most reliable way to attach a message object to a new message.

'-------------------------------------------------------------------------------
' Create a message and attach the selected message through using the Object API
'-------------------------------------------------------------------------------
 
Sub Main(Client, GWEvent)
 
  Dim objDraft
  Dim objEmail
  Dim objRecipient
  Dim Archief
  
  ' Voeg parameters toe
  On Error Resume Next
  Set Msg = Client.ClientState.CommandMessage
  
  set objDraft = Msg.Forward
  
  with objDraft
    call .Recipients.Add(GroupWise.Account.Owner.EmailAddress, ,0) 
    .Subject = "Test"
    .BodyText = "Body text"
  end with
  
  ' Verstuur het bericht dmv de verzend methode
  Set objEmail = objDraft.Send
  
  ' Verzend bevestiging
  Call MsgBox("Dank U.", 64, "Bericht verzonden.")
 
End Sub

Example 2:

'-------------------------------------------------------------------------------
' Create a new message and attach the selected message using token commands.
'-------------------------------------------------------------------------------
Sub Main(Client, GWEvent)
 
  ' Check to see whether we have selected any messages
  On Error Resume Next  
  Set Msg = Client.ClientState.CommandMessage
  if isobject(Msg) then
    MsgID = Msg.MessageID
  end if
  
  Archief = GroupWise.Account.Owner.EmailAddress
    
  'Create a new Mail 
  GroupWise.NewMail
  Set NewMsg = GroupWise.ComposingItem  
  with NewMsg
    .To_ = Archief
    .Subject = "Archivering gewenst"
    .BodyText = "Graag dit bericht archiveren."
  end with
  
  ' Attached the selected message
  if MsgID <> "" then
    call GroupWise.ItemAttachmentAdd("X00", itcAttachClassMessage, Msg.MessageID, "")
  end if
  
  GroupWise.ItemSend(0)
  
  set Msg = nothing
  set NewMsg = nothing
  
End Sub

You will notice that we check for the existence of a return value from Client.ClientState.CommandMessage
using a combination of both On Error Resume Next and the IsObject() function.

I hope this information helps.

Advansys Support

[Support 1a]

There should have been some body text in the error dialog. TEngine.BuildRecordedScript would have been the caption. If you can duplicate this problem, could you please advise the details of the error dialog shown.

Thanks in advance,

Advansys Support

[Support 1a]

Thanks for the additional information. We are currently investigating this problem and will report our finding here as soon as possible.

Thanks,

Advansys Support

[Support 1a]

Unfortunately GroupWise does not currently support an OnClose event. We have submitted a request to Novell that this event be exposed.

You could achieve something similar by creating an applet that placed a button on the mail toolbar. When pressed, it could ask the user if the message is to be archived. You could probably also have the applet close the view once the appropriate action had been taken.

I hope this helps.

Advansys Support

[Support 1a]

We haven’t received any other reports of problems with this applet, so I suspect it may be something environmental.

To assist in troubleshooting, what version of Microsoft Word are you using?

We look forward to your response.

Advansys Support

[Support 1a]

Unfortunately, the technique I was thinking of only works with GroupWise 4.1a…

At this point I’d have to say that we can’t access this information. I have logged this as something to look at for version 2.0. I do suspect we will have to make a request to Novell to have this information made available.

Advansys Support.

[Support 1a]

The answer depends on the technique you use to access the database. Another user has posted the following information that may help answer your question.

quote:

---

To access any database defined in Data Source Name (you need to install an optional MDAC package from Microsoft. I used MDAC 2.5):

Sub Main(Client, GWEvent)
dim conn
dim arr

set conn = createobject(“ADODB.Connection”)
conn.open(“DSN=putDSNHere; User ID=putUseridHere; ” & _
“password=putPasswordHere”)

arr = getRecords(“SELECT * FROM putTableNameHere”)
End Sub

Private Function getRecords(query) ‘returns a dwo-dimensional array with results
dim rs

set rs = conn.execute(query)
rs.movenext
getRecords = rs.getRows
End Function

---

If this doesn’t help, you may wish to consult one of the many VB/VBS resources available. (Formativ doesn’t provide any DB/SQL services inherently – you need to use an external service, such as ADO, to provide DB support).

Advansys Support

[Support 1a]

Hi Joe,

Thanks for the additional information.

The SelectDirectoryDlg object doesn’t actually make calls to BrowseForFolder(). It is an encapsulation of another function native to the language Formativ was developed with.

This means that, at least with the current version, you are unable to access some of the functionality you mention.

We do recognise this as an issue however, and have slated several improvements to this control in SP1, due to be released as a beta in about four weeks time. I can’t specifically state what features will be available, suffice to say that you will have more control over the dialog via applets, including the ability to create a folder.

I hope this helps. Keep an eye on the site for information about SP1.

Advansys Support

[Support 1a]

Assuming you are referring to a GroupWise password, this would normally be done via the GroupWise Admin API (using the ClearPassword and SetPassword methods of the User object). You can obtain an instance of the API by calling:

GroupWise.AdminObject

in your applet. You can then use all of the standard Admin API calls directly.

I hope this helps. Please let me know if this is not what you require.

Advansys Support

[Support 1a]

This issue has been fixed in Formativ Admin 1.0.2.3, available from our downloads page. The problem only affects Formativ Admin. Any previously encoded applets should be re-encoded using this version, and re-copied to the Local directory of any Formativ Client installations that experienced this problem.

[Support 1a]

Thank you for your post. Formativ does provide cursor positioning commands, so I suspect your requirements could be met.

To provide a more detailed response, could you please clarify your requirements. Do you wish to automatically position the cursor to a particular point within the subject field when a new appointment is composed? Does the Hebrew version of GroupWise automatically insert some text into the subject field when an appointment is created? By default, there is no text in the subject field of a new message when using the English client.

We look forward to receiving more information.

Advansys Support

[Support 1a]

Please see below some sample applet code that demonstrates one approach to this problem. Copy the source into a new applet in Formativ and integrate it with the Email toolbar. When you open a new email message, a new button will appear on the email view that lets you define whether the email message is official or otherwise. The applet uses a custom field which can be displayed in the GroupWise client. See the comments section at the top of the source code for more information.

I hope this helps. Please note that this is example code, and does not implement complete error checking, etc.

Please note that we do offer Formativ development services. If you are interested, please send an email to formativsales@advansyscorp.com for more information.

Advansys Support

code:

---

 '-------------------------------------------------------------------------------
' Message Type Selection
' Designed By : Formativ Business Solutions Team
' Date Created: 4 January 2002
' Version 1.0
' 
' This applet is a simple demonstration of using a custom field to categorize
' existing email messages as either 'Official' or 'Unofficial'.  It adds a button
' to the GroupWise email.  This button displays a dialog that allows the user to
' categorize the message as either 'Official' or 'Unofficial'.  As all messages
' in the account are assumed to be Official by default, data is only stored in
' the custom field if the user designates the message as unofficial.
' 
' You can see the state of messages by adding the "ADV Official Status" custom
' field to the mail list column header in the client.  Those messages that have
' not yet been categorized will have no text appear in the display.  Those that
' have been designated as unofficial will have the word "Unofficial" appear.
' 
' You can easily search for unoffical messages by using the standard GroupWise
' Find facility, using the Advanced find option.
' 
' You may need to restart the client the very first you execute the applet in
' order to see the newly created custom field
' 
' INTEGRATIONS: This applet has already been integrated with the email view, but
' the integration has been disabled.  Enable it in the Integrations tab in
' Formativ Admin
'-------------------------------------------------------------------------------
Dim Dlg
Dim RadioCtl
Const cSelectType = 101
Const CUSTOM_FIELD = "ADV Official Status"
Const CAPTION = "Formativ Applet Examples"

'-------------------------------------------------------------------------------
' Main Line Processing
'-------------------------------------------------------------------------------
Sub Main(Client, GWEvent)
  Dim Msg
  Dim Cmd 
  Dim sIndex
  Dim Fields
  Dim fieldObj
  
  ' Set the default radio button to Unofficial  
  sIndex = 0
  
  Set Msg = Client.ClientState.CommandMessage
   
  ' Add the custom field in GroupWise field definitions
  AddField  
  Set Fields = Msg.Fields          
  
  On Error Resume Next    
  Set fieldObj = Fields.Item(CUSTOM_FIELD, fgwString)
  
  ' If the field exists then we check the value
  If IsObject(fieldObj) Then
    If fieldObj.Value = "Unofficial" Then
      sIndex = 1
    Else
      sIndex = 0
    End If
  End If
  
  ' Display the selection dialog
  SetupDlg(sIndex)
  Select Case Dlg.Execute
    Case Btn1 Cmd = cSelectType
  End Select
  
  ' Change the status based on the type selected
  If Cmd = cSelectType Then
    Select Case RadioCtl.ItemIndex
      Case 0 Call Fields.Add(CUSTOM_FIELD, fgwString, " ")
      Case 1 Call Fields.Add(CUSTOM_FIELD, fgwString, "Unofficial")
    End Select
  End If
  
  GroupWise.Account.Refresh
        
  Set Msg = Nothing
  Set Fields = Nothing
  Set fieldObj = Nothing
   
End Sub

'-------------------------------------------------------------------------------
' Add the custom field in field GroupWise definitions
'-------------------------------------------------------------------------------
Sub AddField
  Dim FieldObj
  Dim FieldDefs
  
  Set FieldDefs = GroupWise.Account.FieldDefinitions 
  On Error Resume Next     
  Set FieldObj = FieldDefs.Item(CUSTOM_FIELD, fgwString)
   
  ' If the custom field does not exists in the field definitions add the field.
  If FieldObj Is Nothing Then
    Call FieldDefs.Add(CUSTOM_FIELD, fgwString)    
    GroupWise.Account.Refresh
  End If
  
  Set FieldDefs = Nothing
  Set FieldDefs = Nothing
  
End Sub

'-------------------------------------------------------------------------------
' Dialog to select whether the mail is Official/Unofficial
'-------------------------------------------------------------------------------
Function SetupDlg(sIndex)
  Set Dlg = Utilities.NewControlBoxDialog
  With Dlg
    .Height = 215
    .Caption = CAPTION    
    .Title = "Select the email type"    
  End With
  Set RadioCtl = Dlg.AddRadioGroupControl
  With RadioCtl
    .Caption = "Is this Official/Unofficial mail?"
    .Items.Add("Official Mail")
    .Items.Add("Unofficial Mail")  
    .ItemIndex = sIndex
    .Height = 70  
    .Columns = 2
    .Hint = "Select message type"
  End With
   
End Function 

---

[Support 1a]

Here is an updated version of the TypeText function from this applet that should perform the functionality required. Replace the existing function with the one shown below.

You can control any software that provides a COM interface. This includes much of todays modern software. Check with the application vendor to see if they provide a COM (or Automation) interface. All the MS Office applications provide appropriate interfaces, including Excel, Outlook, Access, etc.

You can automatically print the Word document by making some changes to your applet. If you are still refering to the Message to Word applet, try adding a new line around line 72: Word.PrintOut. I have not tried this, but it should work.

Advansys Support

‘——————————————————————————-
‘ Write messages details in the active documents
‘——————————————————————————-
function TypeText

dim RecCounter, RecipientEntry, CCRecHolder, BCRecHolder
dim AttachCount, AttachEntry
dim RecHolder, AttachHolder

‘ Write recipients details in active word document
If Msg.Recipients.count > 0 then
for RecCounter = 1 to Msg.Recipients.count
set RecipientEntry = Msg.Recipients.Item(RecCounter)
‘ Recipient type of an address
Select Case RecipientEntry.TargetType
Case 0 RecHolder = RecHolder & RecipientEntry.EmailAddress & “, ”
Case 1 CCRecHolder = CCRecHolder & RecipientEntry.EmailAddress & “, ”
Case 2 BCRecHolder = BCRecHolder & RecipientEntry.EmailAddress & “, ”
End Select
set RecipientEntry = nothing
next
End if

‘ Write attachments file name in active word document
If Msg.Attachments.count > 0 then
for AttachCount = 1 to Msg.Attachments.count
set AttachEntry = Msg.Attachments.Item(AttachCount)
AttachHolder = AttachHolder + AttachEntry.DisplayName&” “
set AttachEntry = nothing
next
End if

Set Selection = Word.Selection
Selection.Font.Bold = wdToggle
Selection.TypeText (“Sender: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(Msg.Sender.DisplayName)
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Date: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(Msg.CreationDate&” “)
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Email address: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(ResolveExternalAddresses)
‘ Recipient Type – To
if RecHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“TO: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(RecHolder)
end if
‘ Recipient Type – CC
If CCRecHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“CC: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(CCRecHolder)
End If
‘ Recipient Type – BC
If BCRecHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“BC: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(BCRecHolder)
End If
if AttachHolder <> “” then
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Attachments: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(AttachHolder)
End If
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
Selection.TypeText(“Subject: “)
Selection.Font.Bold = wdToggle
Selection.TypeText(Msg.Subject&” “)
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText(Msg.BodyText&” “)

‘ Insert page break
Selection.InsertBreak wdPageBreak

end function

[Support 1a]

Yes, this is possible. We will post an example applet in this thread later today.

Advansys Support

[Author]

Replies