아웃룩 규칙을 사용하다보면 뭔가 2%정도 부족하다는 것을 느낀다.
그런데 규칙을 잘 보면 스크립트를 사용할 수 있게 되어 있다.
어디 한 번 써보자.
그리고 아웃룩에서 Alt + F11 키를 눌러 VB 편집기를 띄운다.
모듈을 추가해서 다음과 같이 스크립트를 넣는다.
Sub NewMailBySeoddong(myMail As MailItem)
Dim strID As String
Dim objMail As Outlook.MailItem
strID = myMail.EntryID
Set objMail = Application.Session.GetItemFromID(strID)
MsgBox (objMail.Subject)
objMail.Subject = objMail.Subject + "_By Rule"
objMail.BodyFormat = olFormatPlain
objMail.Save
Set objMail = Nothing
End Sub
위의 스크린샷 처럼 규칙을 만들고 스크립트를 클릭하면 방금 만든 매크로 이름이 보인다.
그걸 선택.
그리고 메일을 보내보면 제대로 실행되는 것을 알 수 있다.
만약 잘 안된다면 아웃룩 매크로 보안 설정이 문제일 것이다. 보안 설정을 "모두 알람"으로 바꾸고 아웃룩 재실행시키고 다시 테스트해보자.
