首先需引用你所用的OUTLOOK版本的庫(2003爲11.0,2007 12.0,2010 14.0)
Sub showAllEmails() Dim OLF As Outlook.MAPIFolder Dim Emails&, i&, k& Dim arr Application.ScreenUpdating = False Set OLF = GetObject("", "Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox) Emails = OLF.Items.Count ReDim arr(1 To Emails + 1, 1 To 5) arr(1, 1) = "標題" arr(1, 2) = "接收時間" arr(1, 3) = "附件數" arr(1, 4) = "已讀" arr(1, 5) = "大小" For i = 1 To Emails With OLF.Items(i) arr(i + 1, 1) = .Subject arr(i + 1, 2) = Format(.ReceivedTime, "yyyy-m-d") arr(i + 1, 3) = .Attachments.Count arr(i + 1, 4) = IIf(.UnRead, "否", "是") arr(i + 1, 5) = .Size End With Next Set OLF = Nothing ActiveSheet.Range("a1").Resize(UBound(arr), 5) = arr Columns("A:F").AutoFit Application.ScreenUpdating = True MsgBox "查找完畢" End Sub
Sub test() Dim cn As Object, cat As Object, tbl As Object, str$ Set cn = CreateObject("ADODB.Connection") S
Sub CreatShortCut() Dim WSHShell Set WSHShell = CreateObject("WScript.Shell") Dim MyShortcut, DesktopPath
Sub getfoldername() '獲取指定路徑下的文件夾名稱 Dim fs As Object n = 1 Set fs = CreateO
Sub createfol() '根據sheet名稱創建相應的文件夾 Set fol = CreateObject("scripting.filesystemobject") Dim ws As Worksheet Dim path As
Sub getpicname() '獲取指定路徑下的圖片名稱(※帶後綴) Dim path As String path = "E:\傢俱圖片\A客廳" n = 2 Filename = Dir(path &