Discussion :

[Liloo14]

Bonjour,
Avec ce code, j'envoie un mail avec un fichier joint :

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
Sub SendEMail()
 Application.DisplayAlerts = False
 
Dim NouveauClasseur As Workbook
 Dim Destinataire As String
 Destinataire = "to.toto@toto.fr"
 Dim Objetmessage As String
 Objetmessage = "Evénement constaté"
 
Application.ScreenUpdating = False
 
ThisWorkbook.Sheets("Even").Copy
 Set NouveauClasseur = ActiveWorkbook
 NouveauClasseur.SaveAs Objetmessage

Dim ol As Object, myItem As Object
 Set ol = CreateObject("outlook.application")
 Set myItem = ol.CreateItem(olMailItem)
 myItem.To = Destinataire
 myItem.Subject = Objetmessage
 myItem.Body = "Bonjour," & Chr$(13) & Chr$(13) & "Cordialement" & Chr$(13) & Chr$(13) & "Signature" & Chr$(13) & Chr$(13) & Range("K22").Value & Chr$(13) & Chr$(13) & Range("K25").Value & Chr$(13) & Chr$(13) & Range("K28").Value & Chr$(13) & Chr$(13) & Range("K31").Value & Chr$(13) & Chr$(13) & Range("K34").Value & Chr$(13) & Chr$(13) & Range("K35").Value & Chr$(13) & Chr$(13) & Range("K40").Value & Chr$(13) & Chr$(13) & Range("K46").Value & Chr$(13) & Chr$(13) & Range("K48").Value
  'fichier en cours d'utilisation envoyé en attaché:
 myItem.Attachments.Add ActiveWorkbook.FullName
 myItem.Send
 Set ol = Nothing
 
Application.DisplayAlerts = False
 With NouveauClasseur
 .ChangeFileAccess xlReadOnly
 Kill .FullName
 Application.DisplayAlerts = True
 .Close False
 End With
 Application.DisplayAlerts = True
End Sub

Dans ce code, la ligne 12

Code :

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

ThisWorkbook.Sheets("Even").Copy

copie le contenu de la feuille Even.
Dans la suite du code, des lignes ouvrent un nouveau classeur et copie dedans le contenu copier dans Even pour en faire le fichier à envoyer.
Si au lieu de ça je veux coller le contenu de Even dans le corps du texte de mon mail, quelqu'un aurait-il une idée de quoi mettre ligne 21 à la suite de

Code :

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

myItem.Body = ???

à la place des points d'interrogation?
Merci par avance à ceux qui se pencheront sur mon sujet

[kiki29]

Salut, voir dans la FAQ