Bir outlook klasöründeki e-posta sayısını saymak için aşağıdaki kodu kullanın.Tarihe göre görünümlerde e-postaları sayma
Sub HowManyEmails()
Dim objOutlook As Object,
objnSpace As Object,
objFolder As Object
Dim EmailCount As Integer
Set objOutlook = CreateObject("Outlook.Application")
Set objnSpace = objOutlook.GetNamespace("MAPI")
On Error Resume Next
Set objFolder = objnSpace.Folders("Personal Folders").Folders("Inbox").Folders("report's").Folders("Customer")
If Err.Number <> 0 Then
Err.Clear
MsgBox "No such folder."
Exit Sub
End If
EmailCount = objFolder.Items.Count
Set objFolder = Nothing
Set objnSpace = Nothing
Set objOutlook = Nothing
MsgBox "Number of emails in the folder: " & EmailCount, , "email count" End Sub
Ben her gün için bir sayım ile bitirmek böylece tarihe göre bu klasöre e-postaları saymaya çalışıyorum.
Bu açıkça isnt [etiketi: vbscript] - VBA Outlook içinden demek? – brettdj
Excel'e bağlanmak veya bir sorguyu çalıştırmak için ADO'yu kullanmak daha kolay olabilir: http://support.microsoft.com/kb/275262 – Fionnuala