Dim WINHTTP As New WinHttpRequest
Private Sub btnMail_Click()
Dim sID As String '-- loginid
Dim sPW As String '-- loignpw
Dim sAttachld As String '-- Attachld
Dim sSubject As String '-- Subject
Dim sBody As String '-- Body
Dim sMail As String '-- Mail
Dim sSenderName As String '-- SenderName '-- 보내는 이의 로그인정보
sID = "아이디"
sPW = "비밀번호"
'-- 보내는 이의 메일정보
sSubject = "메일제목"
sBody = "메일내용"
'-- 받는 이의 메일주소
sMail = "받는이"
With WINHTTP
.Open "POST", "http://nid.naver.com/nidlogin.login"
.SetRequestHeader "Referer", "http://nid.naver.com/nidlogin.login"
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send "id=" & sID & "&pw=" & sPW & "&saveID=0&enctp=2&smart_level=-1&svctype=0"
DoEvents
If InStr(StrConv(.ResponseBody, vbUnicode), "http://static.nid.naver.com/sso/cross-domain.nhn?sid=") Then
MsgBox "login", vbInformation, "Msg"
Else
MsgBox "Not' login", vbExclamation, "Msg"
Exit Sub
End If
.Open "POST", "http://mail.naver.com/json/write/"
.SetRequestHeader "Referer", "http://mail.naver.com/?n=1379438870663&v=f"
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0"
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
.Send "orderType=new&lists=&u=" & sID
sAttachld = Split(Split(.ResponseText, "attachId"":""")(1), """,")(0)
sSenderName = Split(Split(.ResponseText, "fromName"":""")(1), """,")(0)
.Open "POST", "http://mail.naver.com/captcha/check/?u=" & sID
.SetRequestHeader "Referer", "http://mail.naver.com/?n=1379438870663&v=f"
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0"
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
.Send
.Open "POST", "http://mail.naver.com/json/write/send/?aId=" & sAttachld & "&aCount=0&aSize=0"
.SetRequestHeader "Referer", "http://mail.naver.com/?n=1379438870663&v=f"
.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0"
.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
.Send "senderName=" & sSenderName & _
"&to=" & sMail & _
"&cc=&bcc=" & _
"&subject=" & sSubject & _
"&body=" & sBody & _
"&contentType=html" & _
"&sendSeparately=false" & _
"&saveSentBox=true&type=new&fromMe=0" & _
"&attachID=" & sAttachld & _
"&reserveDate=&reserveGMT=&reserveTime=&calendarVal=&autoSaveMailSN=&attachCount=0" & _
"&attachSize=0&bigfile=&sessionID=&seqNums=&priority=0&ndriveFileInfos=&lists=&serviceID=" & _
"&bigfileCount=&uploaderType=html5&bigfileNotice=false&u=" & sID
If InStr(.ResponseText, "메일을 성공적으로 보냈습니다.") Then
MsgBox "메일을 성공적으로 보냈습니다.", vbInformation, "알림"
Else
MsgBox "메일을 보내지 못하였습니다." & Chr(13) & Chr(13) & "오류내용-" & Chr(13) & Split(Split(.ResponseText, "MessageInDetail"":""")(1), """,")(0), vbCritical, "알림"
End If
End With
End Sub
'VB6.0' 카테고리의 다른 글
Morse Code(모스부호) (0) | 2013.12.15 |
---|---|
페이스북 콕 찌르기 (facebook pokes) (2) | 2013.11.18 |
"C:\Windows\system32\ieframe.dll\1 을 찾을수없습니다" 라는 에러 (0) | 2013.09.01 |
인터넷 기초사용기 (0) | 2013.08.27 |
BlackHouse.cjstyles (0) | 2013.06.27 |