DLL introuvable

**bernardmichelWork** · 27/12/2005, 11h33

Bonjour à toutes et à tous !

J'ai développé une applic qui envoie par mail une pièce attachée et tout fonctionnait bien avant que l'entreprise migre de
Win2K server vers Win2003 server.

En lançant la fonction, le message suivant apparaît :

Code :

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

1
2
3
Erreur d'exécution '453':
 
Point d'entrée BMAPISendMail d'une DLL introuvable dans Mapi32.dll

... en cliquant sur "Débogage", il arrive sur la ligne de code :

Code :

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

SendMail = MAPISendMail(0&, 0&, MAPI_Message, MAPI_Recip(), MAPI_File(), MAPI_LOGON_UI, 0)

la déclaration de la fonction est la suivante:

Code :

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

1
2
3
4
5
6
7
8
Declare Function MAPISendMailOE Lib "C:\Program Files\Outlook Express\Msoe.dll" _
                              Alias "BMAPISendMail" (ByVal Session&, _
                              ByVal UIParam&, _
                              Message As MAPIMessage, _
                              Recipient() As MapiRecip, _
                              File() As MapiFile, _
                              ByVal FLAGS&, _
                              ByVal Reserved&) As Long

... et la fonction elle-même est la suivante :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Function SendMail(sSubject As String, sTo As String, sCC As String, _
sCCO As String, sAttach As String, sMessage As String) As Long
 
   Dim i, cTo, ccc, cCCO, cAttach
   Dim MAPI_Message As MAPIMessage
 
   cTo = CountWord(sTo, ";")
   ccc = CountWord(sCC, ";")
   cCCO = CountWord(sCCO, ";")
   cAttach = CountWord(sAttach, ";")
 
   ReDim rTo(0 To cTo) As String
   ReDim rCC(0 To ccc) As String
   ReDim rCCO(0 To cCCO) As String
   ReDim rAttach(0 To cAttach) As String
 
   ParseWords rTo(), sTo, ";"
   ParseWords rCC(), sCC, ";"
   ParseWords rCCO(), sCCO, ";"
   ParseWords rAttach(), sAttach, ";"
 
   ReDim MAPI_Recip(0 To cTo + ccc + cCCO - 1) As MapiRecip
 
   For i = 0 To cTo - 1
      MAPI_Recip(i).Name = rTo(i)
      MAPI_Recip(i).RecipClass = MAPI_TO
   Next i
 
   For i = 0 To ccc - 1
      MAPI_Recip(cTo + i).Name = rCC(i)
      MAPI_Recip(cTo + i).RecipClass = MAPI_CC
   Next i
 
   For i = 0 To cCCO - 1
      MAPI_Recip(cTo + ccc + i).Name = rCCO(i)
      MAPI_Recip(cTo + ccc + i).RecipClass = MAPI_CCO
   Next i
 
   ReDim MAPI_File(0 To cAttach) As MapiFile
 
   MAPI_Message.FileCount = cAttach
   For i = 0 To cAttach - 1
      MAPI_File(i).Position = -1
      MAPI_File(i).PathName = rAttach(i)
   Next i
 
   MAPI_Message.Subject = sSubject
   MAPI_Message.NoteText = sMessage
   MAPI_Message.RecipCount = cTo + ccc + cCCO
 
   If GetDefaultMail = "Outlook Express" Then
      SendMail = MAPISendMailOE(0&, 0&, MAPI_Message, MAPI_Recip(), MAPI_File(), MAPI_LOGON_UI, 0)
   Else
      SendMail = MAPISendMail(0&, 0&, MAPI_Message, MAPI_Recip(), MAPI_File(), MAPI_LOGON_UI, 0)
   End If
 
End Function

Voilà, j'espère que pour l'une ou l'une d'entre-vous l'erreur est évidente car c'est vraiment loin d'être le cas pour moi...

Mille mercis d'avance !

**Frank** · 27/12/2005, 11h41

Bonjour,

est ce que les références necessaires sont bien cochées ?

**bernardmichelWork** · 27/12/2005, 11h46

Bonjour Frank et merci pour votre réponse !

Les références cochées sont les suivantes :

Code :

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

1
2
3
4
5
6
7
8
Visual Basic For Applications
Microsoft Access 11.0 Object Library
OLE Automation
Microsoft DAO 3.6 Object Library
Microsott ActiveX Data Objects 2.1 Library
Microsoft Calendar Control 11.0
Microsoft Scripting Runtime
ReportToPDF

Je ne me souviens malheureusement plus si j'avais dû en cocher une autre lorsque j'ai inséré ce code (trouvé ici-même)

**Frank** · 27/12/2005, 11h48

Est ce que cette DLL

C:\Program Files\Outlook Express\Msoe.dll

est bien présente sur le pc ?

**bernardmichelWork** · 27/12/2005, 11h52

Oui, exactement à cet emplacement.

**Frank** · 27/12/2005, 11h54

Il serait interressant de vérifier s'il y a une référence pour Outlook Express ou Outlook à cocher, car je n'en vois pas dans votre liste.

**bernardmichelWork** · 27/12/2005, 11h57

J'ai déjà cherché et vais le faire encore mais c'est un peu chercher une aiguille dans une botte de foin... il y en a tellement de ces références...

J'y retourne...

**bernardmichelWork** · 27/12/2005, 12h01

J'a trouvé celle-ci :

Code :

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

Microsoft Outlook 11.0 Object Library

Mais cela ne fonctionne pas...

Invité · 27/12/2005, 12h10

Salut,

Ta Dll fait parti de Outlook Express, il me semble avoir lu (cherche dans le forum VB il me semble) que cela ne marche qu'avec Outloolk.

Starec

**Frank** · 27/12/2005, 12h11

Question bête: Outlook express est bien installé sur ce poste ?

**bernardmichelWork** · 27/12/2005, 12h14

pas bête la question. Outlook express n'est pas installé sur ce poste... mais il ne l'était pas non plus avant la migration 2k à 2003.

Et avant cette migration, cela fonctionne super bien !

**Frank** · 27/12/2005, 12h18

Envoyé par bernardmichelWork

pas bête la question. Outlook express n'est pas installé sur ce poste... mais il ne l'était pas non plus avant la migration 2k à 2003.

Et avant cette migration, cela fonctionne super bien !

Serait ce donc dûe à la fameuse légende relative à la compatibilité ascendante des applications CroSoft ?.....

**Muhad'hib** · 27/12/2005, 12h20

Salutation,

Voir aussi le sujet suivant :
http://www.developpez.net/forums/viewtopic.php?t=430032

A+

**bernardmichelWork** · 27/12/2005, 12h30

Merci à tous pour votre aide !

Je ne sais pas si nous en arrivons à cette fameuse légende mais dans la pratique... cela est plutôt e...yuant

Je suis allé voir à l'adresse : http://www.developpez.net/forums/viewtopic.php?t=430032
Cela renvoye à deux références que je ne trouve pas sur mon poste :

Code :

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

1
2
Microsoft Outlook 10.0 Object Library 
Microsoft Outlook view Control

Ô rage et désespoir !

**argyronet** · 27/12/2005, 18h25

Bonjour,

Est-ce que 3stone n'aurait pas un élément de réponse par hasard ?

Le CLSID de Msoe.dll doit en théorie être {A08AF898-C2A3-11d1-BE23-00C04FA31009}.

De ce fait, en cherchant ce CLSID dans la BDR tu obtiens un ProgID = à "OutlookExpress.Envelope.1"

Je n'ai pas farfouillé ni essayé mais je pense qu'une tentative de procédure

Code :

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

CreateObject("OutlookExpress.Envelope.1")

doit pouvoir donner quelque chose, non ???

Argy

**bernardmichel** · 27/12/2005, 22h22

Bonsoir Argyronet,

Je te remercie pour ton aide mais j'ai un peu peur d'utiliser ta commande si elle intervient sur la Base de registre car je développe sur un réseau dont je n'ai aucune maîtrise... et si je modifie quelque chose là dedans, j'ai intérêt à ce que cela n'ai d'autre influence que celle recherchée...

Peux-tu me confirmer que c'est sans danger ? Auquel cas, j'essayerai demain au boulot ...

Merci pour ta réponse !

**argyronet** · 27/12/2005, 23h15

Non, c'est sans danger, aucun...
Une DLL ou un OCX, pour être reconnu par un programme, possède un ProgID qui est le nom littré du CLSID.
Par exemple, pour Word, le CLSID est:
{000209FF-0000-0000-C000-000000000046}
alors que sont ProgID est Word.Application
Tu as certainement déjà, du voir un truc du style:

Code :

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

1
2
3
4
Dim oWord As Object
    Set oWord = CreateObject("Word.Application")
    [...]
    Set oWord = Nothing

Ce que je te propose d'essayer consiste en fait à manipuler un objet et bénéficier de ses propriétés et méthodes comme si tu y faisais référence à travers le Menu Outils/Référence.
Je ne te garantie pas que cela va marcher car, n'ayant pas le temps de me consacrer à ces tests, je ne suis pas en mesure de te le confirmer mais le principe lui, fonctionne.

Ton objet sera alors:

Code :

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

CreateObject("OutlookExpress.Envelope")

Conseil ++
Fais des tests dans un projet vide pour éviter toute interaction avec d'autres projets et fais au plus simple, cad, pas de ParseWord et CountWord entre autres... Mais contente toi d'un Recipient, un Object et un Body. Une fois que ça marche, tu adaptes.

Bon courage

Argy

**bernardmichelWork** · 28/12/2005, 10h20

Bonjour Argy,

J'ai placé le code que tu suggères dans ma fonction "SendMail" mais cela ne fait aucune différence, toujours le même message :

Code :

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

1
2
3
Erreur d'exécution '453': 
 
Point d'entrée BMAPISendMail d'une DLL introuvable dans Mapi32.dll

Peut-être n'ai-je pas placé le code à la bonne place ???

**argyronet** · 28/12/2005, 13h24

Non, non, ce n'est pas un problème de placement.
C'est tout simplement que le DLL que tu cherches à exploiter n'est pas correctement enregistrée dans le regsitre de Windows.
Ce qu'il faut envisager maintenant, c'est de s'adapter à ton nouveau client de Messagerie.

Quel est-il ?

De là, tu reconstruits ta fonction SendMail avec le bon composant et tu oublies MAPI....

Argy

P.S. Qu'en dit 3Stone au fait puisque c'est de là que vient ton code...

**bernardmichelWork** · 28/12/2005, 13h49

Hello !

Je ne savais pas que mon code venait de 3Stones... je l'ai eu via Logipro (Québec) mais je peux bien évidemment lui poser la question !

En parlant de client de messagerie, je travaille avec Outlook 2003 via un réseau assez complexe puisque touchant plusieurs sites différents. Je vais me renseigner plus avant pour cela.

N'y aurait-il pas un moyen pour enregistrer correctement cette DLL dans la BDR ?

Merci en tous les cas !

DLL introuvable

Access

Discussions similaires

Partager

Partager