Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Re: Nombre d'adresses mail

avatar
21/03/12 09:16
Il faudrait modifier le formulaire frm_EditeMail, ce qui n'est pas le but smiling smiley

Je procéderai de la manière suivante :
- un formulaire, avec une zone de texte (txtCorps) pour le corps du message ;
- un bouton 'Envoyer'

Dans le bouton Envoyer, un code sur ce modèle :
Langage: Visual Basic
Dim rs As DAO.Recordset, sDests As String, n As Integer   Set rs = CurrentDb.OpenRecordset("SELECT Mail FROM LaTable WHERE ...", dbOpenSnapshot)   Do While Not rs.EOF ' Créer un lot de 50 adresses. If Len(sDests)>0 Then sDests = sDests & "," sDests = sDests & rs!Mail n = n + 1 rs.MoveNext   If n >= 50 Or rs.EOF Then CreeMail sDests, "Objet", Me.txtCorps, "Expediteur"   sDests = "" n = 0 End If   Loop   rs.Close Set rs = Nothing   SMTPLance ...



Modifié 1 fois. Dernière modification le 21/03/12 09:17 par DenisS.
SujetAuteurEnvoyé le

Nombre d'adresses mail

Jacques10/03/12 16:35

Re: Nombre d'adresses mail

DenisS10/03/12 17:32

Re: Nombre d'adresses mail

DenisS10/03/12 19:24

Re: Nombre d'adresses mail

JeffB12/03/12 09:43

Re: Nombre d'adresses mail

DenisS12/03/12 10:18

Re: Nombre d'adresses mail

Jacques20/03/12 10:39

Re: Nombre d'adresses mail

DenisS20/03/12 10:56

Re: Nombre d'adresses mail

DenisS20/03/12 13:23

Re: Nombre d'adresses mail

Jacques21/03/12 01:48

Re: Nombre d'adresses mail

DenisS21/03/12 09:02

Re: Nombre d'adresses mail

DenisS21/03/12 09:16

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter