2009-04-27 7 views
2

Outlook에서 특정 텍스트 문자열의 To : 목록을 검색하는 매크로를 만들려고합니다. 단 하나 (또는 ​​두 개 등) 주소를 제외한 모든 주소에 해당 메시지가있을 경우 메시지를 내 보냅니다. 이 작업을 수행하는 간단한 방법이 있습니까?Outlook - 전자 메일 주소 유형을 확인하십시오.

기본적으로 주소에 문자열 'xyz'가있는 사람에게 제한된 메시지를 보낼 수 없도록하는 것을 쓰고 있습니다. 하나 이상의 사람에게 주소가 없으면 제한된 메시지를 보낼 수 없습니다. 자동 완성 기능은 하나씩 확인하지 않고도이 작업을 어렵게 만듭니다.

답변

3

Outlook VBA를 사용하여 가능합니다.

사용자가 이메일을 보낼 때 이벤트 훅을 작성해야합니다. 이 작업은 Application_ItemSend (ByVal 항목을 개체로, Cancel As Boolean으로)를 사용하여 수행됩니다. 여기서 Item은 전송되는 항목 (전자 메일 또는 약속)이고 cancel은 전자 메일의 전송을 중지하도록 설정할 수있는 부울입니다.

코드에서 Item 개체의받는 사람 컬렉션을보고 누가 전자 메일을 받을지 확인해야합니다. 예를 들어 :

Dim CurrRecip As Recipient 
For Each CurrRecip in Item.Recipients 
    If InStr(1, CurrRecip.Address , "your search text here" , vbCompareText) Then 
     debug.print "Message here..." 
    End If 
Next CurrRecip 

희망이 도움이 ...

관련 문제