1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Analyste
    Inscrit en
    janvier 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste
    Secteur : Finance

    Informations forums :
    Inscription : janvier 2018
    Messages : 2
    Points : 1
    Points
    1

    Par défaut VBA Outlook pour envoyer un mail avec pièce jointe

    Bonjour à tous !

    J'ai besoin de votre aide pour créer un code VBA me permettant d'envoyer, à plusieurs destinataires, des fichiers excel par mail (outlook).
    Le mail devant avoir un corps de texte.

    J'ai regardé quelques discussions sans trouver de réponses à mon problème, je ne sais pas par où commencer !

    Merci de votre aide !!

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

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 373
    Points : 5 876
    Points
    5 876
    Billets dans le blog
    16

    Par défaut

    Bonsoir,
    voici une exemple

    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
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    Private Sub ExempleNewMail()
        Dim appOutlook As Outlook.Application
        Set appOutlook = Outlook.Application
        Dim MESSAGE As Outlook.MailItem
        Dim objRecipient As Outlook.Recipient
     
        Set MESSAGE = appOutlook.CreateItem(olMailItem)
        With MESSAGE
            .Subject = "Mon Objet"
     
            'Soit on ajoute un Corps en TEXTE BRUT
            .BodyFormat = olFormatPlain
            .Body = "Voici le coprs du Mail" & vbCr & " A la ligne"
     
            'Soit on ajoute un Corps en HTML
            .BodyFormat = olFormatHTML
            .HTMLBody = "<html><body> <font face=""arial""><p>Bonjour,</p><p>Ceci est un exemple de Message HTML</p><p>Il faut utiliser des balises HTML pour formater le texte.</p><p>En <strong>gras</strong>, <em>Italic</em>, <u>Souligné</u></p><BR><p>Je suis passé à la ligne</p><p>Voici un lien hypertexte.</p>" & _
                        "<a href=""mailto:Joe.User@MyCompany.com"">Joe User</a></font></body></html>"
     
            'Ajout d'un destinataire principal
            Set objRecipient = .Recipients.add("toto@toto.com")
            objRecipient.Type = olTo    'olBCC, olCC, olOriginator ou olTo.
            objRecipient.Resolve
     
            'Ajout d'un destinataire en copie
            Set objRecipient = .Recipients.add("titi@toto.com")
            objRecipient.Type = olCC    'olBCC, olCC, olOriginator ou olTo.
            objRecipient.Resolve
            '
            'Ajout d 'une PJ
            Dim MaPJ
            MaPJ = "c:\temp\monPDF.PDF"
            'on verifie d'abord qu'elle existe.
            If DIR(MaPJ) <> "" Then
                .Attachments.add MaPJ
            End If
     
            'ajout ar lecture
            .ReadReceiptRequested = True
     
            'Soit je l'affiche
            .Display
            'Soit je l'envoi
            '.Send
        End With
    End Sub

  3. #3
    Nouveau Candidat au Club
    Femme Profil pro
    Analyste
    Inscrit en
    janvier 2018
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste
    Secteur : Finance

    Informations forums :
    Inscription : janvier 2018
    Messages : 2
    Points : 1
    Points
    1

    Par défaut

    Merci de votre aide, je vais essayer cette méthode !

Discussions similaires

  1. Réponses: 20
    Dernier message: 31/08/2015, 20h08
  2. Comment envoyer un mail avec pièce jointe (BCB6)
    Par renesouley dans le forum C++Builder
    Réponses: 16
    Dernier message: 30/12/2006, 21h56
  3. Envoyer un mail avec pièce jointe
    Par anirose dans le forum VBA Access
    Réponses: 6
    Dernier message: 08/11/2006, 12h45
  4. Envoyer un mail avec pièce jointe (javascript)
    Par Dorra_26 dans le forum Général JavaScript
    Réponses: 15
    Dernier message: 21/07/2006, 08h31
  5. [C++/MFC]Envoyer un mail avec Pièce jointe
    Par cjacquel dans le forum MFC
    Réponses: 4
    Dernier message: 12/06/2006, 13h48

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