Hi,
FileDialog will let you select a Windows directory/folder. FileSystem will let loop through all files in the folder. Scripting.FileSystem will let modify/delete the files - requires a reference to Microsoft Runtime Library.
The main procedure will have to copy the body of each email...
Hi,
Have you Shared the calender or Delgated Access to the calender?
For a Shared Calender you can goto Change Sharing Permissions and select Free Busy Time and Location under Read.
This does not work for Delegates.
Regards
RS
The error often crops up when VBA cannot decipher the the kind of object referenced and hence fails to connect the property/method with the object.
Try changing the line "Sub ReadE3(ByVal mailItem As Object)" to "Sub ReadE3(ByVal mailItem As Outlook.mailItem)"
Sub AddFiles()
Dim StrFolder, StrFile, StrFiles(200), StrSearch As String
Dim i, j As Integer
Dim myMailItem As MailItem
'Select FOLDER and save all file name in an array
StrFolder = "C:\New Folder" ' CHANGE THE FOLDER
StrFile = Dir(StrFolder &...
Hi,
This procedue will let you maunally pick the TOP folder and then search the SUCCESS folder for UNREAD mails only
- You can delete the line regarding UNREAD emails to search the all mails in the SUCCESS folder.
For each UNREAD mail it will loop through the entire TOP folder and move...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.