整理下自己写的一些VBA代码

dsd999

1）如何删除outlook中的所有空文件夹
http://club.excelhome.net/viewthread.php?tid=749501&pid=5111387&page=1&extra=page%3D1###
Sub DelDirectory()
    Dim currentf As MAPIFolder
    Set currentf = Application.ActiveExplorer.CurrentFolder
    Call recursionDel(currentf)
End Sub

Public Sub recursionDel(parentf As MAPIFolder)
    Dim folderArray() As String
    If parentf.Class = olFolder Then
        ReDim folderArray(parentf.Folders.count)
        For n = 1 To parentf.Folders.count
        folderArray(n) = parentf.Folders(n).Name
        Next
        
        For n = 1 To UBound(folderArray)
        Call fsubf(parentf.Folders(folderArray(n)))
        Next

         If parentf.Items.count = 0 And parentf.Folders.count = 0 Then
         Cancel = MsgBox(parentf.Name & "此文件夹为空" & vbNewLine & _
         "是否删除？", _
         vbYesNo + vbExclamation, "删除空文件夹")
        If Cancel = vbYes Then
         parentf.Delete
         End If
         End If
    End If
End Sub

dsd999

先占楼。

dsd999

先占楼。

chen7806

吃完饭就看到版主的分享.先收藏.

闻启学

楼主 帮你补充一下 都是你自己代码

1. [分享] 自动更新签名日期（转） [复制链接]
   
2. 
   
3. 实现outlook的签名日期可以自动更新    采用脚本生成签名的方式，二不是使用outlook自带的签名。
   
4. 
   
5.     Outlook 支持签名，但是使用Word域方式在签名中加入日期，不能在创建邮件的时候自动更新为当前系统日期，必须按F9来更新，感觉很不方便，因为我用VBA写了一段脚本自动更具用户的需求添加签名内容，日期可以实现自动提取当前日期。
   
6. 
   
7.     注意：
   
8. 
   
9.     outlook的宏安全性必须设置为低
   
10. 
    
11.     如果谁感兴趣可以按照下面的方式操作：
    
12. 
    
13.     1.打开outlook，取消原来设置的签名
    
14. 
    
15.     2.按照菜单（工具－宏－Visual Basic 编辑器）
    
16. 
    
17.     3.在出现的编辑器，从左边选择：ThisOutlookSession，右边默认应该是空白。
    
18. 
    
19.     4.将下面的代码复制到右边：  '------------------------------------------------------------------
    
20. 
    
21. Dim myOlApp As New Outlook.Application
    
22. 
    
23. Private WithEvents myOlInspectors As Outlook.Inspectors
    
24. 
    
25. Private myMailItem As Outlook.MailItem
    
26. 
    
27. Function Signature() As String
    
28. 
    
29. Dim mDate As Date
    
30. 
    
31. mDate = Format(Now, "yyyy-MM-dd")
    
32. 
    
33. Signature = "<font size=2>"
    
34. 
    
35. Signature = Signature & "<p>&nbsp;</p>"
    
36. 
    
37. Signature = Signature & "<p style=""""font-size: 10px"""">" & mDate & " <br />"
    
38. 
    
39. Signature = Signature & "致礼！</p>"
    
40. 
    
41. Signature = Signature & "<p style=""""font-size: 10px"""">尚德明<br />"
    
42. 
    
43. Signature = Signature & "//---------------------------------------------------------------<br />"
    
44. 
    
45. Signature = Signature & "&nbsp;德国倍福自动化有限公司上海代表处<br />"
    
46. 
    
47. Signature = Signature & " ADD.:&nbsp;上海市江场三路市北工业园区163 号5楼（200436 &nbsp;）<br />"
    
48. 
    
49. Signature = Signature & " TEL: &nbsp;&nbsp; 021-66312666-837 <br />"
    
50. 
    
51. Signature = Signature & " FAX: &nbsp;&nbsp; 021-66315696 <br />"
    
52. 
    
53. Signature = Signature & " MAIL:&nbsp;&nbsp; <a href=""""mailto:d.shang@beckhoff.com.cn"""">d.shang@beckhoff.com.cn </a> <br />"
    
54. 
    
55. Signature = Signature & " Web:&nbsp;&nbsp; <a href=""""http://www.beckhoff.com.cn/""""> www.beckhoff.com.cn </a><br />"
    
56. 
    
57. Signature = Signature & " &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href=""""http://www.pc-control.net/""""> www.pc-control.net </a><br />"
    
58. 
    
59. Signature = Signature & " &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href=""""http://www.ethercat.org/""""> www.ethercat.org </a>&nbsp; </p>"
    
60. 
    
61. Signature = Signature & "<span >//---------------------------------------------------------------</span>"
    
62. 
    
63. Signature = Signature & "</font> "
    
64. 
    
65. End Function
    
66. 
    
67. Private Sub Application_Startup()
    
68. 
    
69. 'GetSignature
    
70. 
    
71. Set myOlInspectors = myOlApp.Inspectors
    
72. 
    
73. End Sub
    
74. 
    
75. Private Sub myOlInspectors_NewInspector(ByVal Inspector As Inspector)
    
76. 
    
77. Set myMailItem = Inspector.CurrentItem
    
78. 
    
79. With myMailItem
    
80. 
    
81. .HTMLBody = Signature()
    
82. 
    
83. .Display‘如果是outlook 2007 将此行注释掉
    
84. 
    
85. End With
    
86. 
    
87. End Sub
    
88. 
    
89. '----------------------------------------------------------------------------------
    
90. 
    
91. 
    
92. 
    
93.     中间部分是签名的HTML内容，可以修改为自己需要设置的。
    
94. 
    
95.     5.保存，退出。重新启动outlook，将工具－宏－安全性中设置为低
    
96. 
    
97.     以后新建邮件将会用代码中设置的签名内容

复制代码

elmac2012

顶
我狂顶

allbluelai

多谢分享哇~~~

ztccsj

挺好的事情，必须占楼

skywalker006

期待更新