почта детали с вхождением Id

Question

Я Outlook Mail ввода ID, я хочу Подробности этого идентификатора записи, что, чтобы, при условии, Body ECT ..

сообщения электронной почты еще в почтовом ящике не перемещаются в любом месте

Я пишу код в VBA

заранее спасибо ..

Private Sub CommandButton4_Click() 
i = 0 
j = 1 

дим путь, FILENA мне As String Set currentExplorer = Application.ActiveExplorer Selection Set = currentExplorer.Selection

 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 

End Sub

Answer 1

Используйте Namespace.GetItemFromID, чтобы открыть сообщение, используя его идентификатор записи.