VBA Excel : macro active outlook , insère les adresses mails et un objet

Bonsoir,

J'ai besoin d'aide pour cet exercice VBA.

J'ai beaucoup cherché et mes codes ne fonctionnent pas.

Est-ce qu'une bonne âme pourrais m'aider?

Vous trouverez ci-joint mon exercice

bonne soirée

Bonjour,

à tester,

Sub envoi_mail_avec_objet()
Dim courriel As String, feuille As Integer, ligne As Long
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

For feuille = 1 To Sheets.Count
 With Sheets(feuille)
  For ligne = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    If .Cells(ligne, 3) <> "" Then
        courriel = .Cells(ligne, 3)

       'Monmessage
        With OutMail
            .To = courriel
            .CC = ""
            .BCC = "sarah.m.bouselham@gmail.com"
            .Subject = "Bilan annŽe 2017" 'Objet du mail
            .Body = "Hello!"
'            .Attachments.Add (chemin & "\" & fichier)
            .Display
'            .Send
      End With
    End If
  Next ligne
 End With
Next feuille

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

re,

j'ai ajouté les commentaires à la macro,

Bonjour,

Je te remercie pour ton aide

Malheureusement, un message d'erreur apparait toujours au même endroit

Sub envoi_mail_avec_objet()

Dim courriel As String, feuille As Integer, ligne As Long

Dim OutApp As Object

Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application") <= CETTE LIGNE PRESENTE UN MESSAGE D ERREUR : "un composant active x ne peut pas créer l'objet 429 "

Set OutMail = OutApp.CreateItem(0)

For feuille = 1 To Sheets.Count

With Sheets(feuille)

For ligne = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1

If .Cells(ligne, 3) <> "" Then

courriel = .Cells(ligne, 3)

'Monmessage

With OutMail

.To = courriel

.CC = ""

.BCC = "XYZ@gmail.com"

.Subject = "Bilan année 2017" 'Objet du mail

'.Body = "Hello!"

' .Attachments.Add (chemin & "\" & fichier)

.Display

' .Send

End With

End If

Si tu peux m'aider encore un peu stp !

MERCI BEAUCOUP!

Bonjour Sarah, Isabelle, le forum

Confère premier commentaire du code de Isabelle ''activer la reference outlook''.

VBE => Outils => Reference et activer la reference microsoft outlook library.

Après ca ca devrait etre bon

Bonjour,

Merci beaucoup!!!!

Rechercher des sujets similaires à "vba macro active outlook insere adresses mails objet"