新随笔测试（2018-12-30）

Posted 2021-01-31 viroax

申请博客功能，2018-12-30 正式开通。

测试一下新建博客（随笔）的功能。书写功能比CSDN顺畅好多！??一个

元旦将至，辞旧迎新。欢喜欢喜！！！

Sub CopyFolder()
    ‘测试一下代码样式
    Dim myOlApp As New Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myInboxFolder As Outlook.Folder
    Dim myContactsFolder As Outlook.Folder
    Dim myNewFolder As Outlook.Folder
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myInboxFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myContactsFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
    Set myNewFolder = myContactsFolder.CopyTo(myInboxFolder)
End Sub 

 

 

 

Sub CopyFolder()
    ‘测试另一种代码模式
    Dim myOlApp As New Outlook.Application
    Dim myNameSpace As Outlook.NameSpace
    Dim myInboxFolder As Outlook.Folder
    Dim myContactsFolder As Outlook.Folder
    Dim myNewFolder As Outlook.Folder
    Set myNameSpace = myOlApp.GetNamespace("MAPI")
    Set myInboxFolder = myNameSpace.GetDefaultFolder(olFolderInbox)
    Set myContactsFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
    Set myNewFolder = myContactsFolder.CopyTo(myInboxFolder)
End Sub