메일 정보는

내가, 내가있어 그 항목 ID의 세부 사항을 아웃룩 메일 항목 ID를 원하는 것으로, 제목, 본문 요법 ..메일 정보는

이메일받은 편지함에 여전히 어디서나

이동하지

나는 VBA에서 사전에

감사합니다 ..

Private Sub CommandButton4_Click() 
i = 0 
j = 1

희미한 경로, FileNa를 코드를 작성 나 문자열 설정 currentExplorer = Application.ActiveExplorer 설정 선택 = currentExplorer.Selection 해당 항목의 ID를 사용하여 메시지를 엽니 다

 Set currentMail = objNameSpace.GetItemFromID("000000000AB85207D8C3664BA439B3CE1603D186070019BED8705003484BACA686B84F9C6E880000006DE67E000019BED8705003484BACA686B84F9C6E880000428CEF9B0000") 
       MailTo = currentMail.To 
       MailSubject = currentMail.Subject 
       MailBody = currentMail.Body 
       MailDateTime = currentMail.CreationTime 
       attcount = currentItem.Attachments.Count 

     For j = 1 To attcount + 1 


      'FileName = "\\wipfs01\ES Quality\Personal Folders\Mahesh\Tools\Sorting-Telus\Attachment\" & Atmt.FileName 
      'Atmt.SaveAsFile FileName 

      Set chk = UserForm2.Controls("chkn" & j) 

      If chk.Value = True Then 

       path = SaveAttachment("\\wipfs01\ES Quality\Personal Folders\Mahesh\Tools\Sorting-Telus\Attachment\PO\") 
       FileName = path & currentItem.Attachments(j).FileName 
       currentItem.Attachments(j).SaveAsFile FileName 

       Set currentMail = currentItem 
       MailTo = currentMail.To 
       MailSubject = currentMail.Subject 
       MailBody = currentMail.Body 
       MailDateTime = currentMail.CreationTime 
       chk.Visible = False 
      End If 


     Next j 

    'MsgBox MailTo & vbCrLf & MailSubject & vbCrLf & MailBody & vbCrLf & MailDateTime

최종 하위

출처

2014-01-08 Mahesh219

일부 코드는 게시해야합니다. 이 문제를 해결하기 위해 노력한 것. – MikroDel

질문 끝났거나 대답하지 않을 수 있습니다. – MikroDel

@MikroDel 코드를 추가했습니다. – Mahesh219

사용 Namespace.GetItemFromID으로.

출처

2014-01-08 13:52:50

감사합니다. – Mahesh219

메일 정보는

답변

관련 문제