Outlook에서 메시지를 보낼 때 주제를 잊어버리거나 첨부 파일을 추가하는 스크립트 해결 방법

1358 단어
Outlook에서 메일을 보낼 때 테마를 쓰거나 첨부파일을 추가하는 스크립트 해결 방법을 잊어버리기: Alt+F11을 누르면 VBA 통합 개발 환경에 들어가고 왼쪽 상단에 있는 프로젝트 자원 관리자에서 프로젝트 1/Microsoft Office Outlook 대상/This Outlook Session을 차례로 펼치며 This Outlook Session을 두 번 클릭하고 코드 입력 인터페이스를 열고 아래 코드를 붙여 종료를 저장하면 된다.이후 메일을 보낼 때마다 outlook에서 이 함수를 자동으로 호출하여 테마가 있는지, 첨부 파일이 누락되었는지 확인합니다.
 
Private Sub Application_ItemSend(ByVal Item As Object,Cancel As Boolean)  
  
    Dim lngres As Long  
  
    '            
  
    If InStr(1, Item.Body, "  ") <> 0 Then  
  
    If Item.Attachments.Count = 0 Then  
  
    Application.Explorers(1).Activate  
  
    lngres = MsgBox("         ,        !" & Chr(10) & "    ?",_  
  
    vbYesNo + vbDefaultButton2 + vbQuestion,"  ")  
  
     
  
    If lngres = vbNo Then  
  
    Cancel = True  
  
    Item.Display  
  
    Exit Sub  
  
    End If  
  
     
  
     
  
    End If  
  
    End If  
  
     
  
    '         
  
    If Item.Subject = "" Then  
  
    Application.Explorers(1).Activate  
  
    lngres = MsgBox("         !" & Chr(10) & "    ?",_  
  
    vbYesNo + vbDefaultButton2 + vbQuestion,"  ")  
  
    If lngres = vbNo Then  
  
    Cancel = True  
  
    Item.Display  
  
    Exit Sub  
  
    End If  
  
    End If  
  
End Sub  

좋은 웹페이지 즐겨찾기