Beiträge von Carmen561

  • Exchange Regel per VB.net aktivieren bzw deaktiveren

    Hallo allerseits,


    ich bin gerade dabei im VB.net auf dem Exchangeserver eine Regel an- bzw auszuschalten.
    Bisher habe ich vieles über CDO-Zugriff programmiert , aber nun will doch mal auf EWS umsteigen.


    Ich habe 2 Probleme :
    1. zeigt mir mein Script nur die aktiven Regeln und
    2. bekomme die Regel nicht gespeichert, nachdem ich die Eigenschaft ISEnabled geändert habe.


    mein Script:
    Imports Microsoft.Exchange.WebServices.Data
    'Anmeldung
    EWService = New ExchangeService(ExchangeVersion.Exchange2010_SP2)
    EWService.Url = New Uri("https://meinServer/EWS/Exchange.asmx")
    EWService.Credentials = New WebCredentials(user, PW, Domaene)


    'Aufruf
    err_code = Regel_aktivieren(EWService, Regelname:="meine regel", aktiv:=False)


    'function
    Function Regel_aktivieren(ByRef service As ExchangeService, ByRef Regelname As String, ByRef aktiv As Boolean) As String
    'Declaration
    'Regel aktivieren
    Dim l_rules As RuleCollection
    Dim l_rule As Rule
    Dim l_SetRuleOperation As SetRuleOperation


    Regel_aktivieren = "OK"
    Try
    l_rules = EWService.GetInboxRules()
    For Each l_rule In l_rules
    'jetzt sind nur die aktiven zu sehen ???
    MsgBox(l_rule.DisplayName & ": " & l_rule.IsEnabled)
    If UCase(l_rule.DisplayName.ToString) = UCase(Regelname) Then
    If aktiv = True Then
    l_rule.IsEnabled = True


    Else
    l_rule.IsEnabled = False
    End If
    'speichern
    l_rule.save ==> existiert nicht wie bekomme ich die Änderung gespeichert?
    End Try
    Exit For
    End If
    Next


    Catch ex As Exception
    End Try


    End Function


    Könnt Ihr mir helfen. Danke


    Carmen