Discussion :

[zoom61]

Bonjour,

Je souhaiterai envoyer à partir d'Access un mail mais sans utiliser lotus et sans outlook, mais en utilisant un serveur smtp

Je n'ai rien trouvé dans la FAQ avez vous une solution

Merci.

[Jean-Philippe André]

salut,
et avec ceci, toujours dans la
http://access.developpez.com/faq/?pa...ailPieceAttach

[zoom61]

Salut,

Cela me bloque au niveau de la pièce attachée, car je n'en ai pas...

Code :

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

1
2
3
        Flds.Update
        .AddAttachment FullPathFileName
        .Send

Comment faire pour supprimer ce paramètre

Merci.

[Jean-Philippe André]

tu peux laisser le paramètre, ou bien le passer en Optional,
sinon tu supprimes la ligne

Code :

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

.AddAttachment FullPathFileName

[zoom61]

Désolé, mais cela n'est pas mieux, cela me bloque sur cette commande :

Code :

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

1
2
3
4
5
MsgBox 1
Flds.Update
'.AddAttachment FullPathFileName
.Send
MsgBox 2

J'ai bien la boîte de message du 1, mais le 2 je ne l'ai jamais. Mais je récupère la main...

As-tu une idée ?

[Jean-Philippe André]

tiens, voila le code que j'utilise au boulot :

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
Sub EnvoiMail(strTo As String, strFrom As String, strSubject As String, strBody As String, Optional strCc As String, Optional strCci As String, Optional PJ As Variant)
Dim iMsg As Object, iConf As Object, Flds As Object
Dim i As Integer
 
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
 
Set Flds = iConf.fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    'remplacez "smtp.nomserveur.fr" par le nom de serveur de votre FAI :
    'http://outlook.developpez.com/faq/index.php?page=Configuration#Paras_FAI
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.nomserveur.fr"
    .Update
End With
 
With iMsg
    Set .Configuration = iConf
    .To = strTo
    .Cc = strCc
    .Bcc = strCci
    .From = strFrom
    .Subject = strSubject
    .HTMLBody = strBody
    If Not IsMissing(PJ) Then
'    For i = 0 To UBound(PJ)
        .AddAttachment (PJ)
'    Next i
    End If
    .Send
End With
 
End Sub

[zoom61]

Cela me bloque toujours au même endroit :

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
With iMsg
    Set .Configuration = iConf
    .To = strTo
    .Cc = strCc
    .Bcc = strCci
    .From = strFrom
    .Subject = strSubject
    .HTMLBody = strBody
    If Not IsMissing(PJ) Then
'    For i = 0 To UBound(PJ)
        .AddAttachment (PJ)
'    Next i
    End If
    .Send
End With

Mais cette fois-ci Access est bloqué !!!

[Jean-Philippe André]

un message d'erreur à se mettre sous la dent ?

il se peut que la référence CDO soit nécessaire.

[zoom61]

La référence CDO est bien active.

[Jean-Philippe André]

et ca bloque dans quel sens stp ?

[zoom61]

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
With iMsg
    Set .Configuration = iConf
    .To = strTo
    .Cc = strCc
    .Bcc = strCci
    .From = strFrom
    .Subject = strSubject
    .HTMLBody = strBody
    If Not IsMissing(PJ) Then
'    For i = 0 To UBound(PJ)
        .AddAttachment (PJ)
'    Next i
    End If
    .Send
End With

Cela s'arrête sur cette commande :

Code :

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

.AddAttachment (PJ)

[Jean-Philippe André]

ok, et que vaut PJ stp ?

[zoom61]

Je n'ai aucune pièce jointe et je n'en veux pas. Mais si j'enlève cette commande, cela plante ???

[Jean-Philippe André]

donc si on simplifie le code de sorte à obtenir ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
With iMsg
    Set .Configuration = iConf
    .To = strTo
    .Cc = strCc
    .Bcc = strCci
    .From = strFrom
    .Subject = strSubject
    .HTMLBody = strBody
    .Send
End With

ca continue de te sortir une erreur ?

[zoom61]

Je n'ai pas de message d'erreur, mais je suis bloqué !!!
Je ne peux plus rien faire sauf Ctrl+Alt+Suppr

[Jean-Philippe André]

Je suis perplexe,
mis à part les solutions CDO, Lotus ou CreateObject, pas d'idées nouvelles à proposer

[zoom61]

A moins que je fasse une erreur ailleurs, voici mon code :

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
Sub EnvoiMail(strTo As String, strFrom As String, strSubject As String, strBody As String, Optional strCc As String, Optional strCci As String, Optional PJ As Variant)
Dim iMsg As Object, iConf As Object, Flds As Object
Dim i As Integer
 
Set iMsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
 
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.serveur1.com"
    .Update
End With
 
MsgBox 1
 
With iMsg
    Set .Configuration = iConf
    .To = strTo
    .Cc = strCc
    .Bcc = strCci
    .From = strFrom
    .Subject = strSubject
    .HTMLBody = strBody
    .AddAttachment (PJ)
    .Send
End With
 
MsgBox 2
 
End Sub
 
 
Function essai()
    Call EnvoiMail("compte1@mail.fr", "compte2@mail.fr", "Sujet", "Texte", "compte3@mail.fr", "compte4@mail.fr", "C:\liste.txt")
End Function

J'ai bien le "1" qui apparait mais pas le "2".