none
Outlook 2000-Addin (Erstellung einer Weiterleitungsregel) RRS feed

  • Frage

  • Hallo zusammen,

    ich hoffe hier kann mir irgendjemand helfen. Ich möchte einen eigenen Abwesenheitsassistenten schreiben, in dem auch ein Stellvertreter angegeben werden muss, an den eingehende Mails weitergeleitet werden. Die Nachricht soll unverändert weitergeleitet werden.

    Ich benutze VB6 und die Rule.dll des Exchange 5.5 SDK.

    Folgende Sachen habe ich bereits rausbekommen:
    Bei Action-Object muss als Type FWD_DO_NOT_MUNGE_MSG angegeben werden. Muss FWD_PRESERVE_SENDER ebenfalls angegeben werden (ist laut OutlookSpy ebenfalls angegeben, wenn ich die Regel über den Outlook-Regelassi erstelle)
    Mein Problem ist der Empfänger. Dieser liegt mir als E-Mailadresse oder Displayname vor.

    Mein Code-Auszug:

        Const CdoPR_SEARCH_KEY = &H300B0102
        Const PR_MESSAGE_TO_ME = &H57000B
        Const FWD_PRESERVE_SENDER = 1
        Const FWD_DO_NOT_MUNGE_MSG = 2
        Dim objRules As MSExchange.Rules
        Dim objRule As MSExchange.Rule
        Dim objAction As MSExchange.Action
        Dim objPropVal As MSExchange.PropVal
        Dim objContCond As MSExchange.ContentCondition
        Dim ActionAddressList As mapi.AddressList
        
        ' Create the rules object
        Set objRule = New MSExchange.Rule
        Set objRules = New MSExchange.Rules
        Set objPropVal = New MSExchange.PropVal
        Set objContCond = New MSExchange.ContentCondition
            
        ' Get the Rules collection on TestUser's Inbox
        objRules.Folder = objSession.Inbox
        
        'Rule Property
        objPropVal.Tag = PR_MESSAGE_TO_ME
        objPropVal.Value = True
        
        ' Rule Condition
        objContCond.Value = objPropVal
        objContCond.PropertyType = PR_MESSAGE_TO_ME
        objContCond.Operator = 7
        
        'Rule Action
        Set objAction = New MSExchange.Action
        objAction.ActionType = FWD_PRESERVE_SENDER
        objAction.Arg = ?????????
        
        objRule.name = RULE_NAME
        objRule.Condition = objContCond
        objRule.Actions.Add , objAction
      
       ' Rule end
        objRules.Add , objRule
        objRules.Update
    Kann mir jemand helfen, wie ich die Kriterien angeben kann?

    Vielen vielen Dank
    Headley
    Dienstag, 9. Juni 2009 12:32