SetReminderExt
Set Reminders
SetReminderExt(ByRef ReminderArray() As Byte) As Long
Parameters
|
In/out |
Name |
Data type |
Description |
|
In,Out |
ReminderArray |
Byte[TagReminderEx] |
[In]Details of all the alarms to be set [Out]Array of all the alarms set |
Description
This function is called only for Shared cabinet and sets reminders passed in the array in
ReminderArray. This function also returns information regarding all the reminders set .
Return value
|
Name |
Description |
|
NG_SUCCESS |
In case of success |
|
-1 |
Invalid cabinet name |
|
-3 |
Cabinet not connected |
|
-201 |
Insufficient rights for the current operation |
|
-131 |
User does not exist. |
|
-133 |
User not logged in |
Example
Dim udtReminderEx As TagReminderEx
Dim btReminder() As Byte
udtReminderEx.UserId = UserID
udtReminderEx.DocIndex = ActItemID
udtReminderEx.DocName = Subject
udtReminderEx.InformMode = “M”
udtReminderEx.Comment = sMessage
udtReminderEx.ReminderType = "M" 'For mail flags
udtReminderEx.MailFlag = "Y"
udtReminderEx.RemDateTime = Now
udtReminderEx.SetByUser = FromUserId
ReDim btReminder(Len(udtReminderEx) - 1)
CopyMemory btReminder(0), udtReminderEx, Len(udtReminderEx)
lRetVal = mobjParent.CabinetObject.PanObj.SetReminderExt(btReminder)
If lRetVal <> 1 Then
MsgBox PanObj.ErrDescription
Else
MsgBox "Success"
End If