Discussion :

[modus57]

Bonsoir.

J'ai récupéré et modifié une macro trouvé sur ce forum pour envoyer un mail par Outlook.

J’arrive à récupérer sur la feuille l’adresse mail et l’objet, mais comment récupérer la plage A5:A15 dans le corps du message.

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
Sub EnvoiMail_3()
Dim ObjOutlook, Dim ObjOutlookmail, Dim NomFichier As String
 
NomFichier = ThisWorkbook.Name
 
Set ObjOutlook = CreateObject("Outlook.Application")
Set oBjMail = ObjOutlook.CreateItem(olMailItem)
 
    With oBjMail
        .To = Feuil1.Range("B2") 'le destinataire
        .Subject = Feuil1.Range("A3") 'l'objet du mail
        .Body = Worksheets("Feuil1").Range("A5:A15") 'c'est là que ça bug
        '.Attachments.Add Nomfichier
        .Send ' Ici on peut mettre '.Display' pour l'envoyer avec vérification sur outlook
    End With
 
    'ObjOutlook.Quit
 
End Sub

Existe-t-il une solution ?

Merci d’avance pour vos réponses.

[Quentin77170]

J'espère ne pas te dire de bêtise, mais j'avais fait l'équivalent il y a quelques temps et le problème est que le texte du message doit être au format HTML, tu ne peux pas simplement l'utiliser comme ça (surtout si tu veux conserver le format avec les couleurs et tout)...

Je vais essayer de retrouver ce que j'avais fait (et qui fonctionnait) mais je pense que d'autres ont des réponses bien plus complètes à t'apporter !

De mémoire : soit tu abandonnes toute idée de format du texte, et dans ce cas-là, j'imagine qu'une string enveloppant toutes tes cellules fera l'affaire, soit tu devras faire toi-même le pochoir des sauts de lignes, d'où tu veux mettre du gras, des couleurs, etc.

Mais c'est pas compliqué, juste un peu contraignant quand on aimerait que ce soit plus simple

Quentin

Resalut,

Je viens de retrouver mon code et j'avais ceci qui fonctionnait très bien :

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
 
       .To = Adddresse(valeur)
       .CC = ""
       .BCC = ""
       .Subject = "Relance action LEAN N°" & Numéro(valeur)
 
 
       Message = "<i>  <b>Bonjour " & Pilote(valeur) & ",</b><br><br>"
       Message = Message & "Vous êtes automatiquement notifié(e) par le formulaire de proposition d'amélioration LEAN." & "<br>"
       Message = Message & "Veuillez, s'il vous plaît, compléter les informations manquantes dans <a href=""" & Application.ActiveWorkbook.FullName & """>ce formulaire</a> concernant l'action suivante : </i>" & "<br>" & "<br>"
       Message = Message & "<b>Action N°</b>" & "<FONT COLOR=blue>" & Numéro(valeur) & "</FONT>" & "<br>"
       Message = Message & "<b>Emetteur : </b>" & Emetteur(valeur) & " (service " & Service(valeur) & ")" & "<br>"
       Message = Message & "<b>Date d'émission : </b>" & DateEmission(valeur) & "<br>"
       Message = Message & "<b>Proposition d'amélioration : </b>" & Proposition(valeur) & "<br>"
       Message = Message & "<b>Acceptée : </b>" & Acceptée(valeur) & "<br>"
       Message = Message & "<b>Si non acceptée, pourquoi : </b>" & SiNonPourquoi(valeur) & "<br>"
       Message = Message & "<b>Délai : </b>" & Délai(valeur) & "<br>"
       Message = Message & "<b>Pilote : </b><FONT COLOR=blue>" & Pilote(valeur) & "</FONT><br>"
       Message = Message & "<b>Validation : </b>" & Validation(valeur) & "<br>"
       Message = Message & "<b>Temps de traitement : </b>" & TempsTraitement(valeur) & " jours<br>"
       Message = Message & "<b>Nombre de relances : </b>" & Relances(valeur) & "<br>" & "<br>"
       Message = Message & "Bien cordialement,</b>" & "<br>" & "<br>"
       Message = Message & "<i>Ce message a été envoyé automatiquement, ne pas y répondre sauf pour information/question" & "<br>"
       Message = Message & "Les informations demandées ici doivent être obligatoirement renseignées dans le fichier excel au lien ci-dessous : </i>" & "<br>"
       Message = Message & "<a href=""" & Application.ActiveWorkbook.Path & """>lien vers le dossier</a>, <a href=""" & Application.ActiveWorkbook.FullName & """>lien vers le fichier</a>."
 
       .HTMLBody = Message
 
       '.Attachments.Add ("C:\...")
 
       .Display
       '.Send

Ca fait bcp de code avec plein de variables dont tu te fous, mais j'espère que tu vas pouvoir faire quelque chose (surtout, important : le ".HTMLBody =" et ici tu balances ton texte !)

Pour info, c'est l'unique macro que j'avais faite qui envoyait automatiquement des e-mails, donc ne prends pas forcément ça comme la meilleure solution

[modus57]

Merci Quentin de t'intéressé à cette discussion.

J'ai trouvé sur une FAQ de ce forum la réponse à mon problème :

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
Sub EnvoiPlageCellules()
Dim NomFichier As String
 
ActiveSheet.Range("A6:A18").Select ' la plage de cellules à envoyer
ActiveWorkbook.EnvelopeVisible = True
 
NomFichier = ThisWorkbook.Name
 
With ActiveSheet.MailEnvelope
    '.Introduction = "bonjour , ci joint les données ..."
    '.Item.To = "xxxxxx@orange.fr"
    .Item.To = ActiveSheet.Range("B2")
    .Item.Subject = ActiveSheet.Range("A3")
    '.Item.Attachments.Add Nomfichier
    .Item.Send
End With
End Sub

Petit souci, le mail est bien présent dans la boîte d'envoi, mais comment l'envoyer automatiquement ?

[modus57]

Bonjour,

J'ai l'impression que je ne suis pas dans le bon forum.

Comment transférer la discussion dans le forum Outlook ?

Merci à vous.

[modus57]

Re

Finalement j'ai trouvé exactement ce qu'il me faut sur le forum Outlok, l'excellente procédure de joe.levrai inspirée de Theze:

http://www.developpez.net/forums/d15...fichier-excel/

[kiki29]

Salut, pour info : CDO

[joe.levrai]

Re

Finalement j'ai trouvé exactement ce qu'il me faut sur le forum Outlok, l'excellente procédure de joe.levrai inspirée de Theze:

http://www.developpez.net/forums/d15...fichier-excel/

Excellente, excellente .... on va dire qu'elle est fonctionnelle, et se contente d'utiliser tout le travail effectué par la fonction qui n'est pas de moi