Envoie de cellule en reponse a un mail

**ddmot74** · 06/12/2019, 10h35

Bonjour,
Je suis novice et ne comprend pas tout dans toutes ces lignes de code, donc voici ce que je souhaite faire, en cliquant sur un bouton de pouvoir envoyer une sélection de cellule et de les coller en réponse a un mail sélectionné dans outlook .
Je me suis aidé de la fac pour mon code que j'ai essayé d'arranger.Hors le code me crée un nouveau mail avec les cellule copier plus le reply du mail sélectionné dans outlook sans les cellules.

Ci-dessous mon code et un fichier excel en 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
 
 
Option Explicit
 
'-----------------------------------------------------------------------
'
' Lit le contenu d'un fichier texte et retourne son
' contenu
'
'-----------------------------------------------------------------------
 
 Public Function ReadFile(sFileName) As String
 
Dim fso As Object, fFile As Object
Dim sTemp As String
 
   Set fso = CreateObject("Scripting.FileSystemObject")
 
   Set fFile = fso.OpenTextFile(sFileName, 1, False)
 
   sTemp = fFile.ReadAll
 
   fFile.Close
 
   Set fFile = Nothing
 
   ReadFile = sTemp
 
End Function
 
Sub PrepareOutlookMail(ByVal sFileName As String)
 
'Dim appOutlook As Outlook.Application
Dim oMail As Outlook.MailItem
Dim objReplyMail As Outlook.MailItem
Dim OutMail As Object
 
   'Set appOutlook = CreateObject("Outlook.Application")
 
   ' Si Outlook n'était pas ouvert, l'instruction
    ' ci-dessus aura eu pour conséquence de
    ' démarrer Outlook.
    'Ce type de démarrage par automation fait
    'apparaître une fenêtre de sécurité qui demande
    'à l'utilisateur de permettre au programme de
    'continuer.
    '
    'Le message est "A program is trying to send an
    'email.   Do you want to allow..."
    '
    'Dans le cas où l'utilisateur aurait cliqué sur No,
    'l'objet appOutlook est égal à Nothing.  Il est
    'donc impossible de continuer.
 
   'If Not (appOutlook Is Nothing) Then
 
      Set oMail = ActiveExplorer.Selection(1)
      Set objReplyMail = oMail.Reply
      objReplyMail.Display
 
      objReplyMail.BodyFormat = olFormatHTML
 
      oMail.HTMLBody = ReadFile(sFileName)
 
      oMail.Display
 
      'Set oMail = Nothing
      'Set appOutlook = Nothing
 
   'End If
 
End Sub
 
 
'-----------------------------------------------------------------------
'
' La routine SendRangeByMail va proposer à
' l'utilisateur de sélectionner une plage de cellules
' en Excel et va ensuite envoyer cette plage par
' mail, dans le corps du mail.
'
'-----------------------------------------------------------------------
 
 Sub SendRangeByMail()
 
Dim rngeSend As Range
 
   With Application
 
      On Error Resume Next
 
      ' Demande à l'utilisateur de sélectionner la
      ' plage de cellule
 
      Set rngeSend = .InputBox(Prompt:="Please select range you wish to send.", Type:=8, Default:=.Selection.Address)
 
      ' rngeSend Is Nothing lorsque l'utilisateur ne fait
      ' aucun choix
 
       If rngeSend Is Nothing Then Exit Sub
 
      On Error GoTo 0
 
      ' Exporte la plage vers un fichier de type HTML;
      ' ceci afin de respecter la mise en page de la
      ' plage
 
      .ActiveWorkbook.PublishObjects.Add(4, "C:\Temp\XLRange.htm", rngeSend.Parent.Name, rngeSend.Address, 0, "", "").Publish True
 
      ' Appelle la routine qui va se charger de créer
      ' un mail
 
      Call PrepareOutlookMail("C:\Temp\XLRange.htm")
 
      ' Le fichier HTML n'est plus nécessaire
 
      Kill "C:\Temp\XLRange.htm"
 
   End With ' With Application
 
End Sub

Je vous remercie d'avance pour votre aide.

**TonyNiort79** · 07/12/2019, 21h10

Bonjour,

je voudrais comprendre :
sélection d'une plage de cellules,
puis la plage est renvoyée en réponse à un mail reçu ?

si c'est vraiment çà, je ne vois pas l'adresse électronique pour le retour du mail reçu,
et je ne comprends vraiment pas comment ça marche.

**ddmot74** · 08/12/2019, 01h13

Bonjour,
Oui c'est bien ça.

sélection d'une plage de cellules,
puis la plage est renvoyée en réponse à un mail reçu

la réponse est envoyé dans le mail qui est sélectionné dans l'application outlook.
C'est pour cela qu'il n'y as pas d'adresse mail dans le code, car le destinataire n'ai pas toujours le même et que j'ai besoin de l'historique de ce mail.
Dans l’état actuel cela m'ouvre bien le mail sélectionné dans outlook mais ça m'ouvre également un mail vide il me colle ma sélection.