VBA Excel Outlook에서 끌어서 놓기 전자 메일

Question

Excel에 양식을 작성하여 사서함에 전자 메일을 보내고 있습니다. 이 부분은 잘 작동합니다. 이제

내가 "백 오피스"를 개발하기 위해 찾고 있어요는에 허용 할 통합 문서 엑셀 :

끌어 엑셀 버튼

저장 폴더에이 이메일에 전망 이메일을 드롭을

이 이메일을 읽고 모든 부품 (발신자의 전자 메일, 제목, 본문 등)을 Excel 스프레드 시트에 저장하십시오. 내가 가져 오기 단계 (드래그 및 전망에서 하락) 할 노력하고있어하지만이 작업을 수행하는 방법을 찾을 수 없습니다

... 당신은 이메일을 삭제할 수 없습니다

Answer 1

도와

감사합니다 버튼 (글쎄, 할 수 있지만 ...) 대신 편집 상자 (Outlookbox)를 만들고 이벤트 처리기에 연결합니다. 다음은 시작하는 몇 가지 코드는 다음과 같습니다 단순히 엑셀의 VBA는 모든 이메일을 수집하고이를 저장하지 왜

는 대신에 드래그 & 드롭 기능의

Private Sub Outlookbox_Change() 
    Dim olApp As Object 'Outlook.Application 
    Dim olExp As Object 'Outlook.Explorer 
    Dim olSel As Object 'Outlook.Selection 
    Dim i As Integer 
    Dim theSender as String 
    Dim theDate as String 
    Dim theRecipient as String 
    Dim theSubject as String 
    Dim theMessage as String 

    Set olApp = GetObject("", "Outlook.Application") 
    Set olExp = olApp.ActiveExplorer 
    Set olSel = olExp.Selection 
    For i = 1 To olSel.Count ' If multiple emails dropped 
     With olSel.Item(i)  ' For each email 
     theSender = .Sender 
     theDate = .ReceivedTime 
     theRecipient = .To 
     theSubject = .Subject 
     theMessage = .Body 
     End With 
    Next i 
End Sub