Discussion :

[delcroixf]

Bonjour,
J'ai un code me permettant dans Emailing de sélectionner un message... ceci se fait en tapant un chiffre (correspondant au ID_mess) dans une Inputbox. Je souhaiterais remplacer cela par une LISTE DEROULANTE ou seraient listés les "sujets" (correspondants à un autre champ de ma table messages)... ce qui me paraît plus convivial et dynamique. Est-ce possible au sein de mon 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
vRéponse = InputBox("Quel message voulez-vous envoyer ? Tapez dernier ou le numéro correspondant.", "Liste de diffusion")
        If LCase(vRéponse) <> "dernier" And Val(vRéponse) <= 0 Then Exit Sub
        If LCase(vRéponse) = "dernier" Then
        vMessages.MoveLast
        vTrouvé = True
        End If
        If Val(vRéponse) > 0 Then
        vMessages.FindFirst "IDmess=" & Val(vRéponse)
        If vMessages.NoMatch Then
        MsgBox "Ce message n'existe pas", vbOKOnly + vbCritical, "Liste de diffusion"
        Else
        vTrouvé = True
        End If
        End If

[Heureux-oli]

Une fois de plus, tu as de la chance que le soleil brille.

C'est pas ce code qu'il faut changer.

Il faut créer dans ton formulaire de départ une liste et simplement utiliser cette liste pour sélectionner ton texte.

Code :

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

vReponse = Me.listedechoix

[delcroixf]

Merci pour tes réponses toujours aussi lucides... Mon code est devenu ainsi :

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
Set olApp = Outlook.Application
  Set vMessages = CurrentDb.OpenRecordset("R_Messages")
  vTrouvé = False
  Do While vTrouvé = False
  
    vRéponse = Me.Message_Type
        If Val(vRéponse) > 0 Then
        vMessages.FindFirst "IDmess=" & Val(vRéponse)
        If vMessages.NoMatch Then
        MsgBox "Vous devez sélectionner un message", vbOKOnly + vbCritical, "Liste de diffusion"
        Else
        vTrouvé = True
        End If
       End If
       Loop
    
  vSujet = vMessages.Fields("Sujet")
  vContenu = vMessages.Fields("Body")
  vMessages.Close
  Set vMessages = Nothing

[/CODE]

Par contre, Je n'arrive pas à gérer la partie en gras... Si je l'enlève, le code plante et si je la laisse pas de message. En fait je souhaiterai gérer le cas toujours possible de l'utilisateur oubliant de sélectionner un message dans la liste déroulante ce qui conduit inévitablement à ce qui s'affiche dans la pièce jointe... Pas de gestion de Null ! (heureusement que je ne suis pas susceptible)...

A part cela, départ pour les Marquises dans les heues à venir avec une petite plongée dans une dizaine d'heures. Pensées à ceux qui subissent un printemps moyen pour l'instant et une petite PJ pour vous aider !

[delcroixf]

J'ai oublié la vraie PJ du message !!!

[Heureux-oli]

Le printemps pour l'instant n'est pas moyen, c'est blue sky.
Le premier code était alors incomplet.

Code :

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

1
2
3
4
Set olApp = Outlook.Application
 
  vSujet = Me.Message_type.column(x)
  vContenu = Me.Message_type.column(y)

Devrait mieux passer.

[delcroixf]

Merci pour ce "tchat" rapide par email alors que nous sommes à 18000kms l'un de l'autre. je crois que je me suis mal fait comprendre... Ok pour le complément du code concernant les colonnes adjacentes mais le problème du null c'est quand ll'utilisateur a oublié de sélectionner un item dans la liste déroulante... Celle-ci reste vierge et par oncséquent le message d'erreur survient...
J'aurai voulu rajouter un else donnant la CATenir en cas de liste déroulante null derrière ce morceau de code

Code :

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

1
2
If Val(vRéponse) > 0 Then
        vMessages.FindFirst "IDmess=" & Val(vRéponse)

en supprimant ceci :

Code :

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

1
2
If vMessages.NoMatch Then
        MsgBox "Vous devez sélectionner un message", vbOKOnly + vbCritical, "Liste de diffusion"

mais là je ne sais pas m'y prendre...

Quand j'ai sélectionné un message OK ca fonctionne mais quand il n'y a pas de message encore SELECTIONNE dans la liste un message du style vous devez sélectionner... A moins que j'en mette un par défaut !
Désolé...