Outlook 메시지 본문을 가져 오는 방법

Question

전자 메일을 보내는 일부 코드가 있습니다. 기본 메시지를 작성한 후 사용자가 수정할 수 있습니다. 내가하고 싶은 것은 보내지는 메시지를 보관하지만 추가 될 수있는 수신자를 보관하는 것입니다. 문제는 사용자가 메일 객체 보내기를 클릭하면 null로 설정되는 것입니다.

Public Shared Function SendRFQ(ByVal strRFQID As String, ByVal strTo As String, ByRef EmailSent As Structs.Email) As Boolean 

    Dim bRC As Boolean 
    Dim objOutlook As Outlook.Application 
    Dim objEmail As Outlook.MailItem 

    objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application) 
    objEmail = CType(objOutlook.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem) 

    With objEmail 
     .CC = "Employee@Work.com" 
     .Subject = String.Format("RFQ") 
     .To = strTo 
     .Body = Constants.RFQ.Email.Body 
     .Display(True) 
    End With 

    'objEmail is null 
    EmailSent.To = objEmail.To 
    EmailSent.Subject = objEmail.Subject 
    EmailSent.Body = objEmail.Body 

End Function 

COM 예외가 발생합니다. "항목이 이동되었거나 삭제되었습니다."

이 작업을 수행 할 수있는 방법이 있습니까?

Dim cc = "Employee@Work.com" 
Dim subject = String.Format("RFQ") 
Dim body = Constants.RFQ.Email.Body 
With objEmail 
    .CC = cc 
    .Subject = subject 
    .To = strTo 
    .Body = body 
    .Display(True) 
End With 

EmailSent.To = strTo 
EmailSent.Subject = subject 
EmailSent.Body = body 

Answer 1

당신은 MailItem의 Sendevent를 사용하여이 작업을 수행 할 수 있습니다 :

Answer 2

당신은 이메일의 내용의 값을 유지하고하는 ByRef 개체를 채울 필요가있다. 다음 Console 응용 프로그램에서는 방법을 보여줍니다. 당신은 당신의 필요에 적응할 수 있어야합니다.

Imports Microsoft.Office.Interop 

Module Module1 

    Private WithEvents objEmail As Outlook.MailItem 

    Sub Main() 

     Dim objOutlook As Outlook.Application 

     objOutlook = CType(CreateObject("Outlook.Application"), Outlook.Application) 
     objEmail = CType(objOutlook.CreateItem(Outlook.OlItemType.olMailItem), Outlook.MailItem) 

     With objEmail 
      .CC = "a@b.com" 
      .Subject = "Subject" 
      .To = "jc@d.com" 
      .Body = "Body" 
      .Display(True) 
     End With 

     objOutlook = Nothing 

    End Sub 

    Private Sub objEmail_Send(ByRef Cancel As Boolean) Handles objEmail.Send 
     Console.WriteLine(objEmail.Body) 
     Console.WriteLine(objEmail.To) 
     Console.WriteLine(objEmail.Subject) 
    End Sub 
End Module