Macro VBA pour envoi mail automatique [Fermé]

Signaler
Messages postés
2
Date d'inscription
lundi 15 février 2016
Statut
Membre
Dernière intervention
15 février 2016
-
Le Pingou
Messages postés
9517
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
30 décembre 2019
-
Bonjour,

J'ai crée un fichier excel avec une macro qui permet d'ouvrir un message électronique sous Outlook. Ce message ne contient pas de destinataire (libre ensuite de choisir à qui l'envoyer) et contient un texte avec, entre autre, un lien vers un autre document.
Jusqu'à aujourd'hui, cette macro fonctionnait très bien. Je précise que je travaille sous Excel 2007.
Ce matin, j'ai présenté mon travail à un collègue qui a modifié le corps du texte du message. Il travaille sous Excel 2010.
Depuis que les modifications ont été faites, la macro ne fonctionne plus et affiche le message d'erreur suivant : "ERREUR DE COMPILATION : PROJET OU BIBLIOTHÈQUE INTROUVABLE"

Voici la macro dont il est question (j'ai volontairement caché le texte qui est confidentiel)

Sub SendMail_Outlook()
Dim ol As New Outlook.Application
Dim olmail As MailItem
Dim CurrFile As String
Set ol = New Outlook.Application
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = ""
.Subject = "xxxxxxxxxxxx"
.Body = "xxxxxxx." & _
vbLf & "http://xxxxxxxx.pdf" & vbLf & vbLf & _
"xxxxxxx" & vbLf & vbLf & _
"xxxxxxxx"
.Display
End With
End Sub


Actuellement, lorsque j'ouvre la macro, la ligne "Sub SendMail_Outlook()" est surlignée en jaune.
Je suppose donc qu'une erreur se cache ici....

Aussi, je souhaiterai savoir si ma macro est correct et, si nécessaire, si vous connaissez d'autres macro concernant cette problématique d'envoi de mail sous Outlook.

Je vous remercie d'avance pour votre aide et vous remercie de m'avoir lu ;)

1 réponse

Messages postés
9517
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
30 décembre 2019
998
Bonjour,
Juste au passage, contrôler que la référence [Microsoft Outlook xx Object Library] soit activé (coché) dans la boite des Référence –VBAProject.
Sous éditeur VBA (Alt + F11) clic sur [Outils] puis [Références], si pas coché, la chercher dans la liste et la cocher.