Discussion :

[CLASSIQUE]

Bonjour,

Je me pose une question sur exportation de fichiers EXCELL dans une messagerie, d’une base de données Access.
J’utilise la ligne de commande ci-dessous sur une requête

Code :

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

1
2
3
Private Sub Commande82_Click()
DoCmd.SendObject acSendQuery, "Gestion02", acFormatXLS, "utilisateur @.fr", , , "Fiche de besoin", "Fiche Exportation, " & vbCrLf & vbCrLf & "Merci", False
End Sub

Y a-t-il une possibilité d’utiliser d’autres utilisateurs de messagerie pour la même ligne de code identique, via une zone de texte ou la création un formulaire carnet d’adresse messagerie.

Cordialement

JJacques

[Jeannot45]

Tu pourrais avoir une table des destinataires qui reprendrait les adresses mail. Dans une boucle, tu pourrais ainsi envoyer le mail à plusieurs autres personnes :

Exemple :

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
 
Private Sub Commande82_Click()
 
' Récupération des adresses mail
Dim l_strSQL as string
Dim l_rsAdresse as DAO.RecordSet
 
l_strSQL = "SELECT Mail FROM T_Destinataires"
SET l_rsAdresse = CurrentDb.OpenRecordset(l_strSQL)
 
With l_rsAdresse
    ' Lecture des enregistrements du RecordSet
    Do While Not .EOF 
        ' Envoi du Mail à chaque destinataire   
        DoCmd.SendObject acSendQuery, "Gestion02", acFormatXLS, .Fields(0), , , "Fiche de besoin", "Fiche Exportation, " & vbCrLf & vbCrLf & "Merci", False
        ' Changement d'enregistrement dans le RecordSet
        .MoveNext
    Loop
End With
End Sub

Ceci reste un exemple que je n'ai pas testé

Bonne continuation

[CLASSIQUE]

Merci de votre Aide sur le sujet
J'ai actuellement pour faire un essai le message suivant :

Microsoft Visual Basic
Erreur d'excécution '3061'
Trop peu de paramètres. 1 attendu

J'ai crée la table : T_Destinataires
Nom : TEXTE
PRENOM : TEXTE
MESSAGERIE : LIEN HYPERTEXTE

Et ajouter les lignes de Procédure événementielle sur le Bouton click
Mais comme j'ai quelques lacunes, je n'ai pas fait la boucle.
Je pensais créer, ensuite une zone liste déroulante pour sélectionner le Destinataire.

Si vous avez une solution sur le sujet.

Cordialement
JJacques

[Jeannot45]

Tout d'abord, mille excuses, je n'avais pas compris que tu ne souhaitais ps faire un envoi en série. Si tu bases ton envoi sur une adresse choisie dans la liste déroulante, il faut bien sur supprimer la boucle.

D'abord, au niveau de la source de la liste déroulante, il serait bon d'y mettre une requête du style

Code SQL :

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

SELECT NOM & " " & PRENOM as IdNOM, MESSAGERIE FROM  T_Destinataires

Puis dans la procédure sur clic du bouton :

Code :

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

1
2
3
4
5
Private Sub Commande82_Click()
        ' Envoi du Mail à chaque destinataire   
        DoCmd.SendObject acSendQuery, "Gestion02", acFormatXLS, NomListeDeroulante.Column(1), , , "Fiche de besoin", "Fiche Exportation, " & vbCrLf & vbCrLf & "Merci", False
End Sub

Remarque : L'indice (1) de la propriété Column indique à Access de récupérer la valeur de la seconde colonne de la liste déroulante (La première colonne a l'indice 0)

Quant au message d'erreur, il provient de la requête source "Gestion2"

Bonne continuation

[CLASSIQUE]

Merci de votre réponse.
Toute la procèdure que vous m'avez indiquer me semble fonctionner correctement.
Mais je suis passé à la messagerie Windows live Mail ,depuis peu de temps.
Je suis toujours en Windows XP. Access 2010
Et je constate une Erreur d'exécution '2293' (ne peut pas envoyer ce message)
il y a quelques semaines j'avais une procèdure événementielle qui marchait très bien.Et j'ai peut-être une mise à jour qui c'est effectué entre temps ?
Je vais faire quelques recherches sur Google pour le soucis que je viens de rencontrer

Code :

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

DoCmd.SendObject acSendQuery, "Gestion02", acFormatXLS, "adresse@mail.fr", , , "Fiche de besoin", "Fiche Exportation, " & vbCrLf & vbCrLf & "Merci", False

Cordialement
JJacques

[CLASSIQUE]

Après quelques recherches, j'ai trouvé une parade pour envoyer la requête : Gestion02
Avec la procèdure evénementielle :

Code :

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

1
2
3
4
Private Sub Commande82_Click()
        ' Envoi du Mail à chaque destinataire   
        DoCmd.SendObject acSendQuery, "Gestion02", acFormatXLS, NomListeDeroulante.Column(1), , , "Fiche de besoin", "Fiche Exportation, " & vbCrLf & vbCrLf & "Merci", False
End Sub

je suis allé dans Option Internet :
Programmes :
Courrier électronique : Outlook Express
OK
Ensuite j'ai eu un autre message d'avertissement envoi :

UN PROGRAMME ESSAIE D'ENVOYER UN MESSAGE EN VOTRE NOM

Dans les options de Outlook Express, il y a une case à décocher pour ne plus avoir le message.

Pour se faire il faut ouvrir Outlook Express : outils>option>sécurité puis il faut décocher "M'avertir lorsque d'autres applications tentent d'envoyer des messages de ma part ".

çà Fonctionne !

(Si option Internet est configurer Courrier électronique : Windows live mail)
çà ne fonctionne plus et j'ai le message erreur d'exécution '2293', et je n'ai pas trouvé pour solutionner d'ou viens le problème)

Cordialement

JJacques

[Jeannot45]

(Si option Internet est configurer Courrier électronique : Windows live mail)
çà ne fonctionne plus et j'ai le message erreur d'exécution '2293', et je n'ai pas trouvé pour solutionner d'ou viens le problème)

Peut-être que cette question devrait être posée sur le forum de la messagerie