Access 주식 프로그램에 Outlook을 검색하기위한 버튼을 추가 할 수 있습니까?

Question

Outlook을 자동으로 검색하는 액세스 데이터베이스에 버튼을 만들 수있는 방법이 있습니까? 내 아이디어는 클릭 할 수있는 이메일 주소 외에 버튼이있는 것입니다. Outlook을 열거 나 Outlook으로 이동하면 열어서 고객의 이메일 주소를 검색합니다.

Answer 1

다음은 검색 문자열을 사용하고 기존 Outlook 인스턴스를 검색하거나 검색 할 새 인스턴스를 만드는 VBA 하위입니다. Office 2010에서 테스트되었습니다. 다른 사람이이 오류를 사용하면 실제 오류 처리기를 추가 할 가치가 있습니다.

"Microsoft Outlook 14.0 Object Library"또는 갖고있는 버전을 참조해야합니다. 도구 -> 참조를 통해 VBA 창에서이 작업을 수행 할 수 있습니다.

AdvancedSearch 방법을 사용하여 검색 결과를 Access 자체에 표시 할 수 있습니다.

Sub outlookSearch(searchString As String) 
Dim app As Outlook.Application 

'This will throw an error if there's no instances of Outlook running 
' so resume after the error. 
On Error Resume Next 
Set app = GetObject(, "Outlook.Application") 
On Error GoTo 0 'Replace this with a real error handler 

'If the app variable is empty 
If app Is Nothing Then 
    'Create a new instanc eof outlook 
    Set app = CreateObject("Outlook.Application") 
    'Add an explorer showing the inbox 
    app.Explorers.Add app.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) 
    'Make the explorer visible 
    app.Explorers(1).Activate 
End If 

'Search all folders for searchString 
app.ActiveExplorer.search searchString, olSearchScopeAllFolders 

Set app = Nothing 
End Sub