특정 이벤트에 자동으로 메일을 보내고 싶을 때가 있다.
특정 이벤트야 규칙으로 만들면 되고, 메일을 누군가에게 보낼 때에는 어쩔 수 없이 스크립트를 써야 한다.
스크립트를 만들어놓고 규칙에서 스크립트 호출하면 간단하다.
아래 예제는 팀장 이상의 주요 인물에게서 메일이 왔을 때 vip에게 메일이 왔다고 내 개인 메일로 알림을 보내는 스크립트이다. 이런 스크립트를 작성하게 된 이유가 사내 메일 시스템은 아이폰 기본 메일 클라이언트를 사용할 수 없어서 vip에 대한 특별 알림을 받을 수 없기 때문이다.
그래서 평소 사용하지 않던 me.com에 내가 보내면 vip 알림 처리하게 했는데 꽤 쓸만하다.
메일 제목으로 보낸이, 메일 제목을 보내도록 했다.
Sub VIPMailAlarm(vipMail As MailItem)
Dim strID As String
Dim objMail As Outlook.MailItem
Dim alarmMail As Outlook.MailItem
strID = vipMail.EntryID
Set objMail = Application.Session.GetItemFromID(strID)
'MsgBox (objMail.Subject)
' 새로운 알림 메시지 작성
Set alarmMail = Application.CreateItem(olMailItem)
alarmMail.Subject = "[" + objMail.SenderName + "] " + objMail.Subject
alarmMail.Body = "vip 메일 수신 알림"
alarmMail.Recipients.Add ("email@domain.com")
alarmMail.Send
'MsgBox (alarmMail.Subject)
Set objMail = Nothing
Set alarmMail = Nothing
End Sub
참고 사이트 : http://vboffice.net/en/developers/send-emails-automatically
