Discussion :

[delcroixf]

Bonjour,
Comme toujours j'avance dans cette mine de renseignements et de tuyaux qu'est ce forum. Véritablement, cela donne envie de progresser même si parfois le découragement fait place quand on se compare à d'autres. enfin trois mois seulement cela laisse l'espoir !!!

J'ai un formulaire basé sur une requête me permettant de sélectionner les correspondants à qui je veux envoyer un email... J'y joins une pièce jointe personnalisée que je tire d'un lien hypertexte renseigné dans ma table initiale... Tout fonctionne bien sauf qu'il me met pour tous les correspondants sélectionnés la pièce jointe correspondante au premier de la liste !!! c'est un problème de boucle sans doute... mais je ne vois pas la solution... si simple probablement.

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
Private Sub Mail_Click()
Dim olApp As Outlook.Application
  Dim EMail As Outlook.MailItem
  Set olApp = Outlook.Application
  'Déclaration d'une variable ADO :
  Dim bds As New ADODB.Recordset
  bds.Open "R_Sélect_Email", CurrentProject.Connection
 
  ' On se positionne sur le premier enregistrement :
  bds.MoveFirst
  ' Tant que le dernier enregistrement n'est pas atteint :
  While Not bds.EOF
  ' On affiche le contenu du champs NomPrenom et EMail :
    Set EMail = olApp.CreateItem(olMailItem)
   Set myAttachments = EMail.Attachments
 
    With EMail
    .To = bds("E_mail")
    .Subject = "Ma société"
    .Attachments.Add (Forms!Employés1.Fiche_Id.Hyperlink.Address)
    .Body = "Ceci est un test. Nous vous demandons de ne pas répondre à ce message."
    .Display
    '.Send
    End With
    ' On va sur le suivant :
    bds.MoveNext
  Wend
  ' On ferme et on libère la variable :
  bds.Close
  Set bds = Nothing
End Sub

F (il fait très beau aux Marquises) !!!

[jean-paul lepetit]

Salut,

tu attaches effectivement le même fichier

Code :

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

1
2
 
     .Attachments.Add (Forms!Employés1.Fiche_Id.Hyperlink.Address)

il faudrait que tu prennes l'adresse dans la table sur laquelle tu boucles et non pas sur le formulaire

PS: Il fait très beau en Auvergne aussi....

[loufab]

Bonjour,

A Toulouse c'est une tempête de ciel bleu... Pour la baignade on va attendre Juillet ou Aout.

Il s'agit des adresses Employé1. Tu peux ouvrir le recordset du formulaire.

Code :

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

forms.employé1.recordset

ou encore

Code :

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

Forms.enployé1.recordsetclone

Pour la boucle je te laisse faire.

Cordialement,

[delcroixf]

Bonjour,
Je reviens vers vous après quelques jours en mer. Les sirènes ne m'ont guère inspiré... Définitivement, j'ai un problème de conception dans ma boucle et je n'arrive pas à attacher ma pièce jointe 1 avec mon escorte 1, PJ2 avec escorte 2... Je tourne en rond (pas dans le Pacifique heureusement). Je suis revenu au point de départ. Quelqu'un peut il me mettre sur la voie pour savoir quoi et où insérer le code dans mon code déjà existant ?
Merci

[delcroixf]

Re bonjour,
Je ne doute pas que Loufab avait la solution... que j'ai vainement cherchee. En plus la difference entre recordset et recordset clone est totalement floue pour moi meme avec l'aide. Quequ,un aurait-il un element pour aiguiller un pauvre marin solitaire du Pacifique Sud !

[Heureux-oli]

Regarde ici, peut-être pour l'inspiration.

Je hais les gens qui profitent du soleil quand je dois faire du vélo sous la neige.

[loufab]

Le recordset d'un formulaire correspond à l'ensemble des enregistrements (et des champs ) spécifié par la source de celui-ci.

Le recordsetclone est une "copie" de ce même recordset. Celui-ci est utiliser particulièrement lorsque l'on veut utiliser une valeur du recordset sans changer d'enregistrement courant.

Beaucoup d'application en perspective. Copie de valeur, recherche sans interférer dans la position...

Dans le cas qui te concerne tu dois utiliser le recordset ou recordsetclone (suivant si tu veux ou ne veux pas changer le pointeur de position) pour récupérer les employés.

La déclaration est simple

dim rst as dao.recordset
set rst = forms.Employés1.recordset

Cela se traite comme un recordset classique (voir le tuto sur DAO)

Cordialement,
A l'occase fait nous parvenir une belle photo de ton ile

[delcroixf]

Bonjour de Bora Bora,
J'ai enfin finalisé grâce à votre aide et cette mine que constitue le forum, ma petite automatisation de mails...

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
Private Sub Mail_Click()
 Dim olApp As Outlook.Application
 Dim EMail As Outlook.MailItem
  Set olApp = Outlook.Application
  'Déclaration d'une variable ADO :
  Dim bds As New ADODB.Recordset
  bds.Open "R_Sélect_Email", CurrentProject.Connection
  ' On se positionne sur le premier enregistrement :
  bds.MoveFirst
  ' Tant que le dernier enregistrement n'est pas atteint :
  While Not bds.EOF
  ' On affiche le contenu du champs NomPrenom et EMail :
    Set EMail = olApp.CreateItem(olMailItem)
 
   With EMail
    .To = bds("E_mail")
    .Subject = "Ma société"
    If IsNull(bds("fiche_Id")) = False Then
    .Attachments.Add (bds("Fiche_Id"))
    End If
    .Body = "Ceci est un test. Nous vous demandons de ne pas répondre à ce message."
    .Display
    '.Send
    End With
    ' On va sur le suivant :
    bds.MoveNext
  Wend
  ' On ferme et on libère la variable :
  bds.Close
  Set bds = Nothing
End Sub

Pour aller plus loin, j'envisage de faire une table de messages m'évitant d'aller dans le code pour modifier le sujet et le contenu du message. A priori pas de porblème.
Par contre, il me semble avoir déjà vu sur le forum une discussion pêrmettant de rechercher automatiquement le chemin des pièces jointes... en effet, mes pj au format pdf sont toujours du type A.pdf, B.pdf, C.pdf... où A, B, C seraient les noms des employés et par conséquent similaires au champ "Nom". Quel est le moyen ou le lien où je peux trouver de l'aide au développement de ce projet ?

Merci encore déjà de m'avoir aider à ce développement précédent.. mais que les progrès sont laborieux !!!

A bientôt

Une petite photo d'hier pour la route...

F