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

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

测试一下新建博客（随笔），书写体验比CSDN顺畅好多！👍一个

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

 

测试一

这是一条水平线

---

 

测试二

插入一幅图片

 

测试三

插入代码

3.1 新模式下的代码样式

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 

 

3.2 旧模式下的代码样式

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 

 

测试四

表格

ID	NAME	描述	备注
00001	张三	不可描述的属性	测试人
01000	李四	带着一顶帽子	编辑人
10101	王五	隔壁的某人	审核人

 

 

 测试结果（IE11，2018-12-30测试）：表格在中文输入的情况下很容易跳行无法正常输入。问题是在第一行输入中文时发生的。

 

 

 

2018-12-30 22:03:23