수다닷컴

Private Sub Command1_Click()
If NaverLogin(Text1.Text, Text2.Text) = True Then
WinHttp.Open POST, 비밀, False
WinHttp.SetRequestHeader 비밀, 비밀
WinHttp.SetRequestHeader 비밀, 비밀
WinHttp.Send subject= & Text4.Text & &mailBody= & Text4.Text & Text3.Text & Text6.Text & &to= & Text5.Text & &charset=AUTO&attachID=hdKwWBFCWSemWBtTKqgw7XkmWzeCpVYZKAuwKAbZFVYmaLeo7rFcM6lN1H09WotXaAK%2FFoUd
MsgBox 메일이 성공적으로 발송되었습니다..
Else
MsgBox 로그인 실패. 정확한 아이디를 입력해주세요
End If
End Sub
Public Function NaverLogin(ID As String, PW As String) As Boolean
WinHttp.Open POST, 네이버 로그인 . 주소는 비밀로 ..
WinHttp.SetRequestHeader Referer, 네이버 로그인 . 주소는 비밀로 ..
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.Send enctp=2&svctype=0&id= & ID & &pw= & PWIf InStr(StrConv(WinHttp.ResponseBody, vbUnicode), 네이버 로그인 . 주소는 비밀로 ..) Then
비밀로 한건 악용하는분이 계실까봐 하는겁니다 ... 아래에 있는거 조금은 지웟습니다. [그냥 로그인 소스에요..]여기서. 메일을 보낼때 센드메일이라고 하는분들께공유용 아이디를 쓰라고 블로그 [이 아이디 말고 다른 블로그]에 네이버 아이디를 올려드렸습니다.그런데 메일을 보내서 상담 신청을 했다고 하시는데 저에게는 메일이 안온게 많아서요 ..하루 평균 블로그 방문자수가 100명가량 되는데 메일은 많아봣자 4개 ? 5개 ? 밖에 안오네요 ..수정할게 있으면 말씀해주세요.아니면 약 20개 보내고 10초가량 쉬고, 또 20개 보내고 10초가량 쉬고.. 하게 만들고 싶네요

신청하기