Discussion :

[L.Lemarchand]

Bonjour,

Je souhaite envoyer des Email à partir d'access mais j'ai un message d'alerte qui me demande de valider chaque envoi.

Comment désactiver le message d'alerte ?

Merci d'avance

[Renardo]

Bonjour
Il serait judicieux de nous donner le code que tu utilise pour envoyer tes émail et de nous dire qu'elle est le message d'alerte.

[Heureux-oli]

Salut,

Il existe au moins deux possibilités pour éviter ce message.

La première est l'utilisation de ClickYes qui est un petit logiciel qui permet de simuler un Click sur cette boîte de mesage.

La seconde est d'utiliser du LateBinding et au lieu de créer un nouvel objet Application, on utilise l'objet Application ouvert si il existe.

Code :

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

1
2
3
Dim oApp As Object
 
Set oApp = GetObject(,"Outlook.Applicaton")

Il faut faire un test et si Outlook n'est pas ouvert, alors il faut créer l'objet et si l'objet est crée, on reçoit le message.

Code :

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

If oApp = Nothing then Set oApp = CreateObject("Outlook.Application")

[Renardo]

Si on en suit la deduction de heureux-oli
tu peux aussi ne pas passer par outlook
Voir cette adresse
http://www.developpez.net/forums/d10...-mail-via-cdo/

[L.Lemarchand]

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
Function Mailing_Mail(Objet As String, Message As String, Signataire As String)
Dim strSujet As String
Dim strMsg As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
 
' Ouverture de la requête_mail
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Requête_mail] WHERE NOT IsNull(COR_Mail);", cnn
'rst.Open "SELECT * FROM [R_F_RCHENT2] WHERE NOT IsNull(REP_Mail);", cnn
 
' Sujet du message
strSujet = Objet
 
' Envoi d'un e-mail par personne
While Not rst.EOF
' Constitution du message personnalisé
If IsNull(rst("COR_Nom")) Then
    strMsg = "Monsieur," & vbCrLf & vbCrLf & Message & vbCrLf & vbCrLf & Signataire
Else
    strMsg = rst("COR_Civilite") & " " & rst("COR_Nom") & vbCrLf & vbCrLf & Message & vbCrLf & vbCrLf & Signataire
End If
 
' Envoi du message
DoCmd.SendObject acSendNoObject, , , _
rst("COR_Mail"), , , strSujet, _
strMsg, False
 
' Patient suivant
rst.MoveNext
Wend
 
' Fermeture et libération des objets
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function

Merci de m'aider à y apporter les modifications nécessaire pour éviter le message d'alerte (j'avoue que la solution ClickYes ne me convient pas trop).

Merci de votre aide

[Heureux-oli]

Dans ce code, il n'y a pas de solution !

[L.Lemarchand]

Pouvez vous me donner le code complet permettant d'envoyer un email depuis access et sans afficher le message d'alerte ?

Merci d'avance

[Heureux-oli]

On va essayer !


C'est à cause de cette ligne que ça ne fonctionne pas

Code :

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

1
2
3
4
 
DoCmd.SendObject acSendNoObject, , , _
rst("COR_Mail"), , , strSujet, _
strMsg, False

Voici le code, je ne l'ai pas testé, je l'écris à la volée

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
 
Function Mailing_Mail(Objet As String, Message As String, Signataire As String)
Dim oApp as Object
Dim oMail as Object
Dim strSujet As String
Dim strMsg As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
 
'Affectation de l'objet oApp
set oApp = GetObject(,"Outlook.Application")
'Si outlook n'est pas ouvert, création d'une instance
'Le message est inévitable.
If oApp = Nothing Then CreateObject("Outlook.Application")
 
Set oMail = OApp.MailItem
 
 
' Ouverture de la requête_mail
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset
rst.Open "SELECT * FROM [Requête_mail] WHERE NOT IsNull(COR_Mail);", cnn
'rst.Open "SELECT * FROM [R_F_RCHENT2] WHERE NOT IsNull(REP_Mail);", cnn
 
' Sujet du message
strSujet = Objet
 
' Envoi d'un e-mail par personne
While Not rst.EOF
' Constitution du message personnalisé
If IsNull(rst("COR_Nom")) Then
    strMsg = "Monsieur," & vbCrLf & vbCrLf & Message & vbCrLf & vbCrLf & Signataire
Else
    strMsg = rst("COR_Civilite") & " " & rst("COR_Nom") & vbCrLf & vbCrLf & Message & vbCrLf & vbCrLf & Signataire
End If
 
With oMail
    .to = rs.("COR_Nom")
    .Subject = strSujet
    .Body = strMsg
    .Send
End With
 
' Patient suivant
rst.MoveNext
Wend
 
' Fermeture et libération des objets
rst.Close
 
Set rst = Nothing
cnn.Close
Set cnn = Nothing
End Function

[L.Lemarchand]

Plus de message d'alerte avec CDO et la fonction de paramétrage du serveur SMTP.

Génial !!!

Merci encore RENARDO
Tu es le plus fort