SocialTagManager.AddTag method (Uri, Term)
Creates a SocialTag object with the specified Uri and Term.
Namespace: Microsoft.Office.Server.SocialData
Assembly: Microsoft.Office.Server.UserProfiles (in Microsoft.Office.Server.UserProfiles.dll)
Syntax
'Declaration
Public Function AddTag ( _
url As Uri, _
term As Term _
) As SocialTag
'Usage
Dim instance As SocialTagManager
Dim url As Uri
Dim term As Term
Dim returnValue As SocialTag
returnValue = instance.AddTag(url, term)
public SocialTag AddTag(
Uri url,
Term term
)
Parameters
- url
Type: System.Uri
term
Type: Microsoft.SharePoint.Taxonomy.TermA Term object. The term must exist in the taxonomy that you are using.
Return value
Type: Microsoft.Office.Server.SocialData.SocialTag
Remarks
The social tag is external, and therefore visible to users other than the owner, by default.
Examples
using (SPSite siteColl = new SPSite(url))
{
SPServiceContext serviceContext = SPServiceContext.Current;
SocialTagManager mySocialTagManager = new SocialTagManager(serviceContext);
UserProfileManager myProfileManager = new UserProfileManager(serviceContext);
string myAccount = "mydomain\\myalias";
UserProfile myProfile = myProfileManager.GetUserProfile(myAccount);
System.Uri uri = new System.Uri("url");
TaxonomySession taxSession = mySocialTagManager.TaxonomySession;
TermStore termStore = taxSession.DefaultKeywordsTermStore;
Term term = termStore.KeywordsTermSet.CreateTerm(keyword, termStore.DefaultLanguage);
SocialTag newTag = mySocialTagManager.AddTag(uri, term);
SocialTag[] myTags = mySocialTagManager.GetTags(myProfile);
foreach (SocialTag aTag in myTags)
{
output.Write("<br/> Tag: " + " " + aTag.Url.ToString() + " " + aTag.Term.Name.ToString());
}
}
Using siteColl As New SPSite(url)
Dim serviceContext As SPServiceContext = SPServiceContext.Current
Dim mySocialTagManager As New SocialTagManager(serviceContext)
Dim myProfileManager As New UserProfileManager(serviceContext)
Dim myAccount As String = "mydomain\myalias"
Dim myProfile As UserProfile = myProfileManager.GetUserProfile(myAccount)
Dim uri As New System.Uri("url")
Dim taxSession As TaxonomySession = mySocialTagManager.TaxonomySession
Dim termStore As TermStore = taxSession.DefaultKeywordsTermStore
Dim term As Term = termStore.KeywordsTermSet.CreateTerm(keyword, termStore.DefaultLanguage)
Dim newTag As SocialTag = mySocialTagManager.AddTag(uri, term)
Dim myTags() As SocialTag = mySocialTagManager.GetTags(myProfile)
For Each aTag As SocialTag In myTags
output.Write("<br/> Tag: " & " " & aTag.Url.ToString() & " " & aTag.Term.Name.ToString())
Next aTag
End Using