none
[EXCHANGE 2003 et Outlook 2007 ] Boite commune avec plusieurs alias. Déterminer l'alias utilisé par l'expéditeur ? RRS feed

  • Question

  • Bonjour,

    J'ai 1 boite aux lettres nommé commun avec plusieurs alias concernant plusieurs usage.

    Aujourd'hui quand je reçois des mails utilisant les différents alias de mon compte commun dans Outlook (2007)  il apparait systématiquement le nom du compte au lieu des alias utilisé.

    Exemple : j'ai une boite avec alias prinicpal contact@domaine.com, puis compta@domaine.com et production@domaine.com.Impossible de trier en fonction de alias de destination tout apparait comme étant un destiné au compte compte :( . 

    Est-ce qu'il y a une possibilité d'afficher ces alias (par exchange ou outlook ) ?

    Merci,



    lundi 25 mars 2013 16:40

Réponses

  • Bonjour,

    Dans les affichages, les alias sont remplacés par le nom correspondant dans l'annuaire !

    La logique est de créer autant de boîtes/comptes que d'adresses que l'on veut "distinguer"...

    La logique est la même si l'on veut répondre sous chacune de ces adresses, ce qui est souvent le pendant demandé ensuite.

    A bientôt,


    Thierry DEMAN. Exchange MVP. MCSE:Messaging 2013 (75 MCPs). https://mvp.support.microsoft.com/profile=CE2B565B-B13D-4C24-B04D-F0D5766D14A1 http://www.faqexchange.info

    • Marqué comme réponse Florin Ciuca jeudi 28 mars 2013 09:39
    lundi 25 mars 2013 16:48
    Modérateur
  • Il semblerait que la seule solution soit un traitement par un script vba qui traiterait le corps de mail pour récupérer les alias d'origine et remplacer les destinataires.
    • Marqué comme réponse Florin Ciuca jeudi 28 mars 2013 09:39
    mercredi 27 mars 2013 08:55
  • Sinon vous créez X groupe de distribution qui contiennent en membre unique votre BAL. L'email sera bien délivré à votre BAL, mais l'adresse indiquée en To: sera celle du groupe de distribution.


    Bruce Jourdain de Coutance - Consultant Exchange http://brucejdc.blog.free.fr

    • Marqué comme réponse Florin Ciuca jeudi 28 mars 2013 09:39
    mercredi 27 mars 2013 15:45
    Modérateur

Toutes les réponses

  • Bonjour,

    Dans les affichages, les alias sont remplacés par le nom correspondant dans l'annuaire !

    La logique est de créer autant de boîtes/comptes que d'adresses que l'on veut "distinguer"...

    La logique est la même si l'on veut répondre sous chacune de ces adresses, ce qui est souvent le pendant demandé ensuite.

    A bientôt,


    Thierry DEMAN. Exchange MVP. MCSE:Messaging 2013 (75 MCPs). https://mvp.support.microsoft.com/profile=CE2B565B-B13D-4C24-B04D-F0D5766D14A1 http://www.faqexchange.info

    • Marqué comme réponse Florin Ciuca jeudi 28 mars 2013 09:39
    lundi 25 mars 2013 16:48
    Modérateur
  • Bonjour,

    Dans les affichages, les alias sont remplacés par le nom correspondant dans l'annuaire !

    La logique est de créer autant de boîtes/comptes que d'adresses que l'on veut "distinguer"...

    La logique est la même si l'on veut répondre sous chacune de ces adresses, ce qui est souvent le pendant demandé ensuite.

    A bientôt,


    Thierry DEMAN. Exchange MVP. MCSE:Messaging 2013 (75 MCPs). https://mvp.support.microsoft.com/profile=CE2B565B-B13D-4C24-B04D-F0D5766D14A1 http://www.faqexchange.info

    Bonjour et merci pour votre réponse !

    J'avais bien intégré la contrainte du champs FROM, mais pour le champs de destination je ne pensais pas  :,) , c'est quand même bizarre qu'on ne puisse pas faire apparaitre ce champ pour faire un tri ou empecher  la conversion en nom de compte(au niveau de l'exchange)...

    lundi 25 mars 2013 16:56
  • Il semblerait que la seule solution soit un traitement par un script vba qui traiterait le corps de mail pour récupérer les alias d'origine et remplacer les destinataires.
    • Marqué comme réponse Florin Ciuca jeudi 28 mars 2013 09:39
    mercredi 27 mars 2013 08:55
  • Sinon vous créez X groupe de distribution qui contiennent en membre unique votre BAL. L'email sera bien délivré à votre BAL, mais l'adresse indiquée en To: sera celle du groupe de distribution.


    Bruce Jourdain de Coutance - Consultant Exchange http://brucejdc.blog.free.fr

    • Marqué comme réponse Florin Ciuca jeudi 28 mars 2013 09:39
    mercredi 27 mars 2013 15:45
    Modérateur
  • Bonjour et merci pour vos réponses,

    J'ai réalisé la macro en vba et elle fonctionne.

    Je vous la livre en l'état. Je ne suis pas un expert vba et le code n'est pas nettoyé mais la base est la et pourra être utile a quelqu'un (Testé avec Outlook 2007 )

    Private Sub CmdChangeAlias()
        '
        Dim oMail As Outlook.MailItem
        Dim myOlSel As Outlook.Selection ' Sélection
        Dim objReplyMail As Outlook.MailItem
        Dim olkPA As Outlook.PropertyAccessor
        Dim myOlApp As Outlook.Application
        Dim strModel, PropName, Header, strTo As String
        Dim tabHeader() As String
        '
        Dim c, d As Integer ' compteur
        
        PropName = "http://schemas.microsoft.com/mapi/proptag/0x007D001E"
    
        Set myOlSel = ActiveExplorer.Selection
        If myOlSel.Count > 10 Then
            If MsgBox("Voulez-vous transformer les adresses de destinations des " & myOlSel.Count & " emails sélectionnés. " & vbCrLf & "Attention cette opération ne peut être annulée", vbOKCancel, "Demande de confirmation") = vbYes Then
                Exit Sub
            End If
        End If
            
            
        
        For c = 1 To myOlSel.Count
            Set oMail = ActiveExplorer.Selection(c)
            Set olkPA = oMail.PropertyAccessor
            
            ' strModel = strModel & oMail.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x007D001E") & ";"
            Header = olkPA.GetProperty(PropName)
            tabHeader = Split(Header, Chr(10))
            
            For d = 0 To UBound(tabHeader)
                 If (tabHeader(d) Like "[Tt][Oo]*") Then
                    strModel = tabHeader(d)
                    strTo = ExtractAlias(strModel)
                    
                End If
                    
                
        Next d
            
    
            
            ' Debug.Print "--------------------------" & vbCrLf & tabHeader(0)
            Debug.Print "--header --" & vbCrLf & Header & vbCrLf & "--- alias ---" & strTo
            
            oMail.To = strTo
            oMail.Save
            
        Next c
            
    
    End Sub
    
    Private Function ExtractAlias(ByVal fieldTo As String) As String
        Dim str  As String
        Dim emails() As String
        Dim c, length, first, last, n As Integer
        
        
        str = fieldTo
        
        ' Suppression du champ To:
         str = Replace(str, "To:", "")
         str = Replace(str, "TO:", "")
         str = Replace(str, "to:", "")
         str = Replace(str, "To: ", "")
         str = Replace(str, "TO: ", "")
         str = Replace(str, "to: ", "")
         
         ' Extraction de toutes les adresses email délimité par ,
         emails = Split(str, ",")
         str = ""
         For c = 0 To UBound(emails)
            legnth = Len(emails(c))
            ' Recherche de délimiteur <>
            If ((InStr(emails(c), "<") > 0) < (InStr(emails(c), ">"))) Then
                first = InStr(emails(c), "<") + 1
                n = InStr(emails(c), ">") - first
                emails(c) = Mid(emails(c), first, n)
            End If
            ' Recherche delimiteur ""
            If (InStr(emails(c), """") < InStrRev(emails(c), """")) Then
                first = InStr(emails(c), """") + 1
                n = InStrRev(emails(c), """") - InStr(emails(c), """")
                emails(c) = Mid(emails(c), first, n)
            End If
            
            If c = 0 Then
                str = emails(c)
            Else
                str = str & "; " & emails(c)
            End If
            
         Next c
         
         'Parcous de chaque email pour traitemeent
         
        ExtractAlias = str
        
        
    End Function
    


    jeudi 28 mars 2013 14:51