Discussion :

[tophe45300]

Bonjour, j'ai un code écrit par Mr Poulpe me permettant d'envoyer une feuille à un destinataire contenu dans une cellule de la feuille.
Ce code fonctionne très bien, mais les destinataires voudraient que la feuille soit envoyée en corp de message plutot qu'en pièce jointe.
J'ai essayé de modifier le code mais du coup plus rien ne fonctionnait.
Voici le code :

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
 
Sub EnvoiPage_2()
Dim Destinataires(4) As String, Sujet As String
Dim AccuseReception As Boolean
Dim Demande2 As Worksheet, Fabricants As Worksheet
Dim Destinataire_1 As String
 
 
Set Demande2 = ThisWorkbook.Sheets("Demande2") 'Modifier la feuille ici
Set Fabricants = ThisWorkbook.Sheets("Fabricants")
 
'Modifier les mails des destinataires
 
If MsgBox("Envoyer le mail à l'adresse suivante : " & Demande2.Range("C14") & " ou entrer une adresse?", vbYesNo, "Choix du destinataire") = vbYes Then
    Destinataire_1 = CStr(WorksheetFunction.VLookup(Demande2.Range("C14"), Fabricants.Range("A:B"), 2, False))
Else
    Destinataire_1 = InputBox("Veuillez entrer l'adresse mail du destinataire", "Choix du destinataire")
End If
 
Debug.Print Destinataire_1
If Not Destinataire_1 Like "*@*.*" Or Destinataire_1 Like "* *" Then
    MsgBox "Format de l'adresse mail non valide", vbCritical, "Adresse mail non valide"
    Exit Sub
End If
 
 
Destinataires(1) = Destinataire_1
Destinataires(2) = "dudule@gmail.com"
Destinataires(3) = "bidule@gmail.com"
Destinataires(4) = "machin@gmail.com"
Sujet = "Sujet"
AccuseReception = False
'Nom de la feuille (remplacer Recap par celui de la Feuille à envoyer)
ThisWorkbook.Sheets("Demande2").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
ActiveSheet.PrintOut
End Sub

Quelqu'un aurait-il une idée ?
Merci d'avance

[patricktoulon]

Bonjour

j'ai donné plusieurs exemples dans les contributions

fait une recherche avec mon pseudo et mail ,corps ,table et Outlook pour mon dernier exemple

tu peut regarder aussi dans les contributions comment je converti une plage en table html en respectant le theme source

le principe étant de convertir la plage en table HTML avant tout

bonne recherche

[tophe45300]

Bonjour Patrick, j'ai suivi tes conseils.
J'ai cherché et trouvé comment créer le fichier HTML.
Maintenant c'est au niveau de l'envoi que ça plante.
Je n'arrive pas à associer le code de Mr Poulpe que je suis obliger de garder car il gère le changement de destinataire, et les codes que je trouves pour l'envoi du fichier HTML.
Peux-tu m'aiguiller ?

[patricktoulon]

Bonjour
désolé de t'enlever toutes tes illusion mais avec cette méthode tu ne pourra pas intégrer du code html dans le corps du message

il va te falloir passer par CDO ou l'application Outlook
je n'utilise pas Outlook donc sur ce point je ne pourrait pas t'aider

quand au fait que tu puisse choisir le destinataire c'est pas un soucis puisque qu'elle se fait avec vlookup ou un inputbox
on peu donc intégrer cela dans une méthode CDO ou outlook

voila désolé si tu persévère je t'aiderais sinon tant pis

encore une question y a t il vraiment toute la page demande a envoyer ou seulement une plage

[davido84]

Bonjour à tous,
regarde ce lien si cela peut t'aider.
A+

[tophe45300]

Bonjour Patrick,
Désolé du retard, suite à une erreur de code cela m'a endomagé le fichier.
J'ai du tout refaire.
Donc je voudrais envoyer le tableau contenu dans la feuille "Demande2" à plusieurs adresses ( dont une qui est modifié suivant le nom rentré dans la cellule C14 de cette feuille ) par outlook en corps de message.
Mr poulpe m'a donné le code ci dessus ( qui fonctionne très bien ).
Sauf que les destinataires voudraient que le tableau soit en corps de mail plutôt qu'en pièce jointe.
D'après tout ce que j'ai pu lire sur les forums, il faut convertir la feuille en HTML et l'envoyer en tant que corps de mail.
J'ai réussi à faire le code pour enregistrer ma feuille en HTML mais je n'arrive pas à modifier le code de Mr poulpe pour l'envoyer dans le corps du mail.