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 :

Problème dans l'envoi d'un mail avec VBA (à partir d'une table ACCESS)


Sujet :

VBA Access

  1. #1
    Nouveau membre du Club
    Femme Profil pro
    Alternant
    Inscrit en
    Octobre 2016
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 32
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Alternant
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2016
    Messages : 64
    Points : 34
    Points
    34
    Par défaut Problème dans l'envoi d'un mail avec VBA (à partir d'une table ACCESS)
    Bonjour à tous,

    J'ai fait un code sur VBA, qui permet d'envoyer des Mails automatiquement.

    Le mail est envoyé aux contacts qui sont dans le champ "Contacts" de ma table "Table2"

    Voici le 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
    37
    38
    39
    40
    41
     
    Private Sub Commande16_Click()
     
        Dim oEmail As Outlook.MailItem
        Dim appOutLook As Outlook.Application
     
     
        Set appOutLook = New Outlook.Application
        Set oEmail = appOutLook.CreateItem(olMailItem)
     
     
    StrSQL = "SELECT * FROM [Table1]" _
        & " WHERE [Contacts] IS NOT NULL"
     
      Set rst = CurrentDb.OpenRecordset(StrSQL, dbOpenSnapshot)
     
    While Not rst.EOF
     
        If rst("Nom").Value = "ISNE" And rst("Date Retour").Value = "" Then
     
           oEmail.To = rst("Contacts")
     
           oEmail.Subject = "Relance 1  au 31.12.2016 -"
     
           oEmail.Body = "Bonjour," _
           & vbCrLf & vbCrLf _
           & "blablablabalablabalabalbalbalba." & vbLf _
           & "blblblblbblb." & vbLf _
           & vbCrLf & vbCrLf _
     
            oEmail.Send
     
        End If
     
      rst.MoveNext
     
    Wend
     
    MsgBox ("Les mails ont étaient envoyés")
     
    End Sub
    Le problème est que le mail est envoyé au premier contact uniquement, le code ne parcours pas tous les enregistrements. Je recois un message d'erreur disant: Erreur d'exécution' L'élement a été déplacé ou supprimé .

    Quelqu'un pourrez m'aider, s'il vous plait?

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 586
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 586
    Points : 34 255
    Points
    34 255
    Par défaut
    Salut,

    il te faut un email pour chaque destinataire, aussi la ligne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Set oEmail = appOutLook.CreateItem(olMailItem)
    doit etre dans le corps de boucle

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    While Not rst.EOF
     
        If rst("Nom").Value = "ISNE" And rst("Date Retour").Value = "" Then
            Set oEmail = appOutLook.CreateItem(olMailItem)
    '...
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Nouveau membre du Club
    Femme Profil pro
    Alternant
    Inscrit en
    Octobre 2016
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 32
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Alternant
    Secteur : Finance

    Informations forums :
    Inscription : Octobre 2016
    Messages : 64
    Points : 34
    Points
    34
    Par défaut
    Super!

    Fallait y penser, Vous êtes trop fort

    Merci beaucoup

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 10/03/2017, 15h17
  2. Réponses: 6
    Dernier message: 23/12/2015, 14h45
  3. Génération SLD avec geotools à partir d'une table de postgis
    Par elmoo dans le forum SIG : Système d'information Géographique
    Réponses: 2
    Dernier message: 11/05/2009, 02h12
  4. [Mail] Probléme dans l'envoi d'un mail
    Par aurelien083 dans le forum Langage
    Réponses: 6
    Dernier message: 30/11/2006, 14h31
  5. [C#] Remplir une combobox avec le champs d'une table Access
    Par Damsou dans le forum Windows Forms
    Réponses: 4
    Dernier message: 23/06/2005, 16h31

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