At once, a new contact group will show up, which will look like the image below:.Next, you’ll be required to input the name of a specific company, such as “DataNumen, Inc.”.Then hit the macro button in Quick Access Toolbar.Later add this new macro to Quick Access Toolbar.After that, you can exit the current window.MsgBox "Please access a Contacts folder!", vbExclamation MsgBox "There is no item in this Contacts folder!", vbExclamation MsgBox "There is no contact in this company!", vbExclamation Set objTempMail = Application.CreateItem(olMailItem) 'Create a contact group in current folder Set objFoundContacts = objFoundContacts.Restrict(" = '" & strCompany & "'") StrCompany = InputBox("Input the specific company:", "Specify Company") If objContactsFolder.DefaultItemType = olContactItem Then Sub CreateContactGroupFromContactsOfSpecificCompany() Next, you could copy the following VBA code into this module as usual.In the subsequent “Microsoft Visual Basic for Applications” screen, you need to open an unused module or just insert a new one.Then, in the main Outlook window, press “Alt + F11” key buttons to access VBA editor.
At the very outset, launch your Outlook application.Now, in the followings, we will teach you how to quickly realize it using VBA.Ĭreate a Contact Group from the Contacts of a Specific Company By this means, you won’t need to find out all contacts of the company one by one each time when you need to send an email to them.
If you frequently need to send an email to all the contacts of a specific company, it is advisable to directly create a contact group for them. Thus, this article will expose an intelligent way, which can realize it in an instant. Many users need to create a contact group from the contacts of a specific company.
0 kommentar(er)
