Créer un bouton envoi de mail

**rémi88** · 27/09/2018, 15h44

Bonjour,

Je vous contacte car j'aurais besoin d'aide d'experts ( je suis novice) pour créer sur VBA un bouton alerte mail.
Je m'explique: Le fichier est en PJ

Dans la colonne L je saisi manuellement une adresse mail. Dans la colonne P je voudrai ajouter un bouton envoi de mail avec le texte " Bonjour, Un plan de prévention est à reprogrammer".
Quand je clique sur ce bouton le mail est envoyé à la personne de la ligne L correspondante .

J’espère que je suis clair.

J'ai essayer de "bidouiller" avec ce que je trouvais sur le net mais impossible d'arriver à mes fin ...

Merci d'avance en tout cas et bonne journée !!!Copie de Plan de prévention.xlsm

**QuestVba** · 28/09/2018, 06h52

Bonjour,
Voici deux lectures :

Peux-tu déjà nous dire ce que tu as fait comme code ?

**Pierre Fauconnier** · 28/09/2018, 09h01

Bonjour.

Redirigé sur Outlook/VBA. Ca n'a pas grand chose à voir avec Excel

**rémi88** · 28/09/2018, 09h02

Bonjour,

Ce n'était que des copié coller du net je n'arrive pas à adapter à mon cas je n'y connais pas grand chose.

les liens que tu m'a envoyer ne m'aident pas bcp non plus ...

**Oliv-** · 28/09/2018, 09h48

Bonjour,

Voici un exemple pour envoyer un Email avec Outlook.

il faut commenter/de-commenter les parties selon tes besoins. (enlever le ')

Pour ton projet, il faudrait que tu expliques, plus précisément, ce que tu veux faire

combien de bouton envoyer auras-tu , s'il y en a qu'un tu souhaite envoyer à toutes les lignes ou seulement la ligne active, etc...

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
47
48
49
50
51
52
53
54
55
56
57
58
Sub ExempleNewMail()    'modèle baba
'---------------------------------------------------------------------------------------
' Procedure : ExempleNewMail
' Author    : Oliv
' Date      : 28/09/2018
' Purpose   :
'---------------------------------------------------------------------------------------
'
 
    Dim OL As Outlook.Application
    If UCase(Application) = "OUTLOOK" Then
        Set OL = Application
    Else
        Set OL = CreateObject("outlook.application")
    End If
    Dim MESSAGE As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
 
    Set MESSAGE = OL.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

**Pierre Fauconnier** · 28/09/2018, 09h55

Salut.

Ce serait quand même plus simple d'avoir une fonction qui reçoit les données en paramètres, je pense, plutôt qu'une procédure dans laquelle on doit aller trifouiller en fonction de l'utilisation et la source des données.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function SendMail(Sender As String, Recipients As String, Object As String, Message As String)
...
End Function

A décliner selon que l'on envoie du html ou du texte brut, qu'il y a ou non des fichiers attachés. Sinon, on va encore partir sur une discussion qui tire sur Outlook et sur Excel avec un code mer*** à la fin.

Il faut découper le processus en éléments simples qui font UNE chose. Une chose est d'envoyer un mail, une chose est d'aller chercher les données pour envoyer un mail. Si on mélange les deux dans une procédure foutoir, c'est la misère. De plus, on a ainsi un outil générique qui peut être utilisé sans soucis plusieurs fois dans le même projet, et être mis de côté pour une réutilisation dans d'autres projets. Sans cela, on réinvente la roue à chaque fois

**Oliv-** · 28/09/2018, 11h09

Oui bien sûr, mais là c'est pour apprendre ...

**rémi88** · 28/09/2018, 11h36

Plus précisément:

1 bouton par ligne et quand je clique sur le bouton d'une ligne il envoie le mail à la personne correspondante de la ligne

**Pierre Fauconnier** · 28/09/2018, 11h41

Il faut sérier et isoler les problèmes...

Envoyer un mail via Outlook, que ce soit par Excel ou autre, n'est vraiment pas compliqué du tout, et des exemples existent dans nos FAQ. Ca devient compliqué lorsque tu dois aller trifouiller un code pour commenter/décommenter, nettoyer des trucs sans rien y comprendre (style code html) alors qu'au départ tu n'as probablement pas besoin de cela. C'est encore beaucoup plus simple lorsque l'on applique les bonnes pratiques de programmation (fonctions paramétrées et non données en dur dans le code comme dans l'exemple fourni, entre autres). Forcément, si on complique (inutilement), ça devient (inutilement) compliqué.

Au départ, envoyer un mail n'est en rien lié à Excel, surtout si tu utilises une fonction (tant qu'à apprendre, autant apprendre les bonnes techniques dès le début, c'est mille fois plus simple que d'apprendre les mauvaises en pissant du code puis en essayant de corriger. Je ne comprends pas comment on ne comprend pas cela

).

Sais-tu envoyer un mail Outlook avec une fonction? Une réponse de type Oui/Non me permettra te t'aiguiller vers la meilleure démarche, sinon, on va partir dans tous les sens (tant qu'à me répéter)
Oui => la discussion n'a rien à voir avec Outlook. Je la ferme et ton problème revient (peut-être car pas clairement circonscrit) à un problème de poser un bouton (DES boutons, un par ligne, est une super mauvaise idée)...
Non => Essaie déjà d'écrire une fonction sur base du code d'Oliv, sans te préoccuper d'Excel pour l'instant.

**rémi88** · 28/09/2018, 11h51

Je ne comprend rien à ce que vous me dite, je suis novice comme je l'ai dit précédement

Tant pis je vais trouver une autre solution

merci et bonne journée

**Pierre Fauconnier** · 28/09/2018, 11h58

Tu prends le problème par le mauvais bout.

Tu essaies d'abord de placer des boutons sur une feuille Excel pour envoyer des mails avant même de savoir comment envoyer des mails. C'est là que le bât blesse. Et donc, les solutions qui vont t'être proposées seront inévitablement des bricolages incroyables auxquels tu ne comprendras rien.

Puisque tu es débutant, et c'est loin d'être une tare, apprends de suite les bonnes méthodes, au lieu de devoir, alors que tu es débutant, aller trifouiller dans du code en commentant, décommentant, remplaçant des chaines de caractères par d'autres sans rien y comprendre (soi-disant pour apprendre...). On n'apprend rien de cette manière, sauf à produire de la m***.

Coder, ça vient tout à la fin du processus: D'abord, bien énoncer son problème (tu l'as fait), puis le diviser en petites tâches clairement définies (je l'ai fait pour toi): envoyer un mail, puis placer un bouton sur une feuille pour déclencher l'envoi du mail avec les bonnes infos.

Et je t'ai demandé: Sais-tu envoyer un mail en VBA? (je suppose que non). Tant que tu ne sais pas faire cela, il ne sert à rien d'essayer de placer un bouton ou des boutons sur une feuille Excel. Il te revient donc de découper ta problématique (nous pouvons t'y aider) puis d'avancer pas à pas sur sa mise en place technique. En l'occurrence, la présente discussion ne peut mener à rien

Créer un bouton envoi de mail

VBA Outlook

Discussions similaires

Partager

Partager