rand(life)

출처는 아래에. Option Explicit Sub SendEmailWithrRange() Const olMailItem = 0 Dim rngToSend As Range, r As Range Dim FileName As String, FileName2 As String Dim strHtml As String Set rngToSend = Selection strHtml = RangeToHTML(rngToSend) With Sheets("address") For Each r In .Range("a1", .Cells(Rows.Count, "a").End(xlUp)) With CreateObject("Outlook.Application").CreateItem(olMailItem) .To = r.Value .Su..

이전의 포스트에서 썼던 것처럼, 여러사람에게서 지원서를 받아야하는 일이 생겼다. 원칙대로라면 이메일을 받고서 하나씩 답장을 해줘야하나, 그러기엔 일이 너무 많다. 게다가 Gmail은 수신확인 서비스를 지원하지 않기때문에 (정확히 말하면 이메일에 따라오는 이미지파일을 자동 다운로드못하게 차단하기 때문에) 지원서를 보낸 상대방은 내가 지원서를 잘 받았는지 확인할 수 없다. 그래서 접수가 안 되었다고 불안해하는 지원자의 전화를 몇 번 받았다. Outlook에서 "규칙"을 잘 이용하면 자동으로 회신할 수 있다는 이야기를 듣고 시도해 보았다. 처음에는 Microsoft Outlook 2007을 이용했다. MS Outlook 2007은 상당히 좋은 유틸리티이다. "규칙및 알림"을 잘 이용하면, 특정 단어가 들어있는..