申请博客功能，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
原文：https://www.cnblogs.com/viroax/p/10200259.html