Bonjour,
à partir d'une base Access 2003 je n'arrive pas à envoyer un mail Outlook 2010.
Le code ci-dessous a fonctionné pendant des années :
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
| Sub EnvoyerOutlook(strDest As String, strSujet As String, strCorps As String, Optional strCC As String, Optional FichiersAttaches As Variant)
Dim Ol As New Outlook.Application
Dim OlMail As MailItem
Dim CurrFile As String
Dim varPJ
'Ouvre un objet mail et si Oultlook n'est pas ouvert, l'ouvre en arrière plan
On Error Resume Next
Set Ol = GetObject(, "Outlook.Application")
If Err = 429 Then
'Ouvre Outlook si il n'est pas ouvert
Set Ol = CreateObject("Outlook.Application")
Ol.Visible = True
ElseIf Err <> 0 Then
MsgBox "Vous n'avez pas Outlook sur votre poste. Envoi automatique de mail impossible !"
'Exit Sub
End If
Set OlMail = Ol.CreateItem(olMailItem)
With OlMail
.To = strDest ' (adresse email)
If strCC <> "" Then .CC = strCC 'Adresse CC
.Subject = strSujet
.HTMLBody = strCorps 'Compose le mail en HTML
'Attache les fichiers joints s'il y en a
If Not IsError(FichiersAttaches) Then
For Each varPJ In FichiersAttaches
.Attachments.Add (varPJ)
Next
End If
.Send ' Envoie le mail
End With
Set Ol = Nothing
End Sub |
Rien de bien particulier, j'ai pompé le code ici Mais il plante sur la ligne :
Set Ol = GetObject(, "Outlook.Application")
Message d'erreur : Erreur de chargement de la DLL
Je suis allé dans Outils>Références : Microsoft Outlook 14.0 Object Library est bien coché et non marqué "manquant".
J'aimerais bien connaitre le nom de cette DLL, malheureusement le chemin d'accès noté dans la fenêtre des références est tronqué, la fenêtre est trop petite pour l'afficher totalement et n'est pas redimensionnable.
Auriez-vous une idée de pourquoi ça ne fonctionne pas ?
L'environnement est Win 7 64 bits. Je crois que Office est installé en 32 bits mais je n'en suis pas certain (je n'ai pas retrouvé la fonction Aide > A propos de Outlook)
Je viens d'essayer ce code dans une nouvelle base, j'ai toujours le même message d'erreur au même endroit, "erreur de chargement de la DLL".
Quel est le nom de la DLL et où puis la trouver ? Tout ce que je sais c'est qu'elle est dans "C:\Program Files (x86)\Microsoft Office 2010\Office14\M"... je n'arrive pas à lire la suite !
Merci,
JM
Partager