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

    Informations professionnelles :
    Activité : Alternant
    Secteur : Finance

    Informations forums :
    Inscription : octobre 2016
    Messages : 44
    Points : 27
    Points
    27

    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
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    11 633
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 11 633
    Points : 25 753
    Points
    25 753

    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)
    '...
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    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
    44
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 25
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Alternant
    Secteur : Finance

    Informations forums :
    Inscription : octobre 2016
    Messages : 44
    Points : 27
    Points
    27

    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, 14h17
  2. Réponses: 6
    Dernier message: 23/12/2015, 13h45
  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, 01h12
  4. [Mail] Probléme dans l'envoi d'un mail
    Par aurelien083 dans le forum Fonctions
    Réponses: 6
    Dernier message: 30/11/2006, 13h31
  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, 15h31

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