如果你有一个excel文件包含许多联系人的信息,包括他们的生日,和您想要导入相应联系人的生日你的前景,您可以使用本文中介绍的方法。
也许你有一个Excel工作表,记录你的很多同事的信息,包括各自的生日。因此,现在,你想迅速将这些生日添加到相应的Outlook联系人。如果没有显示现有的联系人,直接创建它们。为了应对这种需求,建议使用Outlook VBA来实现它。读的详细步骤和VBA代码。
批量导入Excel的生日对应的联系人
以下截图是我Excel工作表显示。我的VBA代码将基于行和列。
- 首先,启动您的应用前景。
- 然后按“Alt + F11键快捷键访问VBA编辑器。
- 接下来您可以打开一个不使用的模块或简单地插入一个新模块。
- 随后,将下面的VBA代码复制到模块。请注意,你应该改变一些值根据自己的实际情况。
子ImportBirthdaysfromExceltoOutlook()暗strExcelFile字符串昏暗objExcelApp Excel。应用模糊objExcelWorkBook Excel。Excel工作簿的objExcelWorkSheet。工作表的nRow尽可能整数昏暗nColumn整数昏暗objContactsFolder前景。文件夹的strContactFullName字符串昏暗objContact前景。ContactItem”指定您想要导入的Excel文件strExcelFile = " E: \联系人\同事生日。xlsx”获得的Excel文件错误恢复下一组objExcelApp = CreateObject (“Excel.Application”)设置objExcelWorkBook = objExcelApp.Workbooks.Open (strExcelFile)设置objExcelWorkSheet = objExcelWorkBook.Sheets (“Sheet1”)设置objContactsFolder = Outlook.Application.Session.GetDefaultFolder (olFolderContacts) nRow = 2 nColumn objExcelWorkSheet时= 1。细胞(nRow, 1) < > " strContactFullName = objExcelWorkSheet。细胞(nRow, 1)设置objContact = objContactsFolder.Items。找到(“[FullName] = " & strContactFullName &”)如果objContact并不那么设置objContact = Application.CreateItem (olContactItem) objContact .FullName = objExcelWorkSheet。细胞(nRow, 1) .Email1Address = objExcelWorkSheet。细胞(nRow, 2) .Birthday = objExcelWorkSheet。细胞(nRow, 3) .Save objContact其他结尾。生日= objExcelWorkSheet。细胞(nRow, 3) objContact。保存结束如果nRow = nRow + 1行Excel.Application.Workbooks。objExcelApp关闭。退出结束子
- 在那之后,你需要改变你的前景宏观安全级别低。
- 后来回到模块,点击工具栏中的“运行”图标。
- 最终,宏将被触发和生日将被添加到联系人。
巧妙地处理麻烦的前景问题
无可否认,前景是容易出错的。因此,这是一个乏味的和艰巨的任务来防止前景的伤害。因此,最重要的预防措施之一是定期数据备份,将很多帮助你在PST文件被损坏。此外,你最好保持一个健壮的修复工具附近,像DataNumen前景修复,这将为您提供紧急救援。
作者简介:
雪莉在DataNumen张是一个数据恢万博ManBetX手机下载复专家,Inc .,这是世界领导人在数据恢复技术,包括SQL Server的伤害和前景修复软件产品。万博体育app官方网下载访问的更多信息www.circareview.com
留下一个回复