With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim olkRecipient As Outlook.Recipient Set Item.SaveSentMessageFolder = Application.Session.Folders("sent New").Folders("Sent") For Each olkRecipient In Item.Recipients LogAddress olkRecipient.Name, olkRecipient.Address Next Set olkRecipient = Nothing toMe Item If Not bolBulkMail Then If (Not bolReadReceipt) And (Not bolDeliveryReceipt) Then If MsgBox("Do you want receipts for this message?", vbQuestion + vbYesNo, "Request Receipts") = vbYes Then Item.ReadReceiptRequested = True Item.OriginatorDeliveryReportRequested = True End If Else Item.ReadReceiptRequested = bolReadReceipt Item.OriginatorDeliveryReportRequested = bolDeliveryReceipt End If End If 'CheckFollowUp Item, Cancel Item.Save End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel 2007 Random Generate List Based on Defined Source Cells||3||32|
|Day Count issue - Days360?||12||30|
|How to create UDF to pull out Number Prefixes from Excel cell values?||10||25|
Join the community of 500,000 technology professionals and ask your questions.