VB.net 2005 Outlook 2003을 사용하여 전자 메일 보내기

Question

현재 Outlook에 전자 메일을 작성하여 사용자가 Outlook에서 원하는 내용을 입력 할 수 있도록 다음 코드를 사용하여 전자 메일을 보내면 시스템이 그들은 이메일을 저장하고 싶습니다.

  Dim objOutlook As Object 
      Dim objMessage As Object 
      Dim objInspector As Object 

      If strEMail <> "" Then 
       objOutlook = CreateObject("Outlook.Application") 
       objMessage = objOutlook.CreateItem(0) 
       objMessage.To = strEMail 

       objInspector = objMessage.GetInspector 
       objInspector.Display() 

       While Not objInspector.CurrentItem Is Nothing 
       End While 

       frmSaveSentEmail.BringToFront() 
       frmSaveSentEmail.ShowDialog() 

Word는 전자 메일 편집기로 Word를 사용하지 않는 한 Outlook 2003에서 정상적으로 작동합니다. 그러나 Word를 전자 메일 편집기로 설정하면 전자 메일 개체가 닫혀 있는지 테스트하는 while 루프가 끝나지 않습니다.

Word에서 편집기로도 작동하도록 다르게 처리하는 방법이 있습니까?

Answer 1

는에 루프를 변경까지했다.

Answer 2

VB.NET을 통해 Outlook을 프로그래밍하는 데별로 경험이 없지만 그 루프는 확실히 의심스러워 보입니다. 아마도 CurrentItem 속성을 반복적으로 검사하는 대신 검사자의 Close event을 활용해야합니다. 내가 잘못 본 것이 아니라면 이벤트 처리기 내에 대화 상자를 표시 할 수 있어야합니다.

While Not objOutlook.ActiveInspector Is Nothing 
    End While 

이 문제를 해결 :