Envoi de mail Outlook en VBA

Bonjour à tous,

J'ai tenté de créer une macro pour envoyer un mail en VBA via Outlook mais j'ai une erreur de compilation et je ne sais pas ou est mon erreur, mais connaissance reste limité, ci-dessous le code, pour être honnête, j'ai recopié ce code mais je ne sais pas si il est valable :

Merci par avance pour votre aide

Eddy

Sub Mail_HS_Bird()

Dim ObjOutlook As New Outlook.Application

Dim oBjMail Dim Nom_Fichier As String

Set ObjOutlook = New Outlook.Application

Set oBjMail = ObjOutlook.CreateItem(olMailItem)

With oBjMail

 .To = ActiveSheet.Range("N8" & "N9").Value

 .CC = ActiveSheet.Range("N9").Value

 .Subject = ActiveSheet.Range("D32").Value

 Sheets("Bilan des heures intérimaires" ).Select

 .Body = ActiveSheet.Range("D36:N68").Value

 .Attachments.Add = ActiveSheet.Range("D34").Value 

 .Send 

 End With 

 End Sub

Bonjour Causse,

Le code ce met entre balises grâce au bouton </>

Sinon, je pense que votre erreur ce situe ici

.To = ActiveSheet.Range("N8" & "N9").Value

Il faut mettre

.To = ActiveSheet.Range("N8") & ActiveSheet.Range("N9")

Ou

.To = [N8] & [N9]

A+

Bonjour Jexcel2fr,

Merci pour votre retour, mais le problème reste identique :

Pouvez-vous m'aider ?

Eddy

Bonsoir,

Et bien voilà, c'est tellement plus simple quand les demandeurs nous mettent une image de la ligne qui bug

Je pense, que vous n'avez pas tout simplement pas ajouté la référence adéquate

Mais attention si vous faite du early binding et souhaitez partager votre fichier !

BonjourJExcel2fr,

Merci pour ton aide, l'erreur de débutant, je n'avais pas sélectionné la bonne référence

J'ai un autre problème, j'ai deux lignes en débogage :

Et la ligne suivante également tombe en erreur , si vous pouvez m'aider ?

dans les cellule "D36:N68" qui correspond au corp de mon mail (Body), j'ai un texte plus un TCD :

Merci par avance de votre aide

Eddy

Re,

Il faut travailler avec les objets et absolument éviter les "Select"

 .Body =  Sheets("Bilan des heures intérimaires").Range("D36:N68")

Ceci dit, pas certain que d'envoyer une plage de données dans un Body fonctionne