| 订阅 | 在线投稿
分享
 
 
 

贡献个Outlook小程序解决姓名分开问题

来源:互联网网民  宽屏版  评论
2008-12-28 02:24:24

昨天刚拿到个二手的6268!1700元,在某手机市场购得,单机。又花了120元配置了6C电池,数据线,线充,贴膜。miniSD卡我自己有个256M的。昨晚折腾了半夜,基本已经搞定。机器很好,功能很全。对我来说唯一的遗憾是通讯录太小只有500,不过我整理了一下,把outlook里好久不用的都归档了,还可以购用。不过备忘录居然也有条数限制,不爽。那么大内存,应该多分给PIM些才对。到6268自由空间下载了些主题和程序。有几个主题不好用:老者瘦驴和黑客帝国,损坏了。游戏好多,很好。电子书,小D可用,但还是太费劲。太小了。不知道6268能支持多大的电子书?有可能一个文件支持一部天龙八部这样的吗?

另外,我写了个小的outlook程序,用于把原来姓、名分开的数据,把姓名合起来复制到名字段。这样,同步后姓名就对了。把程序贴在下面,大家可以自己用:

Public Sub CopyFullName()

Dim oFolderContact As MAPIFolder

Dim oFSync As MAPIFolder

Dim oCont As ContactItem

Set oFolderContact = Me.Session.GetDefaultFolder(olFolderContacts)

For Each oCont In oFolderContact.Items

s = oCont.FileAs

oCont.FirstName = s

oCont.LastName = ""

oCont.Save

Next

End Sub

使用方法如下:

打开outlook,从菜单选择:工具-〉宏-〉VisualBasic编辑器

把这段代码copy到ThisOutlookSession里。

然后运行。

注意:我的“联系人”文件夹,实际上是用OutlookPCS生成的,实际数据都在下面的子目录里,所以,运行这个宏,虽然数据被改了,原始数据还在。但是各位如果不是这样的情况,建议先备份联系人数据再运行;或者,改一下程序,新建个文件夹存储改过的联系人数据。

 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
昨天刚拿到个二手的6268!1700元,在某手机市场购得,单机。又花了120元配置了6C电池,数据线,线充,贴膜。miniSD卡我自己有个256M的。昨晚折腾了半夜,基本已经搞定。机器很好,功能很全。对我来说唯一的遗憾是通讯录太小只有500,不过我整理了一下,把outlook里好久不用的都归档了,还可以购用。不过备忘录居然也有条数限制,不爽。那么大内存,应该多分给PIM些才对。到6268自由空间下载了些主题和程序。有几个主题不好用:老者瘦驴和黑客帝国,损坏了。游戏好多,很好。电子书,小D可用,但还是太费劲。太小了。不知道6268能支持多大的电子书?有可能一个文件支持一部天龙八部这样的吗? 另外,我写了个小的outlook程序,用于把原来姓、名分开的数据,把姓名合起来复制到名字段。这样,同步后姓名就对了。把程序贴在下面,大家可以自己用: Public Sub CopyFullName() Dim oFolderContact As MAPIFolder Dim oFSync As MAPIFolder Dim oCont As ContactItem Set oFolderContact = Me.Session.GetDefaultFolder(olFolderContacts) For Each oCont In oFolderContact.Items s = oCont.FileAs oCont.FirstName = s oCont.LastName = "" oCont.Save Next End Sub 使用方法如下: 打开outlook,从菜单选择:工具-〉宏-〉VisualBasic编辑器 把这段代码copy到ThisOutlookSession里。 然后运行。 注意:我的“联系人”文件夹,实际上是用OutlookPCS生成的,实际数据都在下面的子目录里,所以,运行这个宏,虽然数据被改了,原始数据还在。但是各位如果不是这样的情况,建议先备份联系人数据再运行;或者,改一下程序,新建个文件夹存储改过的联系人数据。
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有