Outlook에서 전자 메일로 액세스 및 다시 보내기

Question

사용자가 단추를 클릭 할 수있는 양식을 설정하려고합니다. 연락처의 전자 메일 주소를 가져오고 새 전자 메일을 만들고 사용자가 해당 전자 메일을 입력 할 수있게합니다. 전자 메일로 보내고 전자 메일을 테이블에 저장하십시오.

하나의 작은 문제를 제외하고는 제대로 작동합니다. 이전 버전의 Outlook (2003 및 이전 버전)에서는 Word를 전자 메일 편집기로 설정할 수 있습니다. 이 경우 코드가 완료되지 않습니다. 사용자가 보내거나 (myInspector.CurrentItem이 취소됩니다) 이메일 메시지를 종료 할 때까지

Dim objOutlook As Object 
Dim objmessage As Object 
Dim myInspector As Variant 

Set objOutlook = CreateObject("outlook.application", "localhost") 
Set objmessage = objOutlook.createItem(0) 
objmessage.To = Me!email 
Set myInspector = objmessage.GetInspector 
myInspector.display 

(v THIS IS THE CODE THAT LOOPS, SEE BELOW v) 
While Not myInspector.CurrentItem Is Nothing 
    DoEvents 
Wend 

Outlook에서 전자 메일 편집기입니다, 위의 표시된 동안 블록이 반복됩니다. 그런 다음 계속해서 정보를 다시 Access로 가져옵니다. 그러나 Word가 전자 메일 편집기 인 경우 위에 표시된 코드는 영원히 반복됩니다 (myInspector.CurrentItem은 결코 지워지지 않습니다). 왜이 일을하는 지 누구나 아십니까? 그리고 만약 그렇게한다면, 내가 이것을 해결하기 위해 무엇을 할 수 있을까? 그래서 그것은 Outlook을 위해 이메일 편집기처럼 Word에서 작동합니까?

Answer 1

While Not objOutlook.ActiveInspector Is Nothing 
    DoEvents 
Wend 

광산에서 작동했습니다. 작동하는지 확인하십시오.

Answer 2

Outlook으로 Outlook을 편집기로 열면 Outlook과 Word의 새로운 인스턴스가 만들어집니다. OutlookMsg 개체를 통해 Word를 편집기로 사용하는 것을 취소 할 수 있어야합니다.

메시지가 간단하고 첨부 파일이없는 경우 메모 컨트롤에 입력하고 Access (sendObject 명령)에서 직접 보낼 수는 있지만 Outlook에 저장되지는 ​​않습니다.