IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
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

Macros et VBA Excel Discussion :

par vba récupérer l'emetteur d'un mail


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : Juillet 2007
    Messages : 11
    Par défaut par vba récupérer l'emetteur d'un mail
    Bonjour, pour envoyer un mail je n'ai pas de problème, mais je suis confronté à un nouveau problème
    je souhaite qu'un utilisateur lambda utilisant les macros génère un mail (facile) mais qu'il en soit lui même destinataire.
    pour mémoire pour envoyer un mail j'utilise :

    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
    stAppName = "C:\Program Files\Microsoft Office\Office11\OUTLOOK.EXE"
    Call Shell(stAppName, 1)
    'Avant de lancer cette macro, Dans l'éditeur VBA: Faire Menu / Tools / Reference / Cocher "Microsoft Outlook Library"
     
    Set myOlApp = CreateObject("Outlook.Application")
     
       Dim ol As New Outlook.Application
       Dim olmail As MailItem
       Dim CurrFile As String
     
    Set ol = New Outlook.Application
    Set olmail = ol.CreateItem(olMailItem)
     
    With olmail
        .To = dest
        .CC = destcc
        .bcc = destbcc
        .Subject = suj
        .Body = obj
        .Attachments.Add Fic
     
        '.Display
        .Send
    'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
    End With
    bien entendu les valeurs de dest, destcc, destbcc, suj, obj et Fic sont définies avant
    ----------------------------------------------------
    là j'aurais besoin d'un équivalent de
    emetteur = olmail.From mais cela n'existe pas pas plus que .Sender

    quelqu'un aurait il une solution à me proposer même sur une méthode différente
    Merci
    Denis

  2. #2
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    Bonjour,

    dans ce cas, je met l'émetteur en BCC (par exemple).

    je ne connais pas outlook, mais en lotus notes, .TO, .CC, .BCC peuvent contenir un tableau avec les différents destinataires.

  3. #3
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Il y a plusieurs propriétés de l'objet MailItem, concernant l'émetteur et la plus intéressante est .SenderEmailAddress, qui donne directement l'adresse mail que tu cherches
    Il faut voir si cette propriété est disponible lors de la rédaction d'un email.
    Sinon, il y a .SendUsingAccount bien dispo, mais qui ne renvoie que le nom du compte.
    Tu peux aussi demander sur le forum Outlook.

    Cordialement,

    PGZ

  4. #4
    Membre habitué
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : Juillet 2007
    Messages : 11
    Par défaut
    Merci godzestla je pratique également comme cela mais pour cette fois j'ai besoin "d'exporter" vers d'autre utilisateur qui ne vont même pas voir le vba
    et outlook permet également le 'multi-envoi'
    Merci PGZ mais hélas
    emet = olmail.SenderEmailAddress reste vide
    enet2 = olmail.SendUsingAccount génère une erreur d'exécution '438'

    Je vais voir du coté Outlook
    Encore merci à vous deux
    Denis

Discussions similaires

  1. [OL-2003] par vba récupérer l'emetteur d'un mail
    Par denis le breton dans le forum Outlook
    Réponses: 3
    Dernier message: 30/11/2010, 18h20
  2. Sélectionner le type de Format d'un E-mail par VBA
    Par coucou_ dans le forum VBA Outlook
    Réponses: 3
    Dernier message: 06/01/2009, 13h40
  3. Récupérer l'URL d'une page ouverte par vba apres une recherche
    Par ubssecurities dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 05/08/2008, 09h30
  4. déplacer les mails envoyés par VBA directement
    Par benpinta dans le forum VBA Outlook
    Réponses: 3
    Dernier message: 04/12/2007, 13h53
  5. création automatique de mail par vba
    Par nico0007 dans le forum VBA Outlook
    Réponses: 9
    Dernier message: 07/11/2007, 13h06

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