Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
Dim success As Long
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
Dim resp As ChilkatHttpResponse
Set resp = http.QuickRequest("POST","https://domain.com/services/data/v{{version}}/chatter/users/:USER_ID/following?subjectId=<RECORD_ID>")
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Dim sbResponseBody As New ChilkatStringBuilder
success = resp.GetBodySb(sbResponseBody)
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0
Debug.Print "Response Body:"
Debug.Print jResp.Emit()
Dim respStatusCode As Long
respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
Debug.Print "Response Header:"
Debug.Print resp.Header
Debug.Print "Failed."
Exit Sub
End If
' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)
' {
' "community": null,
' "id": "0E8...",
' "subject": {
' "entityLabel": {
' "label": "Account",
' "labelPlural": "Accounts"
' },
' "id": "001...",
' "motif": {
' "color": "5867E8",
' "largeIconUrl": "/img/icon/accounts64.png",
' "mediumIconUrl": "/img/icon/accounts32.png",
' "smallIconUrl": "/img/icon/accounts16.png",
' "svgIconUrl": null
' },
' "mySubscription": null,
' "name": "Exemple de comptes pour les autorisations",
' "type": "Account",
' "url": "/services/data/v58.0/chatter/records/001..."
' },
' "subscriber": {
' "additionalLabel": null,
' "communityNickname": "integration1.4407085834085586E12",
' "companyName": "Salesforce",
' "displayName": "Integration User",
' "firstName": "Integration",
' "id": "005...",
' "isActive": true,
' "isInThisCommunity": true,
' "lastName": "User",
' "motif": {
' "color": "1B96FF",
' "largeIconUrl": "/img/icon/profile64.png",
' "mediumIconUrl": "/img/icon/profile32.png",
' "smallIconUrl": "/img/icon/profile16.png",
' "svgIconUrl": null
' },
' "mySubscription": null,
' "name": "Integration User",
' "outOfOffice": {
' "message": ""
' },
' "photo": {
' "fullEmailPhotoUrl": "https://<my_domain>/img/userprofile/default_profile_200_v2.png?fromEmail=1",
' "largePhotoUrl": "https://<my_domain>/profilephoto/005/F",
' "mediumPhotoUrl": "https://<my_domain>/profilephoto/005/M",
' "photoVersionId": null,
' "smallPhotoUrl": "https://<my_domain>/profilephoto/005/T",
' "standardEmailPhotoUrl": "https://<my_domain>/img/userprofile/default_profile_45_v2.png?fromEmail=1",
' "url": "/services/data/v58.0/connect/user-profiles/005.../photo"
' },
' "reputation": null,
' "title": null,
' "type": "User",
' "url": "/services/data/v58.0/chatter/users/005...",
' "userType": "Internal"
' },
' "url": "/services/data/v58.0/chatter/subscriptions/0E8..."
' }
' Sample code for parsing the JSON response...
' Use this online tool to generate parsing code from sample JSON: Generate JSON Parsing Code
Dim community As String
community = jResp.StringOf("community")
Dim id As String
id = jResp.StringOf("id")
Dim Label As String
Label = jResp.StringOf("subject.entityLabel.label")
Dim LabelPlural As String
LabelPlural = jResp.StringOf("subject.entityLabel.labelPlural")
Dim Id As String
Id = jResp.StringOf("subject.id")
Dim Color As String
Color = jResp.StringOf("subject.motif.color")
Dim LargeIconUrl As String
LargeIconUrl = jResp.StringOf("subject.motif.largeIconUrl")
Dim MediumIconUrl As String
MediumIconUrl = jResp.StringOf("subject.motif.mediumIconUrl")
Dim SmallIconUrl As String
SmallIconUrl = jResp.StringOf("subject.motif.smallIconUrl")
Dim SvgIconUrl As String
SvgIconUrl = jResp.StringOf("subject.motif.svgIconUrl")
Dim MySubscription As String
MySubscription = jResp.StringOf("subject.mySubscription")
Dim Name As String
Name = jResp.StringOf("subject.name")
Dim v_Type As String
v_Type = jResp.StringOf("subject.type")
Dim v_Url As String
v_Url = jResp.StringOf("subject.url")
Dim AdditionalLabel As String
AdditionalLabel = jResp.StringOf("subscriber.additionalLabel")
Dim CommunityNickname As String
CommunityNickname = jResp.StringOf("subscriber.communityNickname")
Dim CompanyName As String
CompanyName = jResp.StringOf("subscriber.companyName")
Dim DisplayName As String
DisplayName = jResp.StringOf("subscriber.displayName")
Dim FirstName As String
FirstName = jResp.StringOf("subscriber.firstName")
Dim subscriberId As String
subscriberId = jResp.StringOf("subscriber.id")
Dim IsActive As Long
IsActive = jResp.BoolOf("subscriber.isActive")
Dim IsInThisCommunity As Long
IsInThisCommunity = jResp.BoolOf("subscriber.isInThisCommunity")
Dim LastName As String
LastName = jResp.StringOf("subscriber.lastName")
Dim MotifColor As String
MotifColor = jResp.StringOf("subscriber.motif.color")
Dim MotifLargeIconUrl As String
MotifLargeIconUrl = jResp.StringOf("subscriber.motif.largeIconUrl")
Dim MotifMediumIconUrl As String
MotifMediumIconUrl = jResp.StringOf("subscriber.motif.mediumIconUrl")
Dim MotifSmallIconUrl As String
MotifSmallIconUrl = jResp.StringOf("subscriber.motif.smallIconUrl")
Dim MotifSvgIconUrl As String
MotifSvgIconUrl = jResp.StringOf("subscriber.motif.svgIconUrl")
Dim subscriberMySubscription As String
subscriberMySubscription = jResp.StringOf("subscriber.mySubscription")
Dim subscriberName As String
subscriberName = jResp.StringOf("subscriber.name")
Dim Message As String
Message = jResp.StringOf("subscriber.outOfOffice.message")
Dim FullEmailPhotoUrl As String
FullEmailPhotoUrl = jResp.StringOf("subscriber.photo.fullEmailPhotoUrl")
Dim LargePhotoUrl As String
LargePhotoUrl = jResp.StringOf("subscriber.photo.largePhotoUrl")
Dim MediumPhotoUrl As String
MediumPhotoUrl = jResp.StringOf("subscriber.photo.mediumPhotoUrl")
Dim PhotoVersionId As String
PhotoVersionId = jResp.StringOf("subscriber.photo.photoVersionId")
Dim SmallPhotoUrl As String
SmallPhotoUrl = jResp.StringOf("subscriber.photo.smallPhotoUrl")
Dim StandardEmailPhotoUrl As String
StandardEmailPhotoUrl = jResp.StringOf("subscriber.photo.standardEmailPhotoUrl")
Dim PhotoUrl As String
PhotoUrl = jResp.StringOf("subscriber.photo.url")
Dim Reputation As String
Reputation = jResp.StringOf("subscriber.reputation")
Dim Title As String
Title = jResp.StringOf("subscriber.title")
Dim subscriberType As String
subscriberType = jResp.StringOf("subscriber.type")
Dim subscriberUrl As String
subscriberUrl = jResp.StringOf("subscriber.url")
Dim UserType As String
UserType = jResp.StringOf("subscriber.userType")
Dim url As String
url = jResp.StringOf("url")
Curl Command
curl -X POST
-H "Authorization: Bearer <access_token>"
https://domain.com/services/data/v{{version}}/chatter/users/:USER_ID/following?subjectId=<RECORD_ID>
Postman Collection Item JSON
{
"name": "Following - POST",
"event": [
{
"listen": "prerequest",
"script": {
"exec": [
""
],
"type": "text/javascript"
}
},
{
"listen": "test",
"script": {
"exec": [
""
],
"type": "text/javascript"
}
}
],
"protocolProfileBehavior": {
"disabledSystemHeaders": {}
},
"request": {
"method": "POST",
"header": [
],
"url": {
"raw": "{{_endpoint}}/services/data/v{{version}}/chatter/users/:USER_ID/following?subjectId=<RECORD_ID>",
"host": [
"{{_endpoint}}"
],
"path": [
"services",
"data",
"v{{version}}",
"chatter",
"users",
":USER_ID",
"following"
],
"query": [
{
"key": "subjectId",
"value": "<RECORD_ID>"
}
],
"variable": [
{
"key": "USER_ID",
"value": ""
}
]
},
"description": "Returns a list of people, groups, records, topics, and files that the specified user is following. Also used to follow records.\n\nhttps://developer.salesforce.com/docs/atlas.en-us.chatterapi.meta/chatterapi/connect_resources_users_FollowingUsers.htm?search_text=following"
},
"response": [
{
"name": "Successful Following - POST",
"originalRequest": {
"method": "POST",
"header": [
],
"url": {
"raw": "{{_endpoint}}/services/data/v{{version}}/chatter/users/:USER_ID/following?subjectId=0012o00003O9lADAAZ",
"host": [
"{{_endpoint}}"
],
"path": [
"services",
"data",
"v{{version}}",
"chatter",
"users",
":USER_ID",
"following"
],
"query": [
{
"key": "subjectId",
"value": "0012o00003O9lADAAZ"
}
],
"variable": [
{
"key": "USER_ID",
"value": "0052o00000DKQarAAH"
}
]
}
},
"status": "Created",
"code": 201,
"_postman_previewlanguage": "json",
"header": [
{
"key": "Date",
"value": "Mon, 20 Nov 2023 16:27:09 GMT"
},
{
"key": "Strict-Transport-Security",
"value": "max-age=63072000; includeSubDomains"
},
{
"key": "X-Content-Type-Options",
"value": "nosniff"
},
{
"key": "X-XSS-Protection",
"value": "1; mode=block"
},
{
"key": "X-Robots-Tag",
"value": "none"
},
{
"key": "Cache-Control",
"value": "no-cache,must-revalidate,max-age=0,no-store,private"
},
{
"key": "Content-Type",
"value": "application/json;charset=UTF-8"
},
{
"key": "Vary",
"value": "Accept-Encoding"
},
{
"key": "Content-Encoding",
"value": "gzip"
},
{
"key": "Transfer-Encoding",
"value": "chunked"
}
],
"cookie": [
],
"body": "{\n \"community\": null,\n \"id\": \"0E8...\",\n \"subject\": {\n \"entityLabel\": {\n \"label\": \"Account\",\n \"labelPlural\": \"Accounts\"\n },\n \"id\": \"001...\",\n \"motif\": {\n \"color\": \"5867E8\",\n \"largeIconUrl\": \"/img/icon/accounts64.png\",\n \"mediumIconUrl\": \"/img/icon/accounts32.png\",\n \"smallIconUrl\": \"/img/icon/accounts16.png\",\n \"svgIconUrl\": null\n },\n \"mySubscription\": null,\n \"name\": \"Exemple de comptes pour les autorisations\",\n \"type\": \"Account\",\n \"url\": \"/services/data/v58.0/chatter/records/001...\"\n },\n \"subscriber\": {\n \"additionalLabel\": null,\n \"communityNickname\": \"integration1.4407085834085586E12\",\n \"companyName\": \"Salesforce\",\n \"displayName\": \"Integration User\",\n \"firstName\": \"Integration\",\n \"id\": \"005...\",\n \"isActive\": true,\n \"isInThisCommunity\": true,\n \"lastName\": \"User\",\n \"motif\": {\n \"color\": \"1B96FF\",\n \"largeIconUrl\": \"/img/icon/profile64.png\",\n \"mediumIconUrl\": \"/img/icon/profile32.png\",\n \"smallIconUrl\": \"/img/icon/profile16.png\",\n \"svgIconUrl\": null\n },\n \"mySubscription\": null,\n \"name\": \"Integration User\",\n \"outOfOffice\": {\n \"message\": \"\"\n },\n \"photo\": {\n \"fullEmailPhotoUrl\": \"https://<my_domain>/img/userprofile/default_profile_200_v2.png?fromEmail=1\",\n \"largePhotoUrl\": \"https://<my_domain>/profilephoto/005/F\",\n \"mediumPhotoUrl\": \"https://<my_domain>/profilephoto/005/M\",\n \"photoVersionId\": null,\n \"smallPhotoUrl\": \"https://<my_domain>/profilephoto/005/T\",\n \"standardEmailPhotoUrl\": \"https://<my_domain>/img/userprofile/default_profile_45_v2.png?fromEmail=1\",\n \"url\": \"/services/data/v58.0/connect/user-profiles/005.../photo\"\n },\n \"reputation\": null,\n \"title\": null,\n \"type\": \"User\",\n \"url\": \"/services/data/v58.0/chatter/users/005...\",\n \"userType\": \"Internal\"\n },\n \"url\": \"/services/data/v58.0/chatter/subscriptions/0E8...\"\n}"
}
]
}
