code valide sous excel 2007????

[cartus02]

est ce normal que ce code ne marche pas sous excel2007?

Public Sub EnvoiMailOutlook()
Dim OutApp As Object, OutMail As Object, NewB As Workbook
Dim AdresMail As String, AdresMailCC As String, AdresMailBCC As String
Dim Sujet As String, Msg As String
AdresMail = "BB@BB"
AdresMailCC = "BB@BB"
Sujet = "ouverture d'une fiche de non conformité"
Msg = "une non conformité à été détectée"
ActiveSheet.Copy
Set NewB = ActiveWorkbook
ActiveWorkbook.SaveAs ThisWorkbook.Path
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
On Error GoTo 0
With OutMail
.To = AdresMail
.CC = AdresMailCC
.BCC = AdresMailBCC
.Subject = Sujet
.Body = Msg
.Attachments.Add NewB.FullName
.Display
End With
ActiveWorkbook.Close
Kill ThisWorkbook.Path
End Sub



merci

 

[picalou]

Re : code valide sous excel 2007????

Bonjour Cartus02,

J'utilise ce code pris sur le forum

Sub Envoi_mail()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String

ActiveWorkbook.Activate

Set Ol = new Outllok.Application
Set Olmail = Ol.CreateItem(OlMailItem)
With Olmail
.To = "toto@sfr.fr"
.CC = ""
.Subject = "Envoi du Mail"
.Body = "texte texte"
.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name

'fait partir le mail
.Send
'met le mail dans les brouillons
'.Display

End With

End Sub

Chez moi ça marche nickel

Bon Courage