Discussion :

[OtObOx]

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 :

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
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 :

Code :

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

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

[loufab]

Bonjour,
mise à part le problème que tu rencontres ce qui m'interpelle c'est ceci :

Code :

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

 MsgBox "Vous n'avez pas Outlook sur votre poste. Envoi automatique de mail impossible !"

Sais-tu que tu n'as pas besoin d'un maileur sur ton poste (Outlook, thunderschmitt...) pour envoyer des mails depuis Windows ?

Cordialement,

[OtObOx]

Bonjour,
mise à part le problème que tu rencontres ce qui m'interpelle c'est ceci :

Code :

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

 MsgBox "Vous n'avez pas Outlook sur votre poste. Envoi automatique de mail impossible !"

Sais-tu que tu n'as pas besoin d'un maileur sur ton poste (Outlook, thunderschmitt...) pour envoyer des mails depuis Windows ?

Cordialement,

Salut Loufab,

merci pour ta réponse

Je n'ai toujours pas résolu mon problème, en même temps, je ne me suis pas replongé dedans. Mais chose étonnante, certains utilisateurs peuvent de nouveau envoyer des mails avec Outlook, alors qu'ils utilisent la même version de la base Access qui ne fonctionnait pas la semaine dernière. L'origine du problème semble donc venir "de plus haut", de la configuration de nos nouveaux postes sur laquelle je n'ai pas la main.

Mais ce que tu me dis m'intéresse. Peux-tu me donner un lien qui explique la méthode pour envoyer des courriels sans logiciel dédié ? Si ça pouvait éviter le message d'alerte antivirus de Outlook à chaque envoi, ça serait déjà un joli progrès !

JM

[loufab]

Pas mal de discussions autour de ce sujet et de l'utilisation de la bibliothèque Windows CDO :

http://www.developpez.net/forums/d13...-mail-outlook/

Cordialement,

[OtObOx]

Merci, je vais regarder ça de plus près, je ne connaissais pas.
Je n'y connais pas grand chose sur les protocoles pour envoyer des mails, ça va me donner l'occasion d'apprendre. J'espère que mon entreprise n'a pas verrouillé son serveur et que ça pourra fonctionner.
J'ai noté le lien vers le tuto, je le remets ici, ça peut servir à quelqu'un http://jdgayot.developpez.com/tutori...ewsletter-cdo/

Jean-Marc

[loufab]

C'est le tuto que j'ai désespérément cherché pour t'en donner le lien...