1 '------------------------------------------------------------------
2
3 Dim myOlApp As New Outlook.Application
4
5 Private WithEvents myOlInspectors As Outlook.Inspectors
6
7 Private myMailItem As Outlook.MailItem
8
9 Function Signature() As String
10
11 Dim mDate As Date
12
13 mDate = Format(Now, "yyyy-MM-dd")
14
15 Signature = ""
16
17 Signature = Signature & "
"
18
19 Signature = Signature & "
自动签名添加日期
" & mDate & "
"
20
21 Signature = Signature & "自动签名添加日期成功
"22
23
24 Signature = Signature & " "
25
26 End Function
27
28 Private Sub Application_Startup()
29
30 'GetSignature
31
32 Set myOlInspectors = myOlApp.Inspectors
33
34 End Sub
35
36 Private Sub myOlInspectors_NewInspector(ByVal Inspector As Inspector)
37
38 Set myMailItem = Inspector.CurrentItem
39
40 With myMailItem
41
42 .HTMLBody = Signature()
43
44 '.Display‘如果是outlook 2007 将此行注释掉
45
46 End With
47
48 End Sub
49
50 '----------------------------------------------------------------------------------
51
扫描二维码推送至手机访问。
版权声明：本文由MDM苹果签名,IPA签名,苹果企业签名,苹果超级签,ios企业签名,iphoneqm.com发布，如需转载请注明出处。
