네이버 메일보내기 오류
곰돌곰돌
Public Class Form1 Dim Winhttp As New WinHttp.WinHttpRequest
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Winhttp.Open(POST, https://nid.naver.com/nidlogin.login) Winhttp.SetRequestHeader(Referer, https://nid.naver.com/nidlogin.login) Winhttp.SetRequestHeader(Content-Type, application/x-www-form-urlencoded) Winhttp.Send(id= & TextBox1.Text & &pw= & TextBox2.Text & &saveID=0&enctp=2&smart_level=-1&svctype=0) TextBox3.Text = Winhttp.ResponseText If InStr(Winhttp.ResponseText, 네이버에 등록되지 않은 아이디이거나, 아이디 또는 비밀번호를 잘못 입력하셨습니다.) Then MsgBox(네이버에 등록되지 않은 아이디이거나, 아이디 또는 비밀번호를 잘못 입력하셨습니다., vbCritical, 알림) Else MsgBox(로그인성공, vbInformation, 알림) TextBox1.Enabled = False TextBox2.Enabled = False End If End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Winhttp.Open(POST, http://mail.naver.com/json/write/send/) Winhttp.SetRequestHeader(Referer, http://mail.naver.com/) Winhttp.SetRequestHeader(Content-Type, applicatioplication/x-www-form-urlencoded; charset=utf-8) Winhttp.Send(senderName=%EA%B9%80%EC%84%B1%EC%A4%80&to= & TextBox4.Text & &cc=&bcc=&subject= & TextBox5.Text & &body= & TextBox5.Text & &contentType=html&sendSeparately=false&saveSentBox=true&type=new&fromMe=0&attachID=R-YXKAKwKAUlKquwBqUm7rkNWBGOpzCdWLYZKquXFogdKAK9KoU.&reserveDate=&reserveGMT=&reserveTime=&calendarVal=&autoSaveMailSN=864&attachCount=0&attachSize=0&bigfile=0&sessionID=&seqNums=&priority=0&ndriveFileInfos=&lists=&serviceID=&bigfileCount=&uploaderType=html5&u= & TextBox1.Text) MsgBox(메일전송 성공하였습니다, vbInformation, ) TextBox3.Text = Winhttp.ResponseText End SubEnd Class
프로그램에 건의하기 기능을 제작하고있는데 자꾸 메일이 전송됬다곤하고 전송이안되네요 ㅠㅠ..
뭐가잘못됬을까요..
