수다닷컴

다시 한번 질문 올립니다.winhttp fox 로 값을 다 따 왔는데...도 안보내 집니다.고수님 들 혹시 아시는 분...부탁 드립니다.ㅇ... WinHttp.Open POST, http://nmail.naver.com/write_popup3.nhn?srvid=naverme
WinHttp.SetRequestHeader Content-Type, application/x-www-form-urlencoded
WinHttp.SetRequestHeader Referer, http://nmail.naver.com/write_popup3.nhn?srvid=naverme또는 http://mail.naver.com/write/?cmd=send이걸로도 해봤구요..어떤분의 답변 대로 이런식으로도 보내 봤었는데도 안되네요..ㅠㅠWinHttp.Send senderName= & URLEncode(SenderName) & &to= & URLEncode(MailTo) & &cc=&bcc=&subject= & URLEncode(MailTitle) & body= & URLEncode(MailContents) & &contentType=text&charset=AUTO&sendSeparately=false&saveSentBox=true&type=new&fromMe=0&attachID=tsFCWrwm_LYmKoumKSevKquq7quTW60nW4kdFVeR16w5pBtdFx2wKx2l&reserveDate=&reserveGMT=&reserveTime=&calendarVal=&autoSaveMailSN=&addReceiverAddress=true&attachCount=0&attachSize=0&bigfile=0&sessionID=&seqNums=&priority=0&ndriveFileInfos=&lists=&srvflag=external&u=milnet4
--아래는 urlendcode 뻥션입니다....Public Function URLEncode(URLStr As String) As StringDim sURL As String
Dim sBuffer As String
Dim sTemp As String
Dim cChar As StringDim Index As IntegerDim lErrNum As Long
Dim sErrSource As String
Dim sErrDesc As String
Dim sMsg As StringOn Error GoTo ErrorHanddle:sURL = Trim(URLStr)
sBuffer =

For Index = 1 To Len(sURL)cChar = Mid(sURL, Index, 1)If cChar = 0 Or _
(cChar = 1 And cChar = 9) Or _
(cChar = a And cChar = z) Or _
(cChar = A And cChar = Z) Or _
cChar = - Or _
cChar = _ Or _
cChar = . Or _
cChar = * Then
sBuffer = sBuffer & cChar
ElseIf cChar = Then
sBuffer = sBuffer & +
Else
sTemp = CStr(Hex(Asc(cChar)))
If Len(sTemp) = 4 Then
sBuffer = sBuffer & % & Left(sTemp, 2) & % & Mid(sTemp, 3, 2)
ElseIf Len(sTemp) = 2 Then
sBuffer = sBuffer & % & sTemp
End If
End IfNext
URLEncode = sBufferExit Function

ErrorHanddle:
URLEncode =

lErrNum = err.Number
sErrSource = err.Source
sErrDesc = err.Description

sMsg = vbCrLf & vbCrLf & _
Error Object : EgoCube.URLTools, & vbCrLf & _
Error Method : Public Function URLEncode(URLStr As String) As String, & vbCrLf & _
Error Number : & lErrNum & , & vbCrLf & _
Error Source : & sErrSource & , & vbCrLf & _
Error Description : & sErrDesc
App.LogEvent sMsg, vbLogEventTypeError

err.Raise lErrNum, sErrSource, sErrDescExit FunctionEnd Function

신청하기