I have many website addresses. And I want to post the addresses on my facebook wall. So I decided to make a code for it. But now I have a big problem. That is I failed to post on my facebook wall using ServiceExecute and the requests "PostMessage" and "PostLink".

I got the connection.

In[1]:= facebook = ServiceConnect["Facebook", "New"]

Out[1]= ServiceObject["Facebook", 
 "ID" -> "connection-52092bc4b7e2dd33059b26f2ea5e1e1b"]

And I checked my name using SeviceExecute.

In[8]:= ServiceExecute[facebook, "FullName"]

Out[8]= "???"

But I failed to post my message and my link.

In[4]:= ServiceExecute[facebook, "PostMessage", {"Message" -> 
   "I sent this poost from the Wolfram Language."}]

During evaluation of In[4]:= ServiceExecute::apierr: The service returned the following error message: (#200) The user hasn't authorized the application to perform this action. >>

Out[4]= ServiceExecute[ServiceObject[
 "Facebook", 
  "ID" -> "connection-db4a5a29726c4a796da3fcd6b26b4094"], \
"PostMessage", {"Message" -> 
   "I sent this poost from the Wolfram Language."}]

In[5]:= ServiceExecute[facebook, "PostLink", {"Link" -> 
   "http://www.wolfram.com"}]

During evaluation of In[5]:= ServiceExecute::apierr: The service returned the following error message: (#200) The user hasn't authorized the application to perform this action. >>

Out[5]= ServiceExecute[ServiceObject[
 "Facebook", 
  "ID" -> "connection-db4a5a29726c4a796da3fcd6b26b4094"], "PostLink", \
{"Link" -> "http://www.wolfram.com"}]

In[6]:= SendMessage[facebook, "I sent this poost from the Wolfram \
Language."]

During evaluation of In[6]:= ServiceExecute::apierr: The service returned the following error message: (#200) The user hasn't authorized the application to perform this action. >>

Out[6]= SendMessage[ServiceObject[
 "Facebook", 
  "ID" -> "connection-db4a5a29726c4a796da3fcd6b26b4094"], "I sent \
this poost from the Wolfram Language."]

And I also failed the example on Documentation Center.

In[7]:= ServiceExecute[facebook, "PostCommentNetwork"]

During evaluation of In[7]:= Riffle::list: List expected at position 1 in Riffle[id,,]. >>

During evaluation of In[7]:= StringJoin::string: String expected at position 1 in StringJoin[Riffle[id,,]]. >>

During evaluation of In[7]:= StringJoin::string: String expected at position 2 in SELECT post_id,fromid FROM comment WHERE post_id IN (<>Riffle[id,,]<>) LIMIT 5000. >>

During evaluation of In[7]:= StringJoin::string: String expected at position 2 in SELECT post_id,fromid FROM comment WHERE post_id IN (<>Riffle[id,,]<>) LIMIT 5000. >>

During evaluation of In[7]:= General::stop: Further output of StringJoin::string will be suppressed during this calculation. >>

Out[7]= ServiceExecute[ServiceObject[
 "Facebook", 
  "ID" -> "connection-db4a5a29726c4a796da3fcd6b26b4094"], \
"PostCommentNetwork"]

What am I gonna do to post on Facebook? Please help me.