Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    août 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : août 2019
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Comment récupérer adresse mail avec nom de domaine d'un destinataire
    Bonjour,


    Après une recherche infructueuse sur le FORUM, je me lance dans la création d'un fil de discussion.
    En espérant ne pas faire de doublon.

    J'ai écris une macro qui se lance dès que l'on envoie un email.
    La macro identifie tous les destinataires du mail.
    Si un le domaine d'un destinataire (nom.prenom@domaine.com) correspond à un type de domaine spécial alors on envoie une copie du mail à une adresse mail spécifique.

    Ci dessous la macro :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    Option Explicit
     
    Sub application_itemsend(ByVal item As Object, cancel As Boolean)
    Dim cc As String
    Dim recherche As Boolean
    Dim Destinataire, myrecipient As Variant
     
    cc = "nom.prenom@domaine.com"
    recherche = False
     
        'on verifie si c'est un mail
    If Not item.Class = olMail Then Exit Sub
     
        'on regarde tous les destinataires du mail
    For Each Destinataire In item.Recipients
            'on vérifie si un envoie est fait à un type de domaine
        If AdresseEmail(Destinataire) Then recherche = True
    Next Destinataire
     
        'on met  en copie
    If recherche Then
        Set myrecipient = item.Recipients.Add(cc)
        myrecipient.Type = olCC
        End If
    myrecipient.Resolve
    End Sub
     
    Function AdresseEmailTECHNIP(ByVal EmailAVerifier As String) As Boolean
    Dim EmplacementArobase As Integer
    Dim Domaine As String
     
        'vérification de l'adresse
    EmplacementArobase = InStr(1, EmailAVerifier, "@")
    Domaine = Right(EmailAVerifier, Len(EmailAVerifier) - EmplacementArobase)
    If Domaine = "domaine_recherché.com" Then AdresseEmai = True Else AdresseEmail = False
    End Function
    La macro fonctionne bien à une exception près.
    Si j'entre dans ma barre d'adresse un mail de mon organisation de type nom.prenom@domaine.com OUTLOOK me l'affiche sous le format "NOM PRENOM"
    Jusqu'ici rien d'anormal.

    Sauf que dans la macro, la valeur renseignée dans Destinataire dans la boucle FOR (For Each Destinataire In item.Recipients) est "NOM PRENOM"
    Du coup, comme je recherche l'@ pour extraire le nom du domaine et qu'il n'y a pas d'@ dans Destinataire...
    La macro ne fonctionne pas.

    Je voudrais extraire le domaine de l'adresse mail en toutes circonstances.

    Pouvez vous m'aider ?

    Merci

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 708
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 708
    Points : 6 473
    Points
    6 473
    Billets dans le blog
    17
    Par défaut
    Bonjour,

    Essaye avec cette fonction
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Function GetSMTPAddressForRecipient(recip As Outlook.Recipient) As String
    '---------------------------------------------------------------------------------------
    ' Procedure : GetSMTPAddressForRecipient
    ' Author    : Oliv-
    ' Date      : 21/01/2015
    ' Purpose   : Obtenir l'adresse SMTP =xxx@xxx.xxx
    '---------------------------------------------------------------------------------------
    'Dim recip As Outlook.Recipient
    'pas de adresse SMTP si Contact d'origine EXCHANGE mais copié dans Pop
        GetSMTPAddressForRecipient = ""
        On Error GoTo fin
        Dim PA As Outlook.propertyAccessor
        Const PR_SMTP_ADDRESS As String = _
              "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
        Set PA = recip.propertyAccessor
        'Debug.Print recip.Name & " SMTP=" _
         & pa.GetProperty(PR_SMTP_ADDRESS)
        GetSMTPAddressForRecipient = PA.GetProperty(PR_SMTP_ADDRESS)
    fin:
        If GetSMTPAddressForRecipient = "" Then GetSMTPAddressForRecipient = recip
    End Function

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Ressources humaines
    Inscrit en
    août 2019
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : Ressources humaines

    Informations forums :
    Inscription : août 2019
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    Impeccable.

    Je ne comprend pas tout le code mais ça marche.

    Merci

    Si tu pouvais un peu m'expliquer les grandes lignes de ton code ça serait la cerise sur le gâteau

Discussions similaires

  1. Réponses: 1
    Dernier message: 24/12/2017, 09h25
  2. Réponses: 0
    Dernier message: 04/09/2015, 09h42
  3. création adresse mail avec sous domaine (plesk)
    Par heteroclite dans le forum 1&1
    Réponses: 0
    Dernier message: 07/04/2010, 21h47
  4. Récupérer l'adresse mail avec le nom complet en VBA
    Par rlapt dans le forum VBA Outlook
    Réponses: 3
    Dernier message: 19/11/2008, 19h09
  5. Réponses: 21
    Dernier message: 19/11/2008, 11h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo