Support 1a

[Support 1a]

Try the following. Notice the current message is being accessed using the message ID “X00”. “X00” gives you access to the currently opened message in the client, and is generally the ID to use when you want to use the ItemGet… or ItemSet… commands.

Sub Main(Client, GWEvent)
 
  dim iMsg
  dim sMessage
  dim NL
  dim Stamp
  
  NL = Chr(13) & Chr(10)
  InsTab  = Chr(9)
  Stamp = NL & NL & _
          "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & NL & _
          "geändert am: " & Date & " - " & Time & NL & _
          "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & NL & NL
 
  
  ' Use the X00 message ID when using ItemGet/ItemSet commands.
  sMessage = GroupWise.ItemGetText("X00", itfMessage)
  
  sMessage = Stamp & sMessage
  
  Call GroupWise.TextSetMessage(sMessage, FALSE)  
 
End Sub

I hope this helps.

Advansys Support

[Support 1a]

One approach would be to write an on-startup applet which removed the rules menu item using the GroupWise.RemoveMenuItem() method.

You could then use the Out of the Office rule applet, configured on a toolbar or menu, to allow the user to create the appropriate rule(s).

You would also have to consider providing a mean by which users could remove the rules when they were no longer required. I suspect this would require another applet designed just for this task.

I hope this helps.

Advansys Support

[Support 1a]

Thank you for your question above.

The ‘Calendar Data Importer’ is a Business Solution Pack applet that would require some minor modifications to make it work the way you want.

As I don’t have your contact details registered in the support forums, could you please send an email to support@advansyscorp.com and we’ll liase directly.

Thanks,

Advansys Support

[Support 1a]

Thank you for your post. I’m not exactly sure I understand your problem. Could you please email the applet in question to support@advansyscorp.com, along with a step-by-step description how to replicate the problem and we’ll have a look at it for you.

Kind regards,

Advansys Support

[Support 1a]

Thanks for the update.

Advansys Support

[Support 1a]

These terms have the same meaning as they do in the GroupWise client. A personal item is one that has not been sent to anyone else (i.e a posted item). A draft item is one that is still being worked on, and has not been sent to anyone. A draft item usually resides in the Work in Progress folder.

Regarding the message ID, these can be obtained a number of ways – it depends on the context in which you are trying to obtain the ID. For example, if you want to obtain the message ID of the opened message in the GroupWise client, you could use GroupWise.MessageIDFromView, or you could use the client property to obtain the command message, then access it’s messageID property:

Sub Main(Client, GWEvent)

  dim iMsg
  set iMsg = Client.ClientState.CommandMessage
  MsgBox iMsg.MessageID

End Sub

Have a look at the topic “Accessing GroupWise Information” in the programmers guide. It discusses many of these types of issues.

I hope this helps,

Advansys Support

[Support 1a]

You want to add the message directly into the Calendar message store. The technique you were using (the GroupWise.ItemSet… commands) are generally used when you are working with items via the standard GroupWise user interface. To add messages directly into the message store with no normal GroupWise user interface (you could add your own Formativ UI if appropriate), use the methods under GroupWise.Account.

Here’s an example of how to add a personal task using this technique:

Sub Main(Client, GWEvent)

  dim objTask

  ' Create the new task
  set objTask = GroupWise.Account.Calendar.Messages.Add("GW.MESSAGE.TASK", 3)

  ' Set some properties
  objTask.OnCalendar = TRUE
  objTask.FromText = GroupWise.Account.Owner.DisplayName
  objTask.TaskCategory = "A"
  objTask.TaskPriority = 1
  objTask.Subject = "This was created using Formativ"
  
  ' Make it due 7 days from now
  objTask.DueDate = Date + 7

End Sub

You may want to have a look in the ‘Programmers Guide’ for more examples and information.

Regards,

Advansys Support

[Support 1a]

Great news! Let us know if you require any further assistance.

Advansys Support

[Support 1a]

If you mean you experience the ConsoleOne lockup when adding your user object to the Formativ Administrator object, then I suspect you may have an issue with your installation of eDirectory and/or ConsoleOne. Performing this action does not use any Formativ Snapins or eDirectory objects. (Both the user object and the FormativAdministrator role objects are native eDirectory objects, and are not touched in any way by the Formativ ConsoleOne snapins).

You may want to try deleting your Formativ Administrator role object, then re-create it and try again.

I hope this helps.

Advansys Support

[Support 1a]

There are many references on the web regarding the RTF standard. Here’s a link to the first hit I recieved after searching for “Rich Text Format”. Please note I can’t vouch for the accuracy for the information on this site (I haven’t read it any detail).

RTF Standard

An easy way to see the RTF codes you need to use would be to manually create a message in GroupWise, save the message to Work in Progress, then use the Object API to access the message you created and access the Message.BodyText.RTF property, which will return the RTF representation of the message.

Regarding your second question, it appears you have not properly delimetered your variable. I.e, you need something like (from the top of head – untested code):

iBody = “{rtf1ansiansicpg1252uc1 {This is plain” &_
“par” &_
“par b System:}” & ComboBoxKategorie.Text & “{” &_
“par This is }{i italics}{” &_
“par }}”

Note the ComboBoxKategorie.Text variable is now delimitered from the rest of the literal string.

I hope this helps.

Advansys Support

[Support 1a]

This applet expects a standard style called ‘List’ to be defined in Word. Line 450 is trying to use this style. Check to see if a style called ‘List’ has been defined. If not, define a style called list and try again.

Advansys Support

[Support 1a]

Which version of Formativ are you using? If you are not using 1.5.8, please download it from our download page and install it on one of the machines experiencing the problem. Manually delete the mirror directory, then try again.

Please let me know if you continue to experience the problem, or if you are already using Formativ 1.5.8.

Thank you,

Advansys Support

[Support 1a]

Did you specify yourself as a Library Administrator in the Library? Display the Library properties in ConsoleOne, then select the “Library Administrators” tab. Ensure your user ID is selected here.

Secondly, did you give yourself Formativ Administrator equivalence? Select the Formativ Administrator Object and display the ‘Security Equal to Me’ tab. You must also add your user object here. Additionally, you must ensure the name of the Formativ Administrator object is correct – it must be “FormativAdministrator”.

I hope this helps. Please let me know if you require any further assistance.

Advansys Support

[Support 1a]

When you mentioned a composing message, I thought you meant a message that was being composed and was not in the message store. In that situation you can use tokens as suggested.

When you are creating a message programmatically and with no user interface, you really need to use the RTF (Rich Text Format) property of the message body text to get the desired results. It’s a little more difficult to do, but here’s a simple example. Note I have greatly simplified the RTF code in this example:

Sub Main(Client, GWEvent)

  dim iBody
  
  iBody =   "{rtf1ansiansicpg1252uc1 {This is plain" &_
            "par" &_
            "par This is }{b bold}{" &_
            "par This is }{i italics}{" &_
            "par }}"


' Create a email message
  Set NewMsg = GroupWise.Account.MailBox.Messages.Add("GW.MESSAGE.MAIL", 4)
  
  ' Add a recipient 
  MsgRecipient = NewMsg.Recipients.Add(GroupWise.Account.Owner.EmailAddress,,0) 
  
  ' Subject and body text of the mail
  NewMsg.FromText = GroupWise.Account.Owner.DisplayName
  NewMsg.Subject = "System Störung"
  NewMsg.BodyText.RTF = iBody
  NewMsg.Send
     
End Sub

I hope this helps.

Advansys Support

[Support 1a]

Here’s some code that creates a composing item, then types in some formatted text:

Sub Main(Client, GWEvent)
  Call GroupWise.NewMail
  Call GroupWise.FocusSet(10, "")
  Call GroupWise.TypeText("Hello ")
  Call GroupWise.FontBold(True)
  Call GroupWise.TypeText("Mr Support")
  Call GroupWise.FontBold(False)
End Sub

If you already had a composing item open, use the same code without the .NewMail() line.

I hope this helps.

Advansys Support

[Author]

Replies