outlook (4) 썸네일형 리스트형 [아웃룩] 특정 이벤트에 자동 메일 보내기 특정 이벤트에 자동으로 메일을 보내고 싶을 때가 있다. 특정 이벤트야 규칙으로 만들면 되고, 메일을 누군가에게 보낼 때에는 어쩔 수 없이 스크립트를 써야 한다.스크립트를 만들어놓고 규칙에서 스크립트 호출하면 간단하다. 아래 예제는 팀장 이상의 주요 인물에게서 메일이 왔을 때 vip에게 메일이 왔다고 내 개인 메일로 알림을 보내는 스크립트이다. 이런 스크립트를 작성하게 된 이유가 사내 메일 시스템은 아이폰 기본 메일 클라이언트를 사용할 수 없어서 vip에 대한 특별 알림을 받을 수 없기 때문이다. 그래서 평소 사용하지 않던 me.com에 내가 보내면 vip 알림 처리하게 했는데 꽤 쓸만하다.메일 제목으로 보낸이, 메일 제목을 보내도록 했다. Sub VIPMailAlarm(vipMail As MailItem.. [아웃룩] 서브폴더의 메일을 상위 폴더로 올리는 스크립트 Sub MoveToParentFolder() Dim userInbox As MAPIFolder Dim firstInbox As MAPIFolder Set userInbox = Session.Folders.Item("아웃룩백업").Folders.Item("받았다 편지함") MsgBox (userInbox.Folders.Count) For ii = 1 To userInbox.Folders.Count Set firstInbox = userInbox.Folders.GetFirst() For jj = 1 To firstInbox.Items.Count 'MsgBox (firstInbox.items.GetFirst()) firstInbox.Items.GetFirst().Move (Session.Folders.Item.. [아웃룩] 아웃룩 시작시 특정 기능 수행하는 스크립트 아웃룩을 시작할 때 마다 특정 기능을 수행하는 스크립트이다.특정 기능 - 정해진 폴더의 메일을 검색하여 보낸 사람 이름을 기준으로 폴더를 생성하고 그 폴더로 메일을 이동 아래의 코드를 ThisOutlookSession에 붙여넣으면 됨.(outlook2010 기준) Private Sub Application_Startup() Call RuleBySenderEnd Sub Sub RuleBySender() '보낸 사람으로 폴더를 만들고 거기에 메일 이동 Dim senderName As String Dim folderName As String Dim mi As MailItem Dim userInbox As MAPIFolder 'MsgBox (TypeName(Session.Folders.Item("아웃룩백업")... [아웃룩] 특정 이벤트에 실행되는 스크립트 아웃룩 2010 기준으로 작성됨. 새 메일이 온다거나, 특정 폴더에 새 글이 들어오는 경우 스크립트 발동 (규칙에서는 설정 할 수 없는 매크로 작성이 가능하다) 다음 두 예제를 ThisOutlookSession에 넣고 저장 후 아웃룩 재시작하면 된다. 재시작해도 안되는 경우가 왕왕 있는데 몇 번 재시작해보니 되긴 되더라. 보다시피 2번이 좀 더 간단하다. 1. Dim WithEvents colSentItems As Items Private Sub Application_Startup() Dim NS As Outlook.NameSpace Set NS = Application.GetNamespace("MAPI") Set colSentItems = NS.GetDefaultFolder(olFolderInbox)... 이전 1 다음
