Office Solutions Archive

When sending emails to any invalid recipient addresses, you would receive the undeliverable email notifications. At that point, if you may want to remove these email addresses from contacts, you can use the method shared in this post.

Have you ever received undeliverable email notifications listing the invalid email addresses? In general, you’ll get such emails after you send email to invalid recipient addresses. In this situation, it is generally suggested to remove these email addresses from Outlook contacts to prevent accidentally sending mails to them next time. Now, in the followings, we will share you a rapid solution to get it.

Quickly Remove the Invalid Recipient Addresses of Undeliverable Emails from Outlook Contacts

Remove the Invalid Recipient Addresses of Undeliverable Emails from Contacts

  1. For a start, in the Outlook window, press “Alt + F11” to access VBA editor.
  2. Next, you can put the following VBA code into an unused project or module.
Sub RemoveUndeliverableEmailAddressesfromContacts()
    Dim objSelection As Outlook.Selection
    Dim objContacts As Outlook.Items
    Dim objMail As Outlook.MailItem
    Dim i, n As Long
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim strEmailAddress As String
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
 
    'Get selected emails
    Set objSelection = Application.ActiveExplorer.Selection
    'Get the contacts
    Set objContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items
 
    On Error Resume Next
    For Each objMail In objSelection
        objMail.Display
 
        Set objWordDocument = objMail.GetInspector.WordEditor
        Set objWordApp = objWordDocument.Application
        Set objSearchRange = objWordDocument.Range
 
        'Extract email addresses via wildcards
        With objWordApp.Selection.Find
            .Text = "[A-z,0-9]{1,}\@[A-z,0-9,.]{1,}"
            .MatchWildcards = True
            .Execute
        End With
 
        While objWordApp.Selection.Find.Found
              strEmailAddress = objWordApp.Selection.Text
 
              'Remove the invalid email addresses from the associated contacts
              strFilter = "[Email1Address] = " & strEmailAddress
              Set objFoundContact = objContacts.Find(strFilter)
              If Not (objFoundContact Is Nothing) Then
                 With objFoundContact
                     .Email1Address = ""
                     .Email1DisplayName = ""
                     .Save
                 End With
                 strFilter = ""
                 Set objFoundContact = Nothing
              Else
                 strFilter = "[Email2Address] = " & strEmailAddress
                 Set objFoundContact = objContacts.Find(strFilter)
                 If Not (objFoundContact Is Nothing) Then
                    With objFoundContact
                        .Email2Address = ""
                        .Email2DisplayName = ""
                        .Save
                    End With
                    strFilter = ""
                    Set objFoundContact = Nothing
                 Else
                    strFilter = "[Email3Address] = " & strEmailAddress
                    Set objFoundContact = objContacts.Find(strFilter)
                    If Not (objFoundContact Is Nothing) Then
                       With objFoundContact
                           .Email3Address = ""
                           .Email3DisplayName = ""
                           .Save
                       End With
                       strFilter = ""
                       Set objFoundContact = Nothing
                    End If
                End If
             End If
 
             objWordApp.Selection.Find.Execute
        Wend
 
       objMail.Close olDiscard
    Next
 
    MsgBox "Completed!", vbInformation
End Sub

VBA Code - Remove the Invalid Recipient Addresses of Undeliverable Emails from Contacts

  1. After that, close the current window.
  2. Later, add the new macro to Quick Access Toolbar. You can refer to the article – “How to Run VBA Code in Your Outlook“.
  3. Finally, you can run this macro by following the steps below:
  • In the first place, select the “Undeliverable” email messages.
  • Then, click the macro in the Quick Access Toolbar.Trigger Macro through Quick Access Toolbar
  • When macro finishes, you’ll receive the message prompting “Completed”.
  • Now, you could check the associated contacts, in which the invalid email addresses have been removed, like the screenshot below:Remove Invalid Email Addresses

Resolve Outlook Errors and Corruption

As we all know, Outlook can get subject to the issues and corruptions for various reasons. Hence, if you are a novice in Outlook, you’d better make some effective precautions, such as making periodical data backups, employing a powerful and reliable Outlook repair utility, like DataNumen Outlook Repair, and so on.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover sql and outlook repair software products. For more information visit www.datanumen.com

Be the first to comment

If you want to remove a specific color category from the contacts responding to all the members of a contact group, you can use the method introduced in this article.

Perhaps you have just created a new contact group from the contacts in a specific color category. Afterwards, you may think that this category is no longer needful. In this case, you may want to quickly remove the specific color category from the contacts corresponding to the group members. Here is a rapid method to realize it.

Batch Remove a Specific Color Category from All Members of an Outlook Contact Group

Remove a Specific Color Category from All Members of a Contact Group

  1. At the very outset, start your Outlook application.
  2. Then, open Outlook VBA editor via pressing “Alt + F11” key buttons.
  3. Next, in the new screen, copy and paste the VBA code below into an unused module.
Sub RemoveSpecificColorCategoryFromAllMembersOfContactGroup()
    Dim objContactGroup As Outlook.DistListItem
    Dim objCurrentFolder As Outlook.Folder
    Dim objCurrentFolderContacts As Outlook.Items
    Dim objDefaultFolderContacts As Outlook.Items
    Dim strCategory As String
    Dim n As Long
    Dim objMemeber As Object
    Dim strFilter As String
    Dim objFoundContact As Outlook.ContactItem
 
    'Get a selected contact group
    Set objContactGroup = Outlook.ActiveExplorer.Selection.Item(1)
 
    If Not (objContactGroup Is Nothing) Then
       strCategory = InputBox("Enter the specific color category:")
 
       If Trim(strCategory) <> "" Then
          Set objCurrentFolder = objContactGroup.Parent
          Set objCurrentFolderContacts = objCurrentFolder.Items.Restrict("[Email1Address]>''")
          Set objDefaultFolderContacts = Application.Session.GetDefaultFolder(olFolderContacts).Items.Restrict("[Email1Address]>''")
 
          'Find the contacts corresponding to the group members
          For n = 1 To objContactGroup.MemberCount
              Set objMember = objContactGroup.GetMember(n)
 
              strFilter = "[Email1Address] = '" & objMember.Address & "'"
              Set objFoundContact = objCurrentFolderContacts.Find(strFilter)
 
              If objFoundContact Is Nothing Then
                 Set objFoundContact = objDefaultFolderContacts.Find(strFilter)
              End If
 
              If Not (objFoundContact Is Nothing) Then
                 'Remove the specific color category
                 Call RemoveCategory(objFoundContact, strCategory)
                 objFoundContact.Save
              End If
         Next
       End If
    End If
End Sub

Sub RemoveCategory(ByVal objCurrentItem As Object, ByRef strSpecificCategory As String)
    Dim varCategories As Variant
    Dim i As Long
 
    varCategories = Split(objCurrentItem.Categories, ",")
    
    If UBound(varCategories) >= 0 Then
       For i = 0 To UBound(varCategories)
           If Trim(varCategories(i)) = strSpecificCategory Then
              varCategories(i) = ""
              objCurrentItem.Categories = Join(varCategories, ",")
              Exit Sub
           End If
       Next
    End If
End Sub

VBA Code - Remove a Specific Color Category from All Members of a Contact Group

  1. After that, you ought to add this macro to Quick Access Toolbar, which you can refer to the article – “How to Run VBA Code in Your Outlook“.
  2. Eventually, you can try this macro.
  • Firstly, select a source contact group. Here is my sample contact group.Group Members
  • Subsequently, click the macro in Quick Access Toolbar.Run Macro on Selected Contact Group
  • Later, you will be required to specify a color category in the popup dialog box.Specify a Color Category
  • After clicking “OK”, macro will continue to work.
  • When it finishes, the specific color category has been removed from the corresponding contacts of the group members, like the following image.Removed Color Category from Group Members

Deal with Miscellaneous Outlook Troubles

It is common for users to encounter diverse issues when working in Outlook. To be honest, it is difficult and even impossible to predict when problems will occur to Outlook. Hence, it’s recommended to back up your Outlook data regularly. Plus, you are better off keeping a remarkable repair tool in vicinity, like DataNumen Outlook Repair. It can fix PST issues without breaking a sweat.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover Sql Server and outlook repair software products. For more information visit www.datanumen.com

Be the first to comment

How to Back Up Your Split Database in MS Access

Posted November 17, 2017 By AuthorVS2

This article focuses on understanding the importance and use of Split database while also addressing steps to create its backups.

As the name suggests, split database is created by splitting two database files which are:

  • Back-End Database – consisting of data available in tables
  • Front -End Database – consisting of links connecting to all the tables present in the back-end database including forms, queries, reports etc.

Note that back end database consists of all the data in the system. Whereas all user interface data Objects like forms, reports etc. is stored in front end database. Front end database can be seen as the first layer of data, which is accessible to all. Anyone can go through the information available in the front end database. But the user needs to get an administrator permission to access the back end database. This split end division of database is what makes Access so secure and sound.Backing Up Your Split Database In MS Access

Since both these databases have different properties, their databases are also backed up independently. Front-end database consisting of minor form of data consumes less space, which takes less time in creating its database. However creating backups for back-end database can be a time consuming process. But as it contains all the data, it is important to generate regular backups for it to avoid incidents of corrupted Access databases.

Steps to create Backup for Back-end Database

Note: Make sure to notify all the users on the system about the backup on the back-end database. Running a backup requires an exclusive access to all the files of database, which disable users from using the database during the backup process.

Tip: Usually organizations run backups during holidays to ensure that the data remains undamaged and the work efficiency is also maintained.

  • BackUp DatabaseStep 1: Open Access without opening any database.
  • Step 2: Click on Open and select the database file you want to backup.
  • Step 3: Click on the arrow > next to Open > Select Open Exclusive.
  • Step 4: Click on the File Tab.
  • Step 5: Click on Save & Publish.
  • Step 6: Now go to ‘Save Database As’ section, right under ‘Advanced’ option and click on BackUp Database.
  • Step 7: Once the backup is created users can save the File.

Tip: Users can save the file with the original name and add backup in front of it, to help them easily identify the file in the future.

Steps to create Backup for Front-end Database

Since the front end database is accessible to most users in an organization, they all have a separate copy of that database. Users can customize and redesign their copy according to their liking. Note: each individual needs to generate backup for their front-end databases especially if they want to see their customized arbitrary design changes in their front end database.

Note: These changes made in the front-end database will only be visible to the user, making the changes as other users will have access to their own front-end database.

  • Step 1: Users can make design changes and other basic modification in the database.
  • Step 2: Once the user has saved all the necessary changes in his/her frontend database file, he/she can repeat the step mentioned above for creating database backup for back-end database to create a backup for their front end database.

Author Introduction:

Vivian Stevens is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including repair SQL Server and excel recovery software products. For more information visit www.datanumen.com

Be the first to comment