Nye email-adresser til brugere og ny default adresse

Hey Torben !
Det kan gøres vha script !
Hvad hedder den mailadresse, der skal tilføjes ?

/Killer

Er det den gamle primære emailadr. der skal laves om til det samme før @ bare med noget andet efter ?

den er naturligvis individuel, men lad os antage at opbygningen er således:

%username%@mitfirma.dk

Der vil stadig skulle kunne modtages på den anden. Der skal altså tilføjes en ny, og default skal ændres til den ny

okies.
Så kommer der lidt her :
Dette gør den gamle primære adresse til alm adresse, og tilføjer en ny initialer@mitfirma.dk som primær for alle brugere indter OU'en "test" i domænet int.mitfirma.dk

Set oTargetOU = GetObject("LDAP://OU=test,dc=int,dc=mitfirma,dc=dk")
oTargetOU.Filter = Array("user")
For Each ouser in oTargetOU
strnavn = ouser.displayname
strinitialer = LCase(ouser.samaccountname)
        Set objRecip = oUser
      vProxyAddresses = objRecip.ProxyAddresses
      nProxyAddresses = UBound(vProxyAddresses)
      i = 0
Do While i <= nProxyAddresses
        proxy = vProxyAddresses(i)
          If Left (proxy,5) = "SMTP:" Then       
                vProxyAddresses (i) = "smtp:" & Mid (proxy,6)
                email = vProxyAddresses(i)
                oUser.SetInfo
          End If     
          i = i + 1
    Loop
  sAddress = "SMTP:" & strinitialer & "@mitfirma.dk"
 
      If Not bIsFound Then
          ReDim Preserve vProxyAddresses(nProxyAddresses + 1)
          vProxyAddresses(nProxyAddresses + 1) = sAddress
          objRecip.ProxyAddresses = vProxyAddresses
          oUser.SetInfo
      End If 

Next


/Killer

Det ser sejt ud. Nu er det jo ikke lige noget man skal lege med, har du mulighed for lige at vise den ændring jeg skal lave hvis jeg i første omgang blot vil teste på brugen tma og tma2?

Så skal jeg ikke bede om mere!

Torben

Sure thing
Husk, at rette den første linie, så den passer ti dit domæne :o)

Set oTargetOU = GetObject("LDAP://OU=test,dc=int,dc=dragsted,dc=com")
oTargetOU.Filter = Array("user")
For Each ouser in oTargetOU
strnavn = ouser.displayname
strinitialer = LCase(ouser.samaccountname)
If strinitialer = "tma" Or initialer = "tma2" Then
        Set objRecip = oUser
      vProxyAddresses = objRecip.ProxyAddresses
      nProxyAddresses = UBound(vProxyAddresses)
      i = 0
Do While i <= nProxyAddresses
        proxy = vProxyAddresses(i)
          If Left (proxy,5) = "SMTP:" Then       
                vProxyAddresses (i) = "smtp:" & Mid (proxy,6)
                email = vProxyAddresses(i)
                oUser.SetInfo
          End If     
          i = i + 1
    Loop
  sAddress = "SMTP:" & strinitialer & "@mitfirma.dk"
 
      If Not bIsFound Then
          ReDim Preserve vProxyAddresses(nProxyAddresses + 1)
          vProxyAddresses(nProxyAddresses + 1) = sAddress
          objRecip.ProxyAddresses = vProxyAddresses
          oUser.SetInfo
      End If 
End If
Next

Tak for det. Jeg tester i løbet af aftenen.

Torben

Fandt ud af, at det også kan lade sig gøre via policy. Jeg vil dog honere scriptet alligevel, kan måske bruge det i anden sammenhæng.

Torben

Hehe .. mange tak :o)
Fordelen ved, at bruge scriptet er, at man kan special-sy sine emailadresser.
Exchange admin giver vist kun mulighed for, at tilføje initialer@nytdomæne.
Med scriptet, kan man tage den gamle primære adresse (eks : fornavn.efternavn@gammeladresse.dk) og erstatte den med fornavn.efternavn@nyadresse.dk.
Eller hvad, man ny har af standard for emails :o)

Thx. 4 points

/Killer