On-screen guidance at the moment of need enables you & your employees to focus on the core, you can now boost your adoption rates swiftly and simply with one easy tool.
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 Checkboxes that will return emails addresses in the BCC field into Outlook||3||50|
|How call an value from a table to other table when specific value associate come from||19||34|
|Need conditional formating when doubles||14||20|
|Conditional formatting of a cell based on text anywhere in the workbook||4||65|