Upon swapping those lines I get a compile error: Next without For.
Sub AddFileNumber()
Dim myolApp As Outlook.Application
Dim aItem As Object
Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder
Dim iItemsUpdated As Integer
Dim strTemp As String...
Sub AddFileNumber()
Dim myolApp As Outlook.Application
Dim aItem As Object
Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder
Dim iItemsUpdated As Integer
Dim strTemp As String
iItemsUpdated = 0
If InStr(1, aItem.Subject, "[Spam]:") > 0 Then
For...
Ok, I managed to finish moving all messages to the IMAP account, but now think I messed up the .pst file when I was trying to change the name of the email account because it had a (1) in it so now outlook just freezes everytime I open it. I'm going to try to go into safe mode to rename it back...
Hi,
I recently set up aol account with Outlook and by accident set it for POP3 so it deleted all 24000 emails on the server and downloaded to my computer. I tried to change it to IMAP but it doesn't let me, so I created a new IMAP account and have been dragging all the emails to the new...
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.