Salut à tous,
DAns ton fichier Excel tu n'as pas ajouté la référence à OUTLOOK de ce fait tu ne peux pas utiliser des constantes propres à OUTLOOK (olMailItem )
Pour ta question dans le code sur le nom du pdf tu dois le récupérer dans ta procédure de création du PDF
.cOption("AutosaveFilename") = LeNom
Enfin cete façon de faire pour envoyer un MAIL doit te générer une alerte de sécurité, pour l'éviter tu peux utiliser CDO pour l'envoi.
http://www.developpez.net/forums/sho...&highlight=cdo
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
| Option Explicit
Sub Envoi()
Const olMailItem = 0
Dim ol As Object, myItem As Object
Dim strHtml As String
strHtml = "Bonjour , <BR>"
strHtml = strHtml & "<BR><font size=6mm>" & "Vous trouverez ci-joint le tableau</font></B>"
strHtml = strHtml & "<BR><BR><BR>" & "<font color=red>Cordialement</font>" & "<BR>"
strHtml = strHtml & Environ("himself")
strHtml = strHtml & "xxx"
Set ol = CreateObject("Outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.To = "cmoi@free.fr"
myItem.Subject = "Tableau en date du xx/xx/2008" 'Comment insérer ici automatiquement la date du fichier, en sachant que l'envoi se fait quotidiennement avec une date différente ?
myItem.HTMLBody = strHtml
myItem.Attachments.Add ("c:\pdf\Tableau du xx/xx/2008.pdf")
'myItem.Attachments.Add ActiveWorkbook.FullName
myItem.display
Set ol = Nothing
End Sub
Private Sub CommandButton1_Click()
Call Envoi
End Sub |
Partager