See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.
Sub RecipientReport() Const xlWorkbookDefault = 51 Dim olkMessage As Outlook.MailItem, _ olkRecipient As Outlook.Recipient, _ excApp As Object, _ excBook As Object, _ excSheet As Object, _ lngRow As Long Set excApp = CreateObject("Excel.Application") Set excBook = excApp.Workbooks.Add() Set excSheet = excBook.Worksheets(1) excApp.Visible = True With excSheet .Cells(1, 1) = "Subject" .Cells(1, 2) = "To" .Cells(1, 3) = "Delivered" .Cells(1, 4) = "Read" End With lngRow = 2 For Each olkMessage In Application.ActiveExplorer.Selection excSheet.Cells(lngRow, 1) = olkMessage.Subject For Each olkRecipient In olkMessage.Recipients With olkRecipient excSheet.Cells(lngRow, 2) = olkRecipient.Address Select Case .TrackingStatus Case olTrackingDelivered excSheet.Cells(lngRow, 3) = olkRecipient.TrackingStatusTime Case olTrackingNotDelivered Case olTrackingRead excSheet.Cells(lngRow, 4) = olkRecipient.TrackingStatusTime Case olTrackingNotRead Case olTrackingNone End Select End With lngRow = lngRow + 1 Next Next Set excSheet = Nothing 'Change the file name and path on the next line' excBook.SaveAs "C:\eeTesting\Message Tracking.xlsx", xlWorkbookDefault excBook.Close True Set excBook = Nothing Set excApp = Nothing Set olkRecipient = Nothing Set olkMessage = Nothing MsgBox "Done", vbInformation + vbOKOnly, "Recipient Report" End Sub
|SCCM2012 sp2 CU3 cant see boot images missing tabs||3||27|
|Word 2016 - Level 4 Heading Not Displaying Previous Heading Numbers||15||31|
|Sharepoint 2012 site not live after migration||7||28|
|Mac Online Backups||7||42|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
10 Experts available now in Live!