Access API using Excel

[Wes McPhee]

Hi,

I have spent some hours trying to get this to work and still haven't
managed to send a tweet.

This is the code I have at the moment

Please help.

Sub TWITTER()
Dim symbol As String
Dim Price As String
Dim xml, Username, Password, tweet
Set xml = CreateObject("MSXML2.XMLHTTP")
' change this to your username in quotes
Username = "xxxxxxxx"
' change this to your password in quotes
Password = "xxxxxxxx"


xml.Open "POST", "http://" & Username & ":" & Password &
"api.supertweet.net/1/statuses/update.xml?status=" & tweet, False
xml.setRequestHeader "Content-Type", "application/x-www-form-
urlencoded "
xml.Send

Set xml = Nothing
End Sub

Thanks in advance.

[Mr Blog]

I don;t know this plugin specifically, but we assume you've done the basics: 

1. Signed in with the Twitter account you want to use at www.supertweet.net

2. Clicked 'Activate' to create an API password to use with the account

3. Plugged in the values from step 1 and step 2 above into the code

I'm not sure about that syntax to the xml.Open "POST method.

I think it might want an @ after the username/password, e.g.

xml.Open "POST", "http://" & Username & ":" & Password & "@api.supertweet.net/1/statuses/update.xml?status=" & tweet, False xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"