이 소스는 업무용으로 웹용 그룹에어에서 사용하는 수신처 목록을
text 파일로 받은 후 해당 text 파일의 메일 수소들을 대상으로
아웃룩을 이용하여 메일을 발송하고자 만든 것입니다.


메모장을 실행시키고 아래 소스를 코딩한 후
//-----------------------------------------------------------------//
Function Delquotation(addr)
  dim rtn
  rtn = ""
  do while addr <> ""
    if mid(addr,1,1) = """" then
      addr = mid(addr,2,99)
    else
      rtn = rtn + mid(addr,1,1)
      addr = mid(addr,2,99)
    end if
  loop
  Delquotation = rtn 
end Function

Function FileReadAll(FileName)
  Dim fso, MyFile
  Dim SendToList
  Dim tmpTxt, tmpList
  Const ForReading = 1 

  SendToList = ""
  FilePath = "groups" & "\" & FileName & ".txt"

  Set fso = CreateObject("Scripting.FileSystemObject") 
  If not (fso.FileExists(FilePath)) Then
    msgbox FileName & "이(가) 없습니다."
    MyFile.Close
    exit function
  End If

  Set MyFile = fso.OpenTextFile(FilePath, ForReading)
 
  Do While MyFile.AtEndOfLine <> True
    tmpTxt = Delquotation(MyFile.ReadLine)

    if mid(tmpTxt,1,4) = "[그룹]" then ' 리스트가 그룹인경우 재귀호출
      SendToList = SendToList & FileReadAll(mid(tmpTxt,5,99))
    else
      SendToList = SendToList & ";" & tmpTxt
    end if
  Loop

  MyFile.Close
 
  FileReadAll = SendToList
End Function

Sub sendMail()

  Dim objOutlook
  Dim det, SendToList
 
  dept = inputbox("메일을 발송할 부서명을 정확히 입력해 주세요","부서메일발송")

  SendToList = FileReadAll(dept)
  if SendToList = "" then
    exit sub
  end if
 
  Dim itmNewEmail
  Set objOutlook = CreateObject("Outlook.Application")
  Set itmNewEmail = objOutlook.CreateItem(olMailitem)

  With itmNewEmail
   .To = SendToList
   .Subject = ""
   .HTMLBody = ""
   .Display
  End With

end sub

Call sendMail

//---------------------------------------------//
C:\sendmail.vbs로 저장합니다.
물론 수신처 그룹별 Text파일은 따로 만들어 두어야 합니다.
저의 경우 
마케팅본부 총괄.txt에 "[그룹]경영기획_지원총괄 경영기획_지원본부"가 있고
경영기획_지원총괄 경영기획_지원본부.txt에는
"[그룹]경영기획_지원총괄 경영기획_지원본부 재무팀"
"[그룹]경영기획_지원총괄 경영기획_지원본부 정산_신용관리팀"
"이문순<XXXXXX@inicis.com>"
다시 경영기획_지원총괄 경영기획_지원본부 재무팀.txt에는
수신할 사람 리스트를 뭐 이렇게 파일을 만들어 두었습니다.

물론 익스플로러 자체에 있는 주소록에 사람들을 등록하고
그룹핑 해 두었다가 보내면 되지만 웹에서 사용하고 있는 시스템이
아웃룩이랑 호환이 안되기 때문에 아웃룩용 메일그룹을 만들려다가
이상한 쪽으로 빠져서 이걸 만들었습니다.

암턴 vbs니까 잘 생각해 보면 여기저기 적용할 것이 있을것 같아
올려 놓습니다.

크리에이티브 커먼즈 라이선스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이선스에 따라 이용하실 수 있습니다.

이올린에 북마크하기