Uploading an image via VBA

[korffr]

I am trying to upload an image to twitpic using VBA from Excel or Powerpoint using the twitpic API.
http://twitpic.com/api.do
I have tried all kinds of combinations but am getting stuck. I keep getting the message

errcode="1001" msg="Invalid Twitter username or password"
as the xml back

I don't think it is a twitpic issue since I have tried other services to upload as well.

To test it yourself you need to change the username password and the link to the filename.

Any help is appreciated.

Thanks,

Richard

Public Sub sendfile2()

    Dim adoStream
    Dim xmlhttp
    Dim tresult
    
    Set adoStream = CreateObject("ADODB.Stream")
    
    adoStream.Mode = 3          ' read write
    adoStream.Type = 1          ' adTypeBinary
    
    adoStream.Open
    adoStream.LoadFromFile ("c:\picture.jpg")
      
'Post the file data
    Set xmlhttp = CreateObject("Msxml2.XMLHTTP.4.0")
    UserName = "<Username>"
    Password = "<Password>"
    adoStream.Position = 0
    xmlhttp.Open "POST", "http://twitpic.com/api/uploadAndPost?username=" + UserName + "&password=" + Password + "&media=", False
    xmlhttp.setRequestHeader "Content-Length", adoStream.Size
    xmlhttp.setRequestHeader "Content-Type", "content=multipart/form-data"
    xmlhttp.send adoStream.Read(adoStream.Size)
    
    tresult = xmlhttp.responseText
    MsgBox tresult
    Set adoStream = Nothing
    Set xmlhttp = Nothing

End Sub

 

[korffr]

Bumping up the thread.

 

[korffr]

Anyone got any ideas or possible solutions ?

 

[John_w]

Maybe these two pages will help:

http://www.motobit.com/tips/detpg_post-binary-data-url/
http://www.motobit.com/tips/detpg_uploadvbaie/

 

[korffr]

John,

Thanks, that did help. The trick was that the form had the binary image as the first parameter, so the live http headers plugin did not show any parametr after that. By changing the order of the parameters, the other parameters started showing.

Thanks,

Richard