Private Sub sendhotmail()


Dim objHTTP As Object
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Dim ipos As Long
usrnme = "any@hotmail.com"
recipient = "anybody@anywhere.com"
pwrd = "yourpass"
'get login form contents ===========
strWebPage = "http://login.live.com/login.srf?id=2"
objHTTP.Open "GET", strWebPage, False
objHTTP.send
strRequest = objHTTP.responseText
acx = Split(Split(strRequest, "action=""")(1), """")(0)
ipos = InStr(1, strRequest, "PPSX")
Do While ipos > 0
sNumbers = Mid$(strRequest, ipos, 300)
ppsx = Split(Split(sNumbers, "value=""")(1), """")(0)
ipos = InStr(ipos + 1, strRequest, "PPSX")
Loop
ppft = Split(Split(strRequest, "id=""i0327"" value=""")(1), """")(0)
objHTTP.Open "POST", acx, True
objHTTP.setRequestHeader "Keep-Alive", "300"
objHTTP.setRequestHeader "Connection", "Keep-Alive"
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Content-Length", Len(ppft)
submurl = "PPSX=" & ppsx & "PwdPad=IfYouAreReadingThisYouHaveTooMuchFr&login=" & usrnme & "&passwd=" & pwrd & "&LoginOptions=2&PPFT=" & ppft & CInt(1000 * Rnd())
objHTTP.send (submurl)
Do While objHTTP.ReadyState <> 4
DoEvents
Loop
strRequest = objHTTP.responseText
logn = Split(Split(strRequest, "replace(""")(1), """")(0)
objHTTP.Open "GET", logn, False
objHTTP.send
Do While objHTTP.ReadyState <> 4
DoEvents
Loop

cid = Split(Split(objHTTP.responseText, "EditMessageLight.aspx?n=")(1), """")(0)

cpse = "http://by112w.bay112.mail.live.com/mail/EditMessageLight.aspx?n=" & cid

objHTTP.Open "GET", cpse, False
objHTTP.send
Do While objHTTP.ReadyState <> 4
DoEvents
Loop
cpse2 = "http://by112w.bay112.mail.live.com/mail/SendMessageLight.aspx?_ec=1&n=" & Split(Split(objHTTP.responseText, "SendMessageLight.aspx?_ec=1&n=")(1), "'")(0)

 Idboundary = "13005221541009"

  Boundary = String(27, "-") & Idboundary

'form contents

strPOST = _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""__VIEWSTATE""" & vbCrLf & vbCrLf & "" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""mt""" & vbCrLf & vbCrLf & "" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""MsgPriority""" & vbCrLf & vbCrLf & "0" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""ToolbarActionItem""" & vbCrLf & vbCrLf & "SendMessage" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""fMsgSentState""" & vbCrLf & vbCrLf & "NOACTION" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""fFrom""" & vbCrLf & vbCrLf & usrnme & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""fTo""" & vbCrLf & vbCrLf & recipient & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""fCc""" & vbCrLf & vbCrLf & "" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""fBcc""" & vbCrLf & vbCrLf & "" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""fSubject""" & vbCrLf & vbCrLf & "test" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""fMessageBody""" & vbCrLf & vbCrLf & "hello" & vbCrLf & _
"--" & Boundary & vbCrLf & "Content-Disposition: form-data; name=""editmessagearea""" & vbCrLf & vbCrLf & "hello" & vbCrLf & _
"--" & Boundary & "--" & vbCrLf

 
objHTTP.Open "POST", cpse2, False
objHTTP.setRequestHeader "Host", "http://by112w.bay112.mail.live.com/mail.live.com"
objHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12"
objHTTP.setRequestHeader "Accept", "text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5"
objHTTP.setRequestHeader "Accept-Language", "en-us,en;q=0.5"
objHTTP.setRequestHeader "Accept-Encoding", "gzip , deflate"
objHTTP.setRequestHeader "Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7"
objHTTP.setRequestHeader "Keep-Alive", "300"
objHTTP.setRequestHeader "Connection", "Keep-Alive"
objHTTP.setRequestHeader "Referer", "http://by112w.bay112.mail.live.com/mail/EditMessageLight.aspx?n=" & cid
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Boundary
objHTTP.setRequestHeader "Content-Length", Len(strPOST)
objHTTP.send (strPOST)
Do While objHTTP.ReadyState <> 4
DoEvents
Loop

'the response text always ends up at the 'generic' version of the 'page after the post', so it is as if not even an *attempt* to post was made. so there has to be something missing in the post section of the code that triggers the post.
On Error Resume Next
Kill "C:\0test.txt"
On Error GoTo 0
FileNum = FreeFile()
Open "C:\0test.txt" For Append As #FileNum
Print #FileNum, objHTTP.responseText
Close #FileNum

If InStr(1, objHTTP.responseText, "Your message has been sent") > 0 Then
MsgBox "Send successful"
Else
MsgBox "Send failed"
End If



'log out
objHTTP.Open "Get", "http://login.live.com/logout.srf?_lang=EN&lc=1033&id=2&ru=http://www.msn.com&dontall=", False
objHTTP.send

Set objHTTP = Nothing
End Sub