I have the following macro for outlook:
Code:
Dim oApp As Application Dim oNS As NameSpace Dim oMsg As Object Dim bDoAction As Boolean Dim oAttachments As Outlook.Attachments Dim iSubject, dirPath, tu, hu, tot, Rcp As String Dim i, iAttachCnt As Integer 'Counting files Private Function CountFiles(ByVal folderPath As String, Optional ByVal
Leave a comment: