envoie mail sous vba access

**massdiop26** · 27/09/2022, 17h18

Bonjour quelqu'un peut il m'aider avec ce code : j'utilise mon adresse mail professionnel et avec ce code ca marche bien si le destinataire est du meme domaine par contre s'il sagit d'une adresse mail comme gmail ou autre je recois une erreur

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
55
56
57
58
Private Sub Form_Load()
    Dim oMail As New CDO.message
    Dim oMailConfig As New CDO.Configuration
    Str_Destinataire = "sonmail@hifatech.sn"
    NomUser = Environ("support@hifatech.sn")
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "pro1.mail.ovh.net" ' Nom du serveur"
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Port utilisé
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' On utilise un service SMTP
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 ' Timeout
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 ' 0 = aucune authentification ; 1 = authentification
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "monmail@hifatech.sn" ' Utilisateur exchange si authentification = 1
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "motdepasse" ' Mot de passe de l'utilisateur exchange si authentification = 1
    oMailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/senduserssl") = True ' TLS OU SSL"
 
 
    oMailConfig.Fields.Update
    Set oMail.Configuration = oMailConfig
    oMail.Sender = Replace(Str_Destinataire, " ", ".")
    oMail.From = NomUser
    oMail.Fields.Update
    oMail.Subject = "Notification de HIFATECH "
    oMail.To = Str_Destinataire
    Body = ""
    Body = Body & "<html>"
    Body = Body & "<body>"
    Body = Body & "<font face=arial size=2 color=black>"
    Body = Body & "<b>"
    Body = Body & "Cher administrateur  "
    Body = Body & "<br /><br />"
     Body = Body & "</br>"
    Body = Body & " L'agent :" & [nomutilisateur] & "    vient d'ouvrir une session sur Sys-Med version 3.4    "
  Body = Body & "<br /><br />"
    Body = Body & "</br>"
    Body = Body & "<br /><br />"
      Body = Body & " HIFATECH SARL "
    Body = Body & "<br /><br /><br /><br />"
      Body = Body & " Cordialement "
 
    Body = Body & "</font>"
    Body = Body & "<br /><br /><br /><br />"
    Body = Body & "<center>"
    Body = Body & "<font face=arial size=2 color=black>"
    Body = Body & "<em>"
    Body = Body & "<HR>"
    Body = Body & "*** Ce message a été envoyé par le système ; Merci de ne pas y répondre. ***"
    Body = Body & "<HR>"
    Body = Body & "</em>"
    Body = Body & "</font>"
    Body = Body & "</center>"
    Body = Body & "</body>"
    Body = Body & "</html>"
    oMail.HTMLBody = Body
    oMail.Send
    Set oMailConfiguration = Nothing
    Set oMailConfig = Nothing
    Set oMail = Nothing
 
End Sub

**Belga16** · 29/09/2022, 11h33

Si vous mettez

Code :

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

oMail.Display

au iieu de

Code :

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

oMail.Send

est-ce que le message s'affiche ? Si oui, pouvez-vous l'envoyer manuellement ?

**zimirk** · 05/10/2022, 12h44

Bonjour, j'ai eu le même souci avec gmail.
Mes applications ont cessé de fonctionné subitement car Google a interrompu depuis juin la possibilité que des applications tierces puissent se connecter à gmail sans grande sécurité hormis le mot de passe de base.
Il faut dorénavant utiliser des mots de page spécifiques aux applications et activer la vérification en 2 étapes.

https://support.google.com/accounts/...=fr&authuser=1

Si ca peut vous sauver la mise.

envoie mail sous vba access

Access

Discussions similaires

Partager

Partager