Macro VBA pour envoi mail automatique
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)
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| 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 ;)
