Discussion :

[scrouet]

Bonjour.

Je souhaite envoyer un mail via Outlook 2003 (pas Outlook Express) depuis Excel 2003.
J'ajoute donc la bibliothèque msoutl.olb trouvée sous C:\Program Files\Microsoft Office\OFFICE 11, répertoire d'installation d'Office, via le menu Outils > Références de l'éditeur VBA d'Excel. La bibliothèque apparait bien, cochée, dans la liste des références avec la dénomination "Microsoft Outlook 11.0 Object Library".
Mais à l'exécution de mon script, plantage sur l'instruction

Code :

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

Set appOutlook = CreateObject("Outlook.Application")

avec l'erreur d'exécution 48 : "Erreur de chargement de la DLL".
Qu'est-ce qui ne va pas ?

[sabzzz]

bonjour scrouet,

essai de réenregistrer cette bibliothèque,
cliquez sur Démarrer> Exécuter
regsvr32.exe "C:\Program Files\Microsoft Office\OFFICE 11\msoutl.olb"
et enter.

mais en attendant la réparation de cette bibliothèque, regarde cette exemple elle fonctionne très bien sans référence.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub EnvoiMailOutlook()
 Set olApp = CreateObject("Outlook.Application")
 Set msg = olApp.CreateItem(0)        'olApp.CreateItem(olMailItem)
 msg.To = "xxxxxxxx@yyyyyy.com"
 msg.Subject = "Attention!"
 corps = "bonjour, " & Chr(13) & Chr(13)
 corps = corps & "la référence n'est pas nécessaire"
 msg.Body = corps
 'msg.Attachments.Add Source:="c:\mes documents\x.doc"
 msg.Send
End Sub

[scrouet]

Bon, sur la réparation, ça ne marche pas. J'ai une erreur m'indiquant que le module spécifié est introuvable.

En revanche, sans les déclarations d'objet, ça fonctionne effectivement.
Bizarre

[sabzzz]

bonjour scrouet,

vérifie si ça ne serait pas Office11 au lieu de OFFICE 11

Code :

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

1
2
3
4
5
Sub EnregistreBibliothèque()
'a exécuter une seul fois
'enregistrer dans le registre de windows
Shell ("RegSvr32.exe -s, C:\Program Files\Microsoft Office\Office11\MSOUTL.OLB")
End Sub

[scrouet]

Effectivement. L'enregistrement semble bien se dérouler, mais ça ne corrige pas mon problème de chargement de DLL.

[sabzzz]

bonjour scrouet,

lorsque tu utilise la messagerie dans Outlook 2003 tu n'as aucun message d'erreur ?

as-tu fait toutes les mise à jour Office 2003, Service Pack ?