[Exchange] Mailbox met wildcard

[SavageNL]

Ik heb thuis altijd een MDaemon mailserver gehad, maar omdat mijn broeren ik nu beiden een pda hebben leek het ons makkelijker om een Exchange server te installeren (synchroniseren kan dan ook via internet enz)

De server werkt nu, we kunnen mail ontvangen en synchroniseren, maar ik mis een optie die MDaemon wel had, en die ik eigenlijk niet kwijt wil: Mailboxen met een wildcard

Ik gebruik als ik me ergens inschrijf altijd SavageWebSite@blabla zodat ik altijd die website kan filteren, en dat ik precies weet waar de mail vandaan komt. In MDaemon heette dit een Alias, daar kon je zeggen dat *Savage*@... naar mailbox Savage@... moest gaan. Ik krijg dit alleen niet terug gevonden in Exchange (alias in exchange is iets anders, en ik weet niet hoe ik op precies dit probleem moet zoeken)

Moet dit met een Catchall? Wat ik daarvan gevonden heb lijkt alleen te gaan over "*@... moet naar ..." en niet "*iets*@... moet naar iets@..."
En is het eigenlijk sowiezo wel mogelijk?

[paulhekje]

In Exchange is een alias een extra smtp adres dat je bij de user instelt met AD Users&Computers.
Een wildcard kun je niet gebruiken.

Een catchall configureer je alleen als je alle niet te adressen mail naar een bepaalde mailbox wilt sturen.

[Koffie]

Zie paulhekje.
Het laatste (de CatchAll) is dus als volgt : Je geeft aan in welke mailbox *alle* mail moet komen welke normaal teruggestuurd zou worden met de melding "user doesn't exist".

Move PNS > SA

[McMiGHtY]

* McMiGHtY snapt Koffie even niet.

Ik heb wel een linkje voor je naar een catch all scriptje:

http://www.msexchange.org...hall-Script-Released.html

[alt-92]

McMiGHtY schreef op zondag 05 februari 2006 @ 20:38:
* McMiGHtY snapt Koffie even niet.

Ik wel
Het gaat niet over een *@ catchall, maar over een adres met een *wildcard*@ en dat doet exchange niet default..

(dat catchall ding werkt overigens prima hoor, hier al 2 jaar in gebruik bijna)

Je zou er natuurlijk wel een dergelijke eventsink voor kunnen proberen te verzinnen.

[ Voor 12% gewijzigd door alt-92 op 05-02-2006 21:02 ]

[SavageNL]

Ik zit te kijken naar dat catchall script, maar die lijkt erop dat ie kan gaan doen wat ik wil (met een paar kleine aanpassingen). Lijkt erop dat het enige dat het doet is kijken of een mailadres beschikbaar is, en zo niet het adres veranderen in iets anders

Even kijken of ik het vandaag of morgen aan de praat kan krijgen

[SavageNL]

Ik heb het werkend gekregen

Dit zijn de functies en variabelen die ik aangepast heb:

code:

' The wildcarded alias: *something*@...   must be lowercase
domains = Array ("some", _
         "name", _
         "goes", _
         "here")

' List with addresses to send the mail to once one of the aliasses specified above is found
' must have the same order

catchalls = Array ("smtp:[e-mail]", _
           "smtp:[e-mail]", _
           "smtp:[e-mail]", _ 
           "smtp:[e-mail]")

Function SearchDomains (ByVal strDomain)
    Dim strDom, i, j ' j added

    strDom = LCase (strDomain)
    For i = LBound (domains) To UBound (domains)
        j = Instr (strDom, domains (i)) 'Edited, will search for the wildcard and not the domain
        if j > 0 then
            SearchDomains = i
            Exit Function
        End If
    Next

    SearchDomains = -1
End Function
'
'  Change any unknown email addresses
'
Function FixupRecipientList (strList)
    Dim arr, iUpper, i, j, str

    arr = Split (LCase (strList), ";")
    iUpper = UBound (arr)

    For i = LBound (arr) To iUpper
        str = arr (i)

        j = Instr (str, "@")
        If j > 0 Then
            j = SearchDomains (str) ' Edited, will send the entire address, not just after the @
            If j >= 0 Then
                If Not SearchForAddress (str) Then
                    str = catchalls (j)
                    arr (i) = str
                End If
            End If
        End If
    Next

    FixupRecipientList = Join (arr, ";")
End Function