Measures to Import Contacts From Excel to MS Outlook
#IMPORT CONTACTS TO OUTLOOK 2017 FROM EXCEL MANUAL#
Therefore, in the upcoming section, we are going to discuss a manual solution to convert multiple Excel file to Outlook in an efficient and effective way. In fact, it is not a simple and easy task to move all contacts to Outlook folders. Sometimes, when users try to transfer their address book from the Excel sheet to Outlook then, they may face certain problems. It will keep all contact data on different platforms very easily. Many users want to keep a contact list saved in the spreadsheet. Now, they can easily move their all excel file contacts to Microsoft Outlook PST file and all key elements by using this right procedure.Īs everyone knows, contacts play an important role in our lives, personally as well as professionally. Once in a while, many users want to convert their Excel sheet to Outlook. BusinessAddressPostalCode = Sheets("Outlook Contacts").Do you want to Import Contacts from Excel Spreadsheet to Outlook 2016, 2013, 2010, 20? Also, looking for a solution to export address book from Excel MS Outlook? Then, without any doubt, you are landed in the right place as we have come up with a relevant method to perform this task efficiently. BusinessAddressStreet = Sheets("Outlook Contacts").Cells(i, 9) BusinessAddressCity = Sheets("Outlook Contacts").Cells(i, 8) Email2Address = Sheets("Outlook Contacts").Cells(i, 7) Email1Address = Sheets("Outlook Contacts").Cells(i, 6) MobileTelephoneNumber = Sheets("Outlook Contacts").Cells(i, 5) BusinessTelephoneNumber = Sheets("Outlook Contacts").Cells(i, 4) CompanyName = Sheets("Outlook Contacts").Cells(i, 3) JobTitle = Sheets("Outlook Contacts").Cells(i, 2) FullName = Sheets("Outlook Contacts").Cells(i, 1) Set ciOutlook = applOutlook.CreateItem(olContactItem) 'create and display a new contact form for input: Using this method a new contact item is always created in the default Contacts folder. 'Use the Application.CreateItem Method to create a new contact Outlook item in the default Contacts folder. 'post each row's data on a separate contact item form: 'determine number of items in the collection: Set delFolder = nsOutlook.GetDefaultFolder(olFolderDeletedItems) 'Empty the Deleted Items folder in Outlook so that when you quit the Outlook application you bypass the prompt: Are you sure you want to permanently delete all the items and subfolders in the "Deleted Items" folder? Set nsOutlook = applOutlook.GetNamespace("MAPI") create an instance) a NameSpace object variable, to access existing Outlook items. 'use the GetNameSpace method to instantiate (ie. Set applOutlook = New Outlook.Application 'Create a new instance of the Outlook application. LLastRow = Sheets("Outlook Contacts").Cells(Rows.Count, "A").End(xlUp).Row
'determine last data row in the worksheet: 'Ensure corresponding columns of data in the Worksheet, as they will be posted in the Outlook Contacts Folder:ĭim lLastRow As Long, i As Long, n As Long, c As Long 'Ensure that the worksheet data to be posted to Outlook, starts from row number 2:
Once this reference is added, a new instance of Outlook application can be created by using the New keyword. 'Automate using Early Binding: Add a reference to the Outlook Object Library in Excel (your host application) by clicking Tools-References in VBE, which will enable using Outlook's predefined constants. 'Automating Outlook from Excel: This example uses the Application.CreateItem Method to export data from an Excel Worksheet to the default Contacts folder. Sub ExcelWorksheetDataAddToOutlookContacts1() MsgBox "The list has successfully been created!", vbInformation 'Sort the rows alphabetically using the CompanyName or FullName as appropriate, and then autofit. BusinessAddressStreetĬells(lnContactCount, 10).Value =. BusinessAddressCityĬells(lnContactCount, 9).Value =. Email2AddressĬells(lnContactCount, 8).Value =. Email1AddressĬells(lnContactCount, 7).Value =. MobileTelephoneNumberĬells(lnContactCount, 6).Value =. BusinessTelephoneNumberĬells(lnContactCount, 5).Value =. CompanyNameĬells(lnContactCount, 4).Value =. JobTitleĬells(lnContactCount, 3).Value =. FullNameĬells(lnContactCount, 2).Value =. 'For each contact: if it is a business contact, write out the business info in the Excel worksheet Ĭells(lnContactCount, 1).Value =. 'Row number to place the new information on starts at 2 to avoid overwriting the header
Set olFolder = olNamespace.GetDefaultFolder(10) Set olNamespace = olApp.GetNamespace("MAPI") 'Initalize the Outlook variables with the MAPI namespace and the default Outlook folder of the current user.
0 kommentar(er)
