Bonjour , alors voila mon souci je veux faire une boucle=20
et je vous la montre:
Dim inte As Integer
inte =3D 1
Do Until inte > 7
'Add Att1 to the attachments
If Not (Eval("Att" & inte) =3D "") Then
MapiMessage.Attachments.Add Att1
End If
inte =3D inte + 1
Loop
En fait mon but est d'ajouter les doc qui se cachent=20
derri=E8re les variables Att1, Att2, Att3, ...
Mais je ne vois pas comment faire pour dire =E0 visual que=20
Att inte(l'entier que j'incr=E9mente) est une variable
R=E9sultat soit il me dit que Att1 n'existe pas soit sans=20
le eval et bah je rentre toujours dans If puisque Attinte=20
<> ""
dans tous les cas si vouavez une id=E9e=20
merci d'avance
et bonne journ=E9e
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
ta procédure ne gère que 7 pièces jointes et te bloquera un jour. il vaut mieux passer par un tableau qui permet de ne pas connaître le nombre de pièces. par exemple tu peux faire:
Dim I As Integer Dim CC As Variant CC = Split("C:doc1.doc;C:doc2.doc;C:doc3.doc", ";") For I = LBound(CC) To UBound(CC) If CC(I) <> "" Then MapiMessage.Attachments.Add (CC(I)) End If Next I
le split peut provenir d'une lecture en boucle. tu trouveras ce genre de procédure avec outlook sur la page : http://access.seneque.free.fr/envoi_message.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"JAG" a écrit dans le message de news:0a4101c3bfca$9207a760$ Bonjour , alors voila mon souci je veux faire une boucle et je vous la montre: Dim inte As Integer inte = 1 Do Until inte > 7 'Add Att1 to the attachments If Not (Eval("Att" & inte) = "") Then MapiMessage.Attachments.Add Att1 End If inte = inte + 1 Loop En fait mon but est d'ajouter les doc qui se cachent derrière les variables Att1, Att2, Att3, ... Mais je ne vois pas comment faire pour dire à visual que Att inte(l'entier que j'incrémente) est une variable Résultat soit il me dit que Att1 n'existe pas soit sans le eval et bah je rentre toujours dans If puisque Attinte <> "" dans tous les cas si vouavez une idée merci d'avance et bonne journée
Bonjour.
ta procédure ne gère que 7 pièces jointes et te bloquera un jour. il vaut
mieux passer par un tableau qui permet de ne pas connaître le nombre de
pièces. par exemple tu peux faire:
Dim I As Integer
Dim CC As Variant
CC = Split("C:doc1.doc;C:doc2.doc;C:doc3.doc", ";")
For I = LBound(CC) To UBound(CC)
If CC(I) <> "" Then
MapiMessage.Attachments.Add (CC(I))
End If
Next I
le split peut provenir d'une lecture en boucle.
tu trouveras ce genre de procédure avec outlook sur la page :
http://access.seneque.free.fr/envoi_message.htm
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour une meilleure
efficacité de tes interventions sur MPFA
"JAG" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:0a4101c3bfca$9207a760$a101280a@phx.gbl...
Bonjour , alors voila mon souci je veux faire une boucle
et je vous la montre:
Dim inte As Integer
inte = 1
Do Until inte > 7
'Add Att1 to the attachments
If Not (Eval("Att" & inte) = "") Then
MapiMessage.Attachments.Add Att1
End If
inte = inte + 1
Loop
En fait mon but est d'ajouter les doc qui se cachent
derrière les variables Att1, Att2, Att3, ...
Mais je ne vois pas comment faire pour dire à visual que
Att inte(l'entier que j'incrémente) est une variable
Résultat soit il me dit que Att1 n'existe pas soit sans
le eval et bah je rentre toujours dans If puisque Attinte
<> ""
dans tous les cas si vouavez une idée
merci d'avance
et bonne journée
ta procédure ne gère que 7 pièces jointes et te bloquera un jour. il vaut mieux passer par un tableau qui permet de ne pas connaître le nombre de pièces. par exemple tu peux faire:
Dim I As Integer Dim CC As Variant CC = Split("C:doc1.doc;C:doc2.doc;C:doc3.doc", ";") For I = LBound(CC) To UBound(CC) If CC(I) <> "" Then MapiMessage.Attachments.Add (CC(I)) End If Next I
le split peut provenir d'une lecture en boucle. tu trouveras ce genre de procédure avec outlook sur la page : http://access.seneque.free.fr/envoi_message.htm -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour une meilleure efficacité de tes interventions sur MPFA
"JAG" a écrit dans le message de news:0a4101c3bfca$9207a760$ Bonjour , alors voila mon souci je veux faire une boucle et je vous la montre: Dim inte As Integer inte = 1 Do Until inte > 7 'Add Att1 to the attachments If Not (Eval("Att" & inte) = "") Then MapiMessage.Attachments.Add Att1 End If inte = inte + 1 Loop En fait mon but est d'ajouter les doc qui se cachent derrière les variables Att1, Att2, Att3, ... Mais je ne vois pas comment faire pour dire à visual que Att inte(l'entier que j'incrémente) est une variable Résultat soit il me dit que Att1 n'existe pas soit sans le eval et bah je rentre toujours dans If puisque Attinte <> "" dans tous les cas si vouavez une idée merci d'avance et bonne journée
