QuickLink Class

[SharePointPermissionAttribute(SecurityAction.InheritanceDemand, ObjectModel = true)]
[SharePointPermissionAttribute(SecurityAction.Demand, ObjectModel = true)]
public class QuickLink : PrivacyItem

      Public Sub QuickLinkSample() 
         'Get portal site context from topology.          Dim strUrl As String = "http://SampleName"          Dim tm As New TopologyManager()          Dim ps As PortalSite = tm.PortalSites(New Uri(strUrl))          Dim pc As PortalContext = PortalApplication.GetContext(ps)           'Initialize user profile config manager object.          Dim upm As New UserProfileManager(pc)          Dim sAccount As String = "mydomain\myalias"          Dim u As UserProfile = upm.GetUserProfile(sAccount)          Dim qlm As QuickLinkManager = u.QuickLinks          Dim strTitle As String = "mylink"          Dim sLinkUrl As String = "http://my"          Dim strGroup As String = "my group"          Dim ql As QuickLink = qlm.Create(strTitle, sLinkUrl, QuickLinkGroupType.UserSpecified, strGroup, Privacy.Public)          Dim iLinkID As Integer = ql.LinkID           'Edit quick link.          Dim qedit As QuickLink = qlm(iLinkID)          qedit.Group = "new group"          qedit.Commit()           'Remove quick link.          qlm.Delete(iLinkID)           'Add another quick link to a person          Dim strTitle2 As String = "mycontact"          Dim sContactAcc As String = "mydomain\mycontact"          Dim ucon As UserProfile = upm.GetUserProfile(sContactAcc)          Dim userguid As Guid = ucon.ID          qlm.AddPerson(strTitle2, userguid, strGroup, False)       End Sub 'QuickLinkSample

public void QuickLinkSample() 
{ // Get portal site context from topology. string strUrl = "http://SampleName"; TopologyManager tm = new TopologyManager(); PortalSite ps = tm.PortalSites[new Uri(strUrl)]; PortalContext pc = PortalApplication.GetContext(ps);  // Initialize user profile config manager object. UserProfileManager upm = new UserProfileManager(pc); string sAccount = "mydomain\\myalias"; UserProfile u = upm.GetUserProfile(sAccount); QuickLinkManager qlm = u.QuickLinks; string strTitle = "mylink"; string sLinkUrl = "http://my"; string strGroup = "my group"; QuickLink ql = qlm.Create(strTitle, sLinkUrl, QuickLinkGroupType.UserSpecified, strGroup, Privacy.Public);  // Edit quick link. QuickLink qedit = qlm[iLinkID]; qedit.Group = "new group"; qedit.Commit();  // Remove quick link. qlm.Delete(iLinkID);  // Add another quick link to a person. string strTitle2 = "mycontact"; string sContactAcc = "mydomain\\mycontact"; UserProfile ucon = upm.GetUserProfile(sContactAcc); Guid userguid = ucon.ID; qlm.AddPerson(strTitle2, userguid, strGroup, false);