Discussion :

[outilsuiviedegestion]

Bonjour,

j'ai réussi à créer un bouton E-Mail (Outlook) via une macro car je n'arrivais pas à le faire avec VBA malgré mes recherches. Désormais j'aimerais avoir un message prédéfini dans le corps de texte, l'utilisateur n'aura plus qu'à modifier le message en fonction des besoins et à indiquer le destinateur et les personnes en copies. Comment puis-je m'y prendre ? Faut-il passer par VBA nécessairement ?

[marot_r]

Bonjour.

Pour envoyer in courriel avec Outlook :

Comment envoyer un mail avec Outlook ?
https://access.developpez.com/faq/?page=Outlook#outlook

Code :

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

1
2
3
4
5
Public Sub CreateEmail( _
    Recipient As String, _
    Subject As String, _
    Body As String, _
    Optional Attach As Variant)

Le parametre Body te permet de specifier le texte que tu veux.

Attention n'oublie pas d'ajouter la reference.

A+

[Invité]

Bonsoir,

https://www.developpez.net/forums/d1...t/#post7968025

[outilsuiviedegestion]

Bonjour,

J'ai déjà crée le bouton E-Mail à l'aide d'une macro, y'a t-il une possibilité d'ajouter un corps de texte prédéfini dans cette même macro ?
Ou alors de lier la macro et un peu de code VBA ?

Si non, alors je me suis lancé pour le code en VBA mais je n'arrive pas à appeler CreateMail?

Voilà ce que j'ai écris :

Code :

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

1
2
3
4
5
6
7
Private Sub E-Mail_Click()
Call CreateEMail( _
    Recipient, _
    Subject, _
    Body, _
    Attach)
End Sub

Code :

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

1
2
3
4
5
6
7
Private Sub E-Mail_Click()
Call CreateEMail( 
    Recipient, 
    Subject, 
    Body, 
    Attach)
End Sub

De plus, je n'ai pas bien compris comment je dois insérer le message ? (code spécifique ? entre guillemet ? ...)

J'ai testé ensuite le code CDO, il a l'air de fonctionner mais il me demande obligatoirement un destinataire. " Au moins un des champs De et Expéditeur est requis et n'a pas été trouvé. "
J'ai essayé de modifier le code mais je n'ai pas réussi.

Je voudrais que la boîte Outlook s'ouvre sur la page d'envoi d'un mail, avec le corps de texte prédéfini. L'utilisateur peut ajouter lui-même le destinataire.

[Invité]

Bonsoir,

Dans le lien que je t'ai donné tu as CDO oui mais également Outlook.

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
Sub Test()
Mail "Sujet", "Message", "Destinataire@gmail.com", Pj:="C:\MyTest\Classeur1.xlsm;C:\MyTest\Classeur11.xlsm", DestinataireCopyCacher:="DestinataireCopyCacher@gmail.com"
Mail "Sujet", "Message", "Destinataire@gmail.com", Pj:="C:\MyTest\Classeur1.xlsm;C:\MyTest\Classeur11.xlsm", DestinataireCopy:="DestinataireCopy.com"
Mail "Sujet", "Message", "Destinataire@gmail.com", DestinataireCopy:="DestinataireCopy.com", DestinataireCopyCacher:="DestinataireCopyCacher@gmail.com"
Mail "Sujet", "Message", "Destinataire@gmail.com", DestinataireCopyCacher:="DestinataireCopyCacher@gmail.com"
Mail "Sujet", "Message", "Destinataire@gmail.com"
End Sub
Sub Mail(Sujet As String, Message As String, Destinataire As String, Optional DestinataireCopy As String, Optional DestinataireCopyCacher As String, Optional Pj As String = "")
Set objOutlook = CreateObject("Outlook.application")
Set MailObj = objOutlook.CreateItem(olMailItem)
With MailObj
    .To = Destinataire
    .CC = DestinataireCopy
    .BCC = DestinataireCopyCacher
    .Subject = Sujet
    .BodyFormat = 2
    .HTMLBody = Message
    If Trim("" & Pj) <> "" Then
        p = Split(Pj & ";", ";")
        For i = 0 To UBound(p)
            If Trim("" & p(i)) <> "" Then .Attachments.Add Trim("" & p(i))
        Next
    End If
    '.Display 'Can be .Send but prompts for user intervention before sending without 3rd party software like ClickYes
    .Send
End With
End Sub

Si tes informations sont dans un table Access, tu n'as pas à te soucier des guillemets tu passe directement les champs de ta requête.

[marot_r]

Bonjour.

J'ai déjà crée le bouton E-Mail à l'aide d'une macro, y'a t-il une possibilité d'ajouter un corps de texte prédéfini dans cette même macro ?

Est-ce que la macro te l'offre ? Si non, et bien non ce n'est pas possible.

Quelles difficulties rencontres-tu avec

Code :

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

1
2
3
4
5
Call CreateEMail( _
    Recipient, _
    Subject, _
    Body, _
    Attach)

Tous les parametres sauf l'attachement doivent etre des textes.

Ici un exemple d'utilsation avec des textes fixes sans attachement :

Code :

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

1
2
3
4
Call CreateEMail( _
    "titi@grandmere.com", _
    "J'ai cru voir un rominet !", _
    "Mais oui, mais oui, j'ai bien vu un rominet.")

Si tes textes viennent des champs d'un formulaire, d'une table ou d'une requete tu n'as pas besoin de guillemets.

A+

[outilsuiviedegestion]

Un grand merci, j'ai réussi à m'envoyer un mail grâce à vos codes. J'ai ensuite créer des champs : Sujet, Message... ect dans une table E-mail (je ne sais pas si c'est la meilleure façon de procéder) puis j'ai insérer les champs correspondants dans un formulaire.

Comment prédéfinir à l'avance un message dans le champ Message ? Ce message doit pouvoir être modifiable.

[Invité]

https://mon-partage.fr/f/VqjaiWFl/

cette source à été élaboré à partir du travail de patricktoulon.