Envoyer un mail

Bonjour,
J'ai crée cette macro afin d'envoyer directement depuis un formulaire Excel un mail à un destinataire fixe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub Envoi_Email() Dim appOutlook As Outlook.Application Dim oMail As Outlook.MailItem Set appOutlook = CreateObject("outlook.application") Set oMail = appOutlook.CreateItem(olMailItem) With oMail .Subject = "Evénement constaté" .Body = "Veuillez trouver ci-joint un événement constaté" _ & Chr(13) & "Cordialement" & Chr(13) _ & "Signature" .BoodyFormat = olFormatHTML .Recipients.Add ("destinataire") .Attachements.Add ThisWorkbook.Path & "\Essai.xls" .Send End With appOutlook.Quit Set appOutlook = Nothing End Sub

---

j'ai crée cette macro mais lorsque je l'execute, un message "Erreur de compilation, Type défini par l'utilisateur non défini" survient, et je ne comprend pas pourquoi.
Quelqu'un voit-il où j'ai fais une erreur svp?
Merci par avance

Bonsoir,
Sur qu'elle ligne?
As-tu coché la référence a Outlook?

Bonsoir bbil et merci pour ton intervention,
L'erreur survient sur la ligne 2

Code:

---

Dim appOutlook As Outlook.Application

---

Par contre j'ai appris le code dans un bouquin spécialisé et j'ai bien peur qu'il ne m'ait pas tout dit malgrés les 29euros90 que j'ai laché pour -))
Il n'est nul part question de cocher une référence à outlook. Donc je ne sais pas de quoi tu me parles. Pourrais-tu m'en dire plus stp?

Merci par avance

Re bonsoir,
J'ai continué à chercher et j'ai donc trouvé où cocher la référence à Outlook.
Du coup mon erreur disparrait.
Par contre maintenant j'ai une erreur d'execution 438, propriété ou méthode non gérée par cet objet en ligne 11

Code:

---

.BoodyFormat = olFormatHTML

---

Je me demande si mon bouquin est suffisement complet ou si je ne me suis pas lancé dans un truc trop difficile pour moi.

Une idée?...

1 "o" à "bodyformat".

ESVBA

Merci ESVBA et encore merci à bbil de s'être penché sur mon probleme.
Une fois le o en trop ôté, un probleme survient à la ligne suivante.
Par contre, pour ceux qui ont suivit le post j'ai trouvé une solution (que je vais maintenant diséquer pour la comprendre) qui fonctionne.
Je la partage donc :

Code:

---

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

Sub SendEMail()   Dim NouveauClasseur As Workbook Dim Destinataire As String Destinataire = "adresse@hébergeur.fr" Dim Objetmessage As String Objetmessage = "Sujet du mail"   Application.ScreenUpdating = False   ThisWorkbook.Sheets("Feuil1").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, ceci est un email avec fichier joint" '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   End Sub

---

J'ai déja compris que cela consiste à copier les informations dans un classeur nouvellement créé car il semble impossible d'envoyer une feuille du classeur contenant la macro (si c'est une erreur, que les pros n'hésitent pas à le dire que je n'induise personne en eereur).
Je vais maintenant tenter d'inclure directement les informations dans le corps du texte du mail.

Merci encore