none
Как с помощью VBS добавить в надежные отправители в Outlook2003. RRS feed

Ответы

  • А Group policy для 2003-го не имеет случаем нужных настроек? http://office.microsoft.com/en-us/office-2003-resource-kit/helping-users-avoid-junk-e-mail-messages-in-outlook-2003-HA001140262.aspx

    (В более поздних версиях есть.)

    Вот попался скрипт в Интернете:

    const HKEY_CURRENT_USER = &H80000001
    strComputer = "."
    
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
    strComputer & "\root\default:StdRegProv")
    
    If OfficeVer = 11 then
    strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Outlook\Options\Mail"
    ElseIf OfficeVer = 12 Then
    strKeyPath = "SOFTWARE\Microsoft\Office\12.0\Outlook\Options\Mail"
    Else
    WScript.Quit
    End if
    strKeyValue = "JunkMailImportLists"
    
    oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
    oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strKeyValue,1
    
    strValueName1 = "JunkMailSafeSendersFile"
    strValue1 = "\\server\SafeSender.txt"
    oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName1,strValue1
    
    
    wscript.echo "done"
    
    
    Function officever
    	On Error Resume Next
    	Set objoutlook = CreateObject("Outlook.Application")
    	If err.number <> 0 Then
    		officever = 0
    		On Error goto 0
    	Else
    		If Mid(objoutlook.Version, 1, 2) = 11 Then
    			OfficeVer = 11
    		ElseIf Mid(objoutlook.Version, 1, 2) = 12 Then
    			OfficeVer = 12
    		End If
    	End If
    	Set objoutlook = Nothing
    End Function

    Сазонов Илья http://www.itcommunity.ru/blogs/sie-wl/
    • Помечено в качестве ответа еггог 25 июня 2010 г. 8:34
    25 июня 2010 г. 5:51
    Модератор

Все ответы

  • А Group policy для 2003-го не имеет случаем нужных настроек? http://office.microsoft.com/en-us/office-2003-resource-kit/helping-users-avoid-junk-e-mail-messages-in-outlook-2003-HA001140262.aspx

    (В более поздних версиях есть.)

    Вот попался скрипт в Интернете:

    const HKEY_CURRENT_USER = &H80000001
    strComputer = "."
    
    Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
    strComputer & "\root\default:StdRegProv")
    
    If OfficeVer = 11 then
    strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Outlook\Options\Mail"
    ElseIf OfficeVer = 12 Then
    strKeyPath = "SOFTWARE\Microsoft\Office\12.0\Outlook\Options\Mail"
    Else
    WScript.Quit
    End if
    strKeyValue = "JunkMailImportLists"
    
    oReg.CreateKey HKEY_CURRENT_USER,strKeyPath
    oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strKeyValue,1
    
    strValueName1 = "JunkMailSafeSendersFile"
    strValue1 = "\\server\SafeSender.txt"
    oReg.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName1,strValue1
    
    
    wscript.echo "done"
    
    
    Function officever
    	On Error Resume Next
    	Set objoutlook = CreateObject("Outlook.Application")
    	If err.number <> 0 Then
    		officever = 0
    		On Error goto 0
    	Else
    		If Mid(objoutlook.Version, 1, 2) = 11 Then
    			OfficeVer = 11
    		ElseIf Mid(objoutlook.Version, 1, 2) = 12 Then
    			OfficeVer = 12
    		End If
    	End If
    	Set objoutlook = Nothing
    End Function

    Сазонов Илья http://www.itcommunity.ru/blogs/sie-wl/
    • Помечено в качестве ответа еггог 25 июня 2010 г. 8:34
    25 июня 2010 г. 5:51
    Модератор
  • Имеет-не имеет, ГПО не получится использовать в любом случае. Спасибо, что-то гуглежка у меня сломалась :)
    25 июня 2010 г. 5:55