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

    昨天刚拿到个二手的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生成的，实际数据都在下面的子目录里，所以，运行这个宏，虽然数据被改了，原始数据还在。但是各位如果不是这样的情况，建议先备份联系人数据再运行；或者，改一下程序，新建个文件夹存储改过的联系人数据。