Discussion :

[STF-69]

Bonjour à tous!
Je suis en train d'essayer de développer une petite application pour envoyer un mail a partir d'un carnet d'adresse sous access.

La première partie du code fonctionne (pour envoyer à un destinataire selectionné)

Code :

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

1
2
3
4
5
6
Private Sub Dest_Click()
Dim Message, Titre, Reponse As String
Dim strFiltre As String
Forms![frm1_Créer_eMail]![txtDestinataire] = Me.Destinataire
Exit Sub
End Sub

Seulement je n'arrive pas à selectionner plusieurs destinataires

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Dest_Click()
Dim Message, Titre, Reponse As String
Dim strFiltre As String
If Not IsNothing(Forms![frm1_Créer_eMail]![txtDestinataire]) Then
Forms![frm2_Creer_eMail]![txtDestinataire.Append] = "; " & Me.Destinataire
Else
Forms![frm1_Créer_eMail]![txtDestinataire] = Me.Destinataire
End If
Exit Sub
End Sub

En fait je recherche la possibilité de rajouter du texte à la fin d'un texte existant à l'intérieur d'un champ depuis un formulaire...

Merci de votre aide

[helas]

Code :

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

1
2
 
 Forms![frm1_Créer_eMail]![txtDestinataire] = Forms![frm1_Créer_eMail]![txtDestinataire]  & ";" & Me.Destinataire

[STF-69]

Merci à toi helas

C'était pourtant simple