outlook 宏自动导入通讯录

Sub 导入联系人到某某某文件夹()

'1.需建立有某某某文件夹；导入前请清空该文件夹

Dim c As Object
Dim OutlookApp As Object 'Outlook.Application
Dim myNamespace, myFolder, myItem As Object 'Outlook.Namespace
Dim myNewFolder As Object
Dim MsgFile As Object
Dim path As String
Dim myMsgFile As String
Dim i As Integer

Set OutlookApp = CreateObject("outlook.application")
Set myNamespace = OutlookApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderContacts)

'获取某某某文件夹(联系人),并清空

Set myNewFolder = myFolder.Folders("某某某")

Set myItem = myNewFolder.Items
i = myNewFolder.Items.Count
Do While i > 0
myItem(myNewFolder.Items.Count).Delete
i = i - 1
Loop

path = "\\192.168.0.8\share\邮箱地址\邮件地址\"
myMsgFile = Dir(path & "*.msg")

'遍历此目录下的所有msg文件
Do While myMsgFile <> ""
Set MsgFile = myNamespace.OpenSharedItem(path & myMsgFile)
With MsgFile
Set c = myNewFolder.Items.Add
c.FirstName = .FirstName
c.Email1Address = .Email1Address
c.Save
End With
MsgFile.Close 1 'olDiscard=1，关闭时不保存更改
myMsgFile = Dir
Loop

'复制完关闭Outlook
'OutlookApp.Quit
'Set myMail = Nothing
'Set myNamespace = Nothing
'Set OutlookApp = Nothing

End Sub

outlook 宏自动导入通讯录相关推荐

手机号码批量导入通讯录php,怎么从电脑上的excel表格的手机号码导入通讯录到华为手机：...
如何将电脑中的Excel表格导入手机中 excel文件就如果图片音乐文件一样可被传送到手机中. 传送方法可以是用数据线把手机作为存储设备使用或用无线如QQ等可以传送文件的应用程序. 但手机上要想打开E ...
谷歌表格_如何使用宏自动执行Google表格
谷歌表格 Google Sheets lets you automate repetitive tasks with macros, and you can then bind them to key ...
zabbix使用宏自动发现网卡并实现监控（入职小灰）
zabbix使用宏自动发现网卡并实现监控在创建完监控postgresql数据库后,本来就莫名其妙多出来几百个监控项,想着今天怎么优化一下.没想到,正在分析图形的时候,又发现了一些繁琐的事情. 当场就 ...
史上最简单的Excel导入通讯录方法
开发记录第一天第二天第三天第四天第N天第一天说来话长,这是一个悲伤的故事. 事情的起因,是因为魔都我被封在家里,寂寞难耐的心始终不知道该干点啥,然后就撩起了当设计师的妹子,正巧那天晚上妹 ...
Android studio 自动导入(全部)包 import
1 Android studio 只有import单个包的快捷键:Alt+Enter.没有Eclipse下的快速导入包的快捷键Ctrl+Shift+O. 2 但android studio设置里有一 ...
IJ pom包的自动导入设置
1.创建项目的时候右下角的选择 2.在setting里面设置如下图 tips:这个可能不是很好因为你有时候手残写错了也会被自动导入导致报错
endnotex7怎么导入中文文献_EndNote X7自动导入PDF功能详解 | 科研动力
在Endnote X7 新功能简介一文中对于EndNote X7的自动导入PDF功能作了一简要介绍,但是有些人对于EndNote自动导入PDF的功能还是有疑问,本文就EndNote如何自动导入PDF功 ...
电脑重启后python导入的库不见_为什么python不会在启动时自动导入每个模块？
我正在玩Python 2.7,每个人都知道,在每个程序的开头,你总是需要导入模块.例如:import random import time for x in range(1, 300): print ...
【IDEA】自动导入无歧义的包
设置 - > 编辑器 -> 自动导入开启下面两个选项: 当包名仅对应一个的时候,会自动导入.

outlook 宏自动导入通讯录

outlook 宏自动导入通讯录相关推荐

最新文章

热门文章

outlook 宏 自动导入通讯录

outlook 宏 自动导入通讯录相关推荐

最新文章

热门文章

outlook 宏自动导入通讯录

outlook 宏自动导入通讯录相关推荐