Discussion :

[m6riil]

Bonjour,
Existe-t-il un code afin d'envoyer un mail pré-configuré via Access sans passer par Outlook ?
J'ai déjà consulté cette page, mais ca ne fonctionne pas : http://www.3stone.be/access/articles.php?lng=fr&pg=89

Merci d'avance pour votre aide !

Cyril

[chrtophe]

l'exemple que tu as fourni passe par Mapi.Hors Mapi est utilisé par : Outlook.

Tu peux utiliser mapi sans outlook en installant la dll et en l'appelant en VBA.

J'ai déjà vu des exemples qui utilisait un autre système via une dll.

[naphta]

Bonjour,

Sur le lien que tu indiques la méthode utilisée est les CDO
as-tu référencé la biblio ?

ici une discussion su ce site à ce propos
http://www.developpez.net/forums/d99...ls-cdo-resolu/


les cdo c'est hyper simple et assez puissant.
mais attention dans la discussion il y a un tableau pour mater les restrictions et les permissions par rapport aux méthodes utilisées

bonne chance

[Invité]

Bonsoir
Quelques éléments de réponse ici également:
http://jdgayot.developpez.com/tutori...ewsletter-cdo/

[m6riil]

Merci pour vos réponses. J'ai utilisé le code qui est dans ton tuto Gayot, mais un message d'erreur apparaît, j'ai beau chercher partout je ne trouve pas...
Voici le code que j'utilise :

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
Private Sub Commande6_Click()
 
    On Error GoTo Error_send
    Dim oCdo As Object
 
    Set oCdo = CreateObject("CDO.Message")
 
    With oCdo
        With .Configuration.Fields
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                  'ou CdoSendUsingPort : utilisation réseau
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"    'nom ou IP du serveur SMTP
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"          'port utilisé
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monnom@free.fr"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "monmotdepasse"
            .Update
 
        End With
        .Subject = "envoi exemple"                    ' objet du message
        .From = "monnom@free.fr"                      ' adresse de l'expéditeur
        .To = "destinataire@free.fr"                  ' adresse du destinataire
        .TextBody = "Ceci est un message de test."    ' corps du message en format texte brut
        .Send
 
    End With
 
Fin:
    Set oCdo = Nothing
    Exit Sub
 
Error_send:
    MsgBox "Erreur d'envoi " & Err.Number & "  " & Err.Description
    Resume Fin
 
 
End Sub

Le message d'erreur est en PJ.
Merci de votre aide !

[Invité]

Bonsoir
As tu bien remplacé les paramètres par les tiens.
Attention suivant le Fai les paramètres seront différents.
Si tu es en entreprise, il faut également demander à l'administrateur réseau les paramètres.