This entry already exist when adding an alert

Question

Hi,
I still have this error every time I send an alert to a group of recipient.
It seems that for some reason,  some users receiving messages that aren't loging in for some times I have this error poping up when sending alerts :
"This entry already exists in the following table (ODBC - 2035)"
What do I have to know about sending alerts ?
Here's the code used to send alert.
SAPbobsCOM.CompanyService oCmpSrv = null;
MessagesService oMessageService = null;
SAPbobsCOM.Message oMessage = null;
MessageDataColumns pMessageDataColumns = null;
MessageDataColumn pMessageDataColumn = null;
MessageDataLines oLines = null;
MessageDataLine oLine = null;
RecipientCollection oRecipientCollection = null;
try
    oCmpSrv = oCompany.GetCompanyService();
    oMessageService = ((SAPbobsCOM.MessagesService)(oCmpSrv.GetBusinessService(ServiceTypes.MessagesService)));
    oMessage = ((SAPbobsCOM.Message)(oMessageService.GetDataInterface(MessagesServiceDataInterfaces.msdiMessage)));
    oMessage.Subject = Subject;
    oMessage.Text = Body;
    oRecipientCollection = oMessage.RecipientCollection;
    foreach (string RecipientName in Recipients)
        oRecipientCollection.Add();
        oRecipientCollection.Item(oRecipientCollection.Count - 1).SendInternal = BoYesNoEnum.tYES;
        oRecipientCollection.Item(oRecipientCollection.Count - 1).UserCode = GetUserCode(RecipientName, oCompany);
    // Don't add a document link if we pass -1 as parameter.
    if (ObjectType != -1)
        // get columns data
        pMessageDataColumns = oMessage.MessageDataColumns;
        // get column
        pMessageDataColumn = pMessageDataColumns.Add();
        // set column name
        pMessageDataColumn.ColumnName = ColumnName;
        // set link to a real object in the application
        pMessageDataColumn.Link = (ObjectType != -1 ? BoYesNoEnum.tYES : BoYesNoEnum.tNO);
        // get lines
        oLines = pMessageDataColumn.MessageDataLines;
        // add new line
        oLine = oLines.Add();
        // set the line value
        oLine.Value = ObjectKey;
        // set the link to BusinessPartner (the object type for Bp is 2)
        oLine.Object = ObjectType.ToString();
        // set the Bp code
        oLine.ObjectKey = ObjectKey;
    // send the message
    oMessageService.SendMessage(oMessage);
    return "";
catch (Exception ex)
    return ex.Message;
if I send message only to the current user there's no problem.  but since the recipient list have 3 users, the 2 other users are rarely opening SAP
It can be the way I'm filling the recipients but I'm not sure.

Answer 1

Hi,
It's in C# but enjoy this :
/// <summary>
                /// Send an alert to a recipient
                /// </summary>
                /// <param name="RecipientName">The name of the recipient</param>
                /// <param name="Subject">The subject of the message</param>
                /// <param name="Body">The message</param>
                /// <param name="ColumnName">The name of the column shown on for the document sent</param>
                /// <param name="ObjectType">The object type : for instence (int)BoObjectTypes.oOrders</param>
                /// <param name="ObjectKey">The DocEntry of the document to be linked to this alert</param>
                private static string _SendAlert(string Subject, string Body, string ColumnName, int ObjectType, string ObjectKey, SAPbobsCOM.Company oCompany, System.Collections.Generic.List<string> Recipients)
                    SAPbobsCOM.CompanyService oCmpSrv = null;
                    MessagesService oMessageService = null;
                    SAPbobsCOM.Message oMessage = null;
                    MessageDataColumns pMessageDataColumns = null;
                    MessageDataColumn pMessageDataColumn = null;
                    MessageDataLines oLines = null;
                    MessageDataLine oLine = null;
                    RecipientCollection oRecipientCollection = null;
                    Recipient oRecipient = null;
                    try
                        oCmpSrv = oCompany.GetCompanyService();
                        oMessageService = ((SAPbobsCOM.MessagesService)(oCmpSrv.GetBusinessService(ServiceTypes.MessagesService)));
                        oMessage = ((SAPbobsCOM.Message)(oMessageService.GetDataInterface(MessagesServiceDataInterfaces.msdiMessage)));
                        oMessage.Subject = Subject;
                        oMessage.Text = Body;
                        oRecipientCollection = oMessage.RecipientCollection;
                        foreach (string UserCode in Recipients)
                            oRecipient = oRecipientCollection.Add();
                            oRecipient.SendInternal = BoYesNoEnum.tYES;
                            oRecipient.UserCode = UserCode;
                        // Don't add a document link if we pass -1 as parameter.
                        if (ObjectType != -1)
                            // get columns data
                            pMessageDataColumns = oMessage.MessageDataColumns;
                            // get column
                            pMessageDataColumn = pMessageDataColumns.Add();
                            // set column name
                            pMessageDataColumn.ColumnName = ColumnName;
                            // set link to a real object in the application
                            pMessageDataColumn.Link = (ObjectType != -1 ? BoYesNoEnum.tYES : BoYesNoEnum.tNO);
                            // get lines
                            oLines = pMessageDataColumn.MessageDataLines;
                            // add new line
                            oLine = oLines.Add();
                            // set the line value
                            oLine.Value = ObjectKey;
                            // set the link to BusinessPartner (the object type for Bp is 2)
                            oLine.Object = ObjectType.ToString();
                            // set the Bp code
                            oLine.ObjectKey = ObjectKey;
                        // send the message
                        oMessageService.SendMessage(oMessage);
                        return "";
                    catch (Exception ex)
                        return ex.Message;
And make sure tou send only ONE recipient in the collection like {Recepient ONE} because sending more then one wasn't working for me and I never knew why !
WHY WHEN EDITING THIS MESSAGE EVERYTHING IS FINE BUT WHEN LOOKING AT IT ALL THE SPACES ARE GONE ?
Edited by: Marc Roussel on Aug 26, 2009 12:19 PM