Discussion :

[vv59000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jeanmidudu]

Rien qu'avec l'erreur, je peux te dire qu'une référence n'a pas été cochée. Probablement la référence "Microsoft Outlook 15.0 ..." (le numéro peut varier).
Pour l'activer, il faut ouvrir le code, aller dans outils, références.

[vv59000]

Ca marche ! Merci beaucoup !!! Dans mon cas, il fallait cocher "Microsoft Outlook 12.0"

[jeanmidudu]

De rien

N'oublie pas de déclarer le sujet comme résolu.
Et un p'tit coup de pouce vert ça aide aussi

[Oliv-]

Bonjour,
Si tu ne veux pas que le problème se reproduise, tu peux utiliser le LATE BINDING = pas de référence et un code un peu modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub SendMail_Outlook()

Dim ol As object
Dim olmail As Object
Dim CurrFile As String

Const olMailItem = 0
Set ol = createobject("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