I Ho il seguente codice per contare il numero di e-mail in una cartella di Outlook.Conteggio delle e-mail in Outlook entro la data
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
Sto cercando di contare i messaggi di posta elettronica in questa cartella in base alla data così finisco con un conteggio per ogni giorno.
Questo chiaramente non sta [tag: VBScript] - vuoi dire VBA da dentro Outlook? – brettdj
Potrebbe essere più facile collegarsi a Excel o utilizzare ADO per eseguire una query: http://support.microsoft.com/kb/275262 – Fionnuala