Discussion :

[sims92.66]

Bonjour à tous,

J'utilise un code via XL pour l'envoi automatique d'email avec fichier xl en PJ.
J'aimerai rajouté un message dans l'envoi de mon email, du type "Bonjour ci-joint le fichier demandé."
Je pense qu'il faut utiliser la fonction body.
Est-il possible de renommer mon fichier envoyé? Car actuellement il prend le nom de classeur1 en PJ lors de l'envoi auto de mon email.

Merci pour vos réponses.

Ci dessous mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SendMail()
 
ThisWorkbook.Sheets(1).Copy
 
With ActiveWorkbook
.SendMail Recipients:=Array("TEST@TEST.fr"), Subject:="Stock UC " & Format(Date, "dd mmm yy")
.Close SaveChanges:=False
End With
 
End Sub

[kiki29]

Salut, voir dans la FAQ , de plus il n'est pas interdit de faire une recherche dans le forum car le sujet a été traité x fois.

[sims92.66]

Bonjour à tous,

Après quelques recherches et réflexions, j'ai réussi à développer ce code.
Cependant je n'arrive pas à attacher le fichier XL à mon email. Sinon tout fonctionne.
Merci pour vos réponses.

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 SendMail_Relance()
Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
   Dim Chemin$, Client$, Fichier$
 
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
        With olmail
      .To = "toto@hotmail.fr"
      .Subject = "TEST"
      .Add Attachments = "X:\01 - \2012\02\test270812.xls"
      .Body = "Bonjour," & vbCrLf & _
      "" & recuptxt("D:\Documents and Settings\A000GDN\Application Data\Microsoft\Signatures\Signature .txt")
    .Display '.Send
   End With
End Sub

[Fvandermeulen]

Salut,

De mémoire, dans mes codes j'avais

Code :

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

.Attachments.Add Monfichier

La variable MonFichier correspondant bien entendu ton chemin d'accès et nom de fichier.

Sinon fait une recherche avec CDO, c'est plus élaboré que la méthode que tu utilise.

A+

[sims92.66]

Bonjour Fvandermeulen,

J'ai remplacé par ton code mais cela ne marche pas.
Je vais voir avec la méthode cdo.

[Fvandermeulen]

Bonne idée pour le CDO, sinon, j'ai remis la main sur mon vieux 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
Sub EnvoiFichier()
 
  ' ENVOI PAR E-MAIL DU FICHIER :
 
  Dim MonOutlook As Object
  Dim MonMail As Object
 
  Monfichier = "" & ActiveWorkbook.Path & "\" & ActiveWorkbook.Name & "" 'Le fichier actif
  MonTo = "Toto@fournisseur.be"
  MonCC = ""
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set monmessage = MonOutlook.CreateItem(0)
  MonMail.To = MonTo
  MonMail.Cc = MonCC
  MonMail.Attachments.Add Monfichier
  MonMail.Subject = "Je sais envoyer une pièce jointe"
  Corps = "Bonjour,"
  Corps = Corps & Chr(13) & Chr(10)
  Corps = Corps & "Ca fonctionne"
  MonMail.Body = Corps
  MonMail.Send
 
  Set MonOutlook = Nothing
End Sub