Partager via


Event handler code to add incoming emails with subject “Discussion [ID]” as replies

Here the users will send emails with subject “DiscussionTitle [Discussion ID]” format. If there is a discussion thread present with specified “[Discussion ID]” then it will add the incoming email as a reply in that thread. If ID is not supplied and if there is no discussion thread present with “DiscussionTitle” then it will create a new discussion but if there is any discussion already available then it will ignore that incoming mail.

 

    1:  public override void EmailReceived(SPList list, Microsoft.SharePoint.Utilities.SPEmailMessage emailMessage, string receiverData)
    2:              {
    3:              base.EmailReceived(list, emailMessage, receiverData);
    4:              bool flag = false;
    5:              int id = -1;
    6:              string subject = emailMessage.Headers["Subject"].ToString();
    7:              SPUser ous = list.ParentWeb.AllUsers.GetByEmail(emailMessage.Sender);
    8:              SPListItemCollection viewColl = list.GetItems(list.Views["Subject"]);
    9:              foreach (SPListItem item1 in viewColl)
   10:              {
   11:                  SPListItem item2 = list.GetItemById(item1.ID);
   12:                  if ((item2["Subject"].Equals(subject.Substring(subject.IndexOf(":") + 2))) || (item2["Subject"].Equals(subject)))
   13:                  {
   14:                      flag = true;
   15:                      break;
   16:                  }
   17:              }
   18:   
   19:              if (subject.IndexOf("-[") >= 0)
   20:              {
   21:                  //if ((item2["Subject"].Equals(subject.Substring(subject.IndexOf(":") + 2, subject.IndexOf("-["))))
   22:   //|| (item2["Subject"].Equals(subject.Substring(0, subject.IndexOf("-[")))))
   23:                  {
   24:                      id = Convert.ToInt32(subject.Substring(subject.IndexOf("[") + 1, (subject.IndexOf("]") - subject.IndexOf("[") - 1)));
   25:                      SPListItem item2 = list.GetItemById(id);
   26:   
   27:                      SPListItem disc = SPUtility.CreateNewDiscussionReply(item2);
   28:                      disc["Body"] = emailMessage.HtmlBody;
   29:                      disc["TrimmedBody"] = emailMessage.HtmlBody;
   30:                      disc["Editor"] = ous;
   31:                      disc["Author"] = ous;
   32:                      disc["E-Mail Subject"] = emailMessage.Headers["Subject"].ToString();
   33:                      disc.Update();
   34:                      flag = true;
   35:                  }
   36:              }
   37:   
   38:              if (!flag)
   39:              {
   40:                  SPListItem disc = SPUtility.CreateNewDiscussion(list.Items, emailMessage.Headers["Subject"].ToString());
   41:                  disc["Body"] = emailMessage.HtmlBody;
   42:                  disc["TrimmedBody"] = emailMessage.HtmlBody;
   43:                  disc["Editor"] = ous;
   44:                  disc["Author"] = ous;
   45:                  disc["E-Mail Subject"] = emailMessage.Headers["Subject"].ToString();
   46:                  disc.Update();
   47:              }
   48:          }
   49:   

:: Please note that I would have just uploaded my initial code and you might want to consider proper optimization of the code and disposal of objects properly. I might not have updated the latest code here.