NDR suite à une migration d’une boîte de courriel vers un nouveau serveur Exchange

Avez-vous déjà migré une boîte de courriel dans une nouvelle organisation Exchange ? Si vous avez exporté la boîte en format PST pour ensuite l’importer sur le nouveau serveur (Outlook ou Exmerge), voici une astuce pour éviter les messages d’erreur en répondant aux anciens courriels.

Exemple de message d’erreur
Users are receiving NDR while responding to old emails of Ron Mayers.
Delivery has failed to these recipients or distribution lists:
Mayers, Ron
The recipient’s e-mail address was not found in the recipient’s e-mail system. Microsoft Exchange will not try to redeliver this message for you. Please check the e-mail address and try resending this message, or provide the following diagnostic text to your system administrator.

Si vous cliquez sur le nom, le NDR vous affichera ceci
IMCEAEX-_O=EXCH_OU=EXCHANGE+20ADMINISTRATIVE+20GROUP+20+28FHSDHJF23GHYED+29_CN=RECIPIENT
S_CN=RON+2EMayers@contoso.com

Résolution rapide
Ajouter une adresse courriel de format X500 dans la boîte de l’utilisateur dans ce format :
/O=EXCH/OU=EXCHANGE ADMINISTRATIVE GROUP (28FHSDHJF23GHYED)/CN=RECIPIENTS/CN=RON.Mayers

Les nombres +20, +2E sont en fait
+20 est un ESPACE
+28 est un (
+29 est un )
+2E est un .
+40 est un @
+2C est un ,
+5F est un _
+3F est un ?

Remplacez maintenant le « _ » pour des « / » et enlever le @DOMAINE.COM à la fin.

Vous pouvez aussi utiliser ce script pour convertir les adresses X500 du NDR vers la bonne adresse X500 à configurer dans l’utilisateur :
Set FSO = CreateObject(“Scripting.FileSystemObject”)
Set WshShell = CreateObject(“Wscript.Shell”)

Set oArgs = WScript.Arguments
If oArgs.Count = 0 Then
oMail = InputBox(“Paste the affected email address”,”Email Required”)
Else
oMail = oArgs(0)
End If

If oMail = “” Then
WScript.Quit
End if

oCurDir = WshShell.CurrentDirectory
Set OutPutFile = FSO.CreateTextFile(oCurDir & “\” & “ConvertedX500.txt”,2)

If Instr(oMail,”IMCEAEX-”) Then
oMail = Replace(oMail,”IMCEAEX-”,” »)
End If
oRes = Replace(oMail,”_”,”/”)
oRes = Replace(oRes,”+28″,”(“)
oRes = Replace(oRes,”+29″,”)”)
oRes = Replace(oRes,”+2E”,”.”)
oRes = Replace(oRes,”+20″,” “)
oRes = Replace(oRes,”+40″,”@”)
oRes = Replace(oRes,”+2C”,”,”)
oRes = Replace(oRes,”+5F”,”_”)

Wscript.Echo “A resulting text file has been created in the same folder as this script” & VbCrLf &_
VbCrLf & “This will now open – you can paste the contents into an X500 email address.”

OutPutFile.WriteLine oRes
OutPutFile.Close
WshShell.Run “Notepad.exe ” & oCurDir & “\” & “ConvertedX500.txt”

Commentaires non autorisés.