Problème lors de l'envoi d'un mail avec access

**anthony0903** · 09/01/2014, 03h06

Bonjour,

Mes problèmes sont les suivants:

Lorsque j'envoie un mail avec Access depuis mon formulaire , celui-ci va directement dans les courrier indésirable.
- Je souhaiterais que le mail arrive directement dans la boite de réception.
- Je souhaiterais aussi pouvoir envoyer un mail avec du textbox enrichi.

je cherche maintenant depuis plusieurs jour est je ne trouve rien

mon niveau en Access débutant débutant

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
 
'recuperation du mail expedition dans la table entreprise
mailentreprise = DLookup("Email", "Entreprise") 
With CreateObject("CDO.Message")
.from = mailentreprise 
.To = Mail 'le textbox mail
.Subject = objet 'le textbox objet
.TextBody = textemail 'le textbox textemail 
.AddAttachment (pj1) 'recuperation du chemin du fichier dans textbox pj1
.AddAttachment (pj2) 'recuperation du chemin du fichier dans textbox pj2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Update
On Error Resume Next
.Send
If Err Then MsgBox "Le message n'a pas pu être expédié."
On Error GoTo 0
End With

merci d'avance

Invité · 09/01/2014, 07h15

Bonjour

Pour la réception dans les indésirables, à priori ce n'est pas lié au code d'envoi puisque le message est bien expédié. As tu essayé sur plusieurs messageries?
Essaies également sans les pièces jointes.

Pour la mise en forme du texte, il faut remplacer la ligne

Code :

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