VB스크립트에서 첨부문서를 가지고 이메일 보내기

윈도우에서 태스크 스케쥴러를 이용해 매일 한번 스크립트를 실행하고 그 결과물을 첨부해서 특정이메일로 보내면, SharePoint서버가 자동으로 그 문서를 업로드하는 것이 요구사항이다. 

### vb

Dim FSO, dFile, sHTML
sHTML = Get_HTML ("http://url-to-send")

Set FSO = CreateObject("Scripting.FileSystemObject")
Set dFile = FSO.CreateTextFile("filename.csv", True)

dFile.Write UniToAsc(sHTML)
dFile.Close

Set dFile = Nothing
Set FSO = Nothing

Private Function Get_HTML (up_http)
 Dim xmlhttp
 Set xmlhttp = createobject("msxml2.xmlhttp.6.0")

 xmlhttp.open "get", up_http, False
 xmlhttp.send
 Get_HTML = xmlhttp.responsetext

 set xmlhttp = Nothing
End Function

Private Function UniToAsc(sString)
 Dim nLen, nPTR, sAsc
 nLen = Len(sString)

 For nPTR = 1 To nLen
  sAsc = sAsc & Chr(Asc(Mid(sString, nPTR, 1)))
 Next

 UniToAsc = sAsc
End Function