Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim recips As Outlook.Recipients Dim recip As Outlook.Recipient Dim pa As Outlook.PropertyAccessor Const PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E" Set recips = Item.Recipients For Each recip In recips Set pa = recip.PropertyAccessor If InStr(LCase(pa.GetProperty(PR_SMTP_ADDRESS)), "@mycompany.net") > 0 Then If MsgBox("Send mail to internal address?", vbYesNo + vbQuestion + vbMsgBoxSetForeground, "MY COMPANY E-Mail Policy Notice") = vbNo Then Cancel = True Call CheckSendTime Else Exit Sub End If End If Next End Sub
|Problem with messages in Outlook 2016 on a W10 fully updated computer||10||21|
|Free option to sync Google contacts and calendars with Outlook 2016 ?||2||18|
|Cannot connect outlook 2016 to Exchange 2016||3||29|
|Search Outlook Items||13||24|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!