TITILALA
Messages postés1Date d'inscriptionjeudi 13 avril 2023StatutMembreDernière intervention13 avril 2023
-
Modifié le 13 avril 2023 à 19:31
cs_Le Pivert
Messages postés7893Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention19 mai 2023
-
13 avril 2023 à 16:38
Bonjour tout le monde,
J'ai déjà utilisé la structure de la macro ci-dessous avec succès pour envoyer des mails. Mais j'ai souhaité m'en inspirer pour l'utiliser sur un autre fichier et je n'arrive pas à la faire fonctionner. Quand je fais "Débogage", et que j'exécute la macro, cela me surligne la ligne en gras dans la macro ci-dessous et j'ai le message : "Erreur d'exécution 424 : objet requis".
Est-ce que quelqu'un sait d'où peut provenir le problème :
Sub ENVOYER()
Dim oOutlook As Object
Set oOutlook = CreateObject("Outlook.Application")
Dim oMail As Object
Set oMail = Outlook.CreateItem(0)
With oMail
.To = Range("L2")
.Subject = Range("B2")
.Body = Range("B4")
.Display
End With
End Sub