travdaddy said:
I figured this one out on my own.
There is a registry key that you can change, it can differ among systems,
but here are the keys.
HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging
Subsystem\Profiles\Default Outlook
Profile\0a0d020000000000c000000000000046\0003041b"
HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging
Subsystem\Profiles\Microsoft
Outlook\0a0d020000000000c000000000000046\0003041b"
HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging
Subsystem\Profiles\Outlook\0a0d020000000000c000000000000046\0003041b"
Like I said the key can very from system to system, but if you make that key
equal to "FF FF FF FF" in binary it will turn junk mail to "No Automatic
Filtering".
How do you do that? With this set of code.
iValues = Array(&Hff,&Hff,&Hff,&Hff)
BinaryValueName = "0003041b"
strKeyPath2 = "Software\Microsoft\Windows NT\CurrentVersion\Windows
Messaging Subsystem\Profiles\Outlook\0a0d020000000000c000000000000046"
strKeyPath4 = "Software\Microsoft\Windows NT\CurrentVersion\Windows
Messaging Subsystem\Profiles"
oReg.EnumKey HKEY_CURRENT_USER, strKeyPath4, arrSubKeys
For Each subkey In arrSubkeys
If subkey = "Outlook" Then
oReg.SetBinaryValue HKEY_CURRENT_USER, strKeyPath2, BinaryValueName, iValues
End If
Next
Thats just my variation for one of them, you can make whatever changes you
want to the code. Just thought some people would like to know how to change
junk mail.