IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Erreur : envoi de mail depuis access via gmail [AC-2007]


Sujet :

VBA Access

  1. #1
    Membre régulier Avatar de bartimeus35
    Homme Profil pro
    Inscrit en
    juin 2009
    Messages
    160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : juin 2009
    Messages : 160
    Points : 78
    Points
    78
    Par défaut Erreur : envoi de mail depuis access via gmail
    Bonjour,
    J'ai une erreur lors d'un envoi de mail depuis Access 2007 via GMAIL.

    Apparemment d’après ce que je trouve ça serait du à l'autorisation des applications mois sécurisées de gmail , mais je ne trouve pas ou changer c truc !

    Any idea ???

    voila mon code et mon 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
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    Sub SendEmailUsingGmail()
     
        On Error GoTo Err
     
        Dim NewMail As Object
        Dim mailConfig As Object
        Dim fields As Variant
        Dim msConfigURL As String
     
        Set NewMail = CreateObject("CDO.Message")
        Set mailConfig = CreateObject("CDO.Configuration")
     
        ' load all default configurations
        mailConfig.Load -1
     
        Set fields = mailConfig.fields
     
        With NewMail
            .Subject = "Test Mail"
            .From = "francois.xxxx@gmail.com"
            .To = "destinataire@yahoo.fr" ' mettre ; entre chaque adresse mail
           ' .CC = ""
           ' .BCC = ""
            .TextBody = "Test envoi"
            .HTMLBody = "Write your complete HTML Page"
            '.AddAttachment "C:\Users\Michel\Downloads\test.xlsx"
        End With
     
        msConfigURL = "http://schemas.microsoft.com/cdo/configuration"
     
        With fields
            'Enable SSL Authentication
            .Item(msConfigURL & "/smtpusessl") = True
     
            'Make SMTP authentication Enabled=true (1)
            .Item(msConfigURL & "/smtpauthenticate") = 1
     
            'Set the SMTP server and port Details
            .Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
            .Item(msConfigURL & "/smtpserverport") = 465
            .Item(msConfigURL & "/sendusing") = 2
     
            'Set your credentials of your Gmail Account
            .Item(msConfigURL & "/sendusername") = "francois.xxxxx@gmail.com"
            .Item(msConfigURL & "/sendpassword") = "mon_mot_de_passe"
     
            'Update the configuration fields
            .Update
     
        End With
        NewMail.Configuration = mailConfig
        NewMail.Send
        MsgBox ("OK, c'est parti !")
     
    Exit_Err:
     
        Set NewMail = Nothing
        Set mailConfig = Nothing
        End
     
    Err:
        Select Case Err.Number
     
        Case -2147220973  'Could be because of Internet Connection
            MsgBox " Could be no Internet Connection !!  -- " & Err.Description
     
        Case -2147220975  'Incorrect credentials User ID or password
            MsgBox "Incorrect Credentials !!  -- " & Err.Description
     
        Case Else   'Rest other errors
            MsgBox "Error occured while sending the email !!  -- " & Err.Description
        End Select
     
        Resume Exit_Err
     
    End Sub
    -----------------------
    ERREUR
    ---------------------
    Nom : erreur.JPG
Affichages : 89
Taille : 17,1 Ko

  2. #2
    Membre régulier Avatar de bartimeus35
    Homme Profil pro
    Inscrit en
    juin 2009
    Messages
    160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : juin 2009
    Messages : 160
    Points : 78
    Points
    78
    Par défaut
    Je viens de trouver ou changer ce paramètre
    https://myaccount.google.com/lesssecureappset
    Je suis un homme heureux !

    Il en faut peu pour être heureux tra la la pouet pouet

    Ca marche nikel .

  3. #3
    Membre chevronné

    Profil pro
    Inscrit en
    août 2005
    Messages
    912
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : août 2005
    Messages : 912
    Points : 1 785
    Points
    1 785
    Par défaut
    Bonjour Bartimeus35

    Le lien que tu as indiqué est erroné (ERREUR 404 URL Introuvable). Si tu pouvais rectifier ….

  4. #4
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    novembre 2004
    Messages
    7 043
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 64
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : novembre 2004
    Messages : 7 043
    Points : 11 898
    Points
    11 898
    Par défaut
    bonjour tous les 2:
    Le lien que tu as indiqué est erroné (ERREUR 404 URL Introuvable). Si tu pouvais rectifier ….
    cela peut-il dépendre de la version et/ou du navigateur et/ou du système d'exploitation utilisé ?
    Avec Firefox et Windows10 j'ai ça:https://myaccount.google.com/lesssecureapps
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?

  5. #5
    Membre régulier Avatar de bartimeus35
    Homme Profil pro
    Inscrit en
    juin 2009
    Messages
    160
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : juin 2009
    Messages : 160
    Points : 78
    Points
    78
    Par défaut
    Citation Envoyé par gaby277 Voir le message
    Bonjour Bartimeus35

    Le lien que tu as indiqué est erroné (ERREUR 404 URL Introuvable). Si tu pouvais rectifier ….
    oups voila le bon lien:
    https://myaccount.google.com/lesssecureapps

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Envoi de mail depuis access avec retour sur actions
    Par clickandgo dans le forum VBA Access
    Réponses: 1
    Dernier message: 25/04/2012, 12h03
  2. Envoyer un mail d'Access via gmail ?
    Par alexandre47 dans le forum VBA Access
    Réponses: 0
    Dernier message: 28/07/2011, 11h22
  3. [AC-2007] Envoyer un mail d'Access via gmail ?
    Par gsacre dans le forum Access
    Réponses: 4
    Dernier message: 05/07/2011, 11h37
  4. [AC-2003] Outil d'envoi de mail depuis Access
    Par Kloun dans le forum Access
    Réponses: 3
    Dernier message: 28/04/2009, 11h53
  5. Envoi de mail par Access via Outlook
    Par SpiderKarim dans le forum Access
    Réponses: 5
    Dernier message: 27/09/2006, 17h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo