수다닷컴

센드메일을 이용해서 후원 프로그램을 제작하려고 합니다.인터넷에서는 파이어 폭스로 attachID의 뒷값을 따서 붙여넣기 하라고 해서 붙여넣기를 하였습니다.그런데 소스를딸데 네이버 로그인한 아이디로 로그인하지 않으면 메일이 전송이 안되더라고요,메일 전송소스 어떻게 따야할가요?http://mail.naver.com/pv/sendresult.jsp?attachID=csbwKAtwKAUwKx2wBqbw7rwlWqulFxKTFogmaxKwKAvlKAgZ&time=1389931105192Private Sub Command1_Click()
Winhttp.Open POST, https://nid.naver.com/nidlogin.login
Winhttp.SetRequestHeader Referer, http://static.nid.naver.com/login.nhn?svc=me&url=http%3A%2F%2Fwww.naver.com&t=20120405
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
Winhttp.Send id= & Text1.Text & &pw= & Text2.Text & &enctp=1&svctype=0&saveID=&smart_level=1
If InStr(StrConv(Winhttp.ResponseBody, vbUnicode), http://static.nid.naver.com/sso/cross-domain.nhn?sid=) Then
MsgBox 네이버 로그인 성공, vbInformation,
Else
MsgBox 네이버 로그인 실패, vbCritical,
End If
End SubPrivate Sub Command2_Click()
Winhttp.Open POST, http://mail.naver.com/json/write/send/
Winhttp.SetRequestHeader Referer, http://mail.naver.com/
Winhttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded; charset=utf-8
Winhttp.Send senderName= & Text3 & &to= & Text4 & &cc=&bcc=&subject= & Text5 & &body= & Text6 & &contentType=html&charset=AUTO&sendSeparately=false&saveSentBox=true&type=new&fromMe=0&attachID=csbwKAtwKAUwKx2wBqbw7rwlWqulFxKTFogmaxKwKAvlKAgZ.&reserveDate=&reserveGMT=&reserveTime=&calendarVal=&autoSaveMailSN=&addReceiverAddress=false&attachCount=0&attachSize=0&bigfile=&sessionID=&seqNums=&priority=0&ndriveFileInfos=&lists=&serviceID=&u= & Text1
MsgBox 전송, vbInformation,
End Sub

신청하기