Plusieurs destinataires à un message

**thetom** · 23/02/2009, 15h13

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
    Do
        Adresse = Adresse & Destinataire(y) & "; "
        y = y + 1
    Loop Until y > x
    MAPISession1.SignOn
    MAPIMessages1.MsgIndex = -1
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.RecipDisplayName = Adresse
    MAPIMessages1.MsgSubject = Text2.Text       'Objet
    MAPIMessages1.MsgNoteText = Text1.Text                'Texte
    MAPIMessages1.Send
    MAPISession1.SignOff

A la fin, Adresse ne contient que le premier destinataire
Quelqu'un pourrais me dire ou est l'erreur ?
Merci d'avance

**pc75** · 23/02/2009, 15h23

Bonjour,

D'après moi, le problème vient de la boucle.

Avant le Do, affiche la valeur de tes variables :

Code :

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

1
2
3
4
5
 
MsgBox "x = " & x
MsgBox "y = " & y
Do
....

**thetom** · 23/02/2009, 15h25

Envoyé par pc75

Bonjour,

D'après moi, le problème vient de la boucle.

Avant le Do, affiche la valeur de tes variables :

Code :

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

1
2
3
4
5
 
MsgBox "x = " & x
MsgBox "y = " & y
Do
....

x = 4
y = 1

**pc75** · 23/02/2009, 15h35

Re,

Et tu ne vois pas l'erreur ?

Quand tu fais :

Loop Until y > x

Ca équivaut à dire :

Code :

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

1
2
 
Loop Until 1 > 4

Ce code devrait mieux fonctionner :

Code :

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

1
2
 
Loop Until y < x

PS : ou y <= x

**thetom** · 23/02/2009, 16h01

Je ne pense pas que c'est ça,

En rajoutant un Msgbox,

Code :

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

1
2
3
4
5
6
 
    Do
        Adresse = Adresse & Destinataire(y) & "; "
        Call MsgBox(Destinataire(y))
        y = y + 1
    Loop Until y < x

je n'ai qu'un message (le premier destinataire)
mais avec

Code :

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

1
2
3
4
5
6
 
    Do
        Adresse = Adresse & Destinataire(y) & "; "
        Call MsgBox(Destinataire(y))
        y = y + 1
    Loop Until y > x

le message m'affiche tout les destinataire 1 par 1
mais il n'y a toujours que le premier destinataire

PS: d'après moi, "until" veut dire "jusqu'à" et "while" veut dire "tant que"

**pc75** · 23/02/2009, 16h13

Re,

Alors comme ça :

Code :

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

1
2
3
4
5
6
 
    Do while y < x
        Adresse = Adresse & Destinataire(y) & "; "
        Call MsgBox(Destinataire(y))
        y = y + 1
    Loop

**thetom** · 23/02/2009, 16h49

ça ne change pas

je pense que ça viens de

Code :

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

1
2
 
Adresse = Adresse & Destinataire(y) & "; "

l'addition des string ne doit pas marcher

**littledoudou** · 23/02/2009, 16h54

bonjour,

sinon pour la concaténation de valeurs d'un tableau de string avec délimiteur, il y a la fonction 'Join':

Code :

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

Adresse = Join(Destinataire, ";")

cdlt,

**iclic** · 23/02/2009, 17h07

Bonjour,

Et pourquoi faire si compliqué... puisque x , je suppose est le maximum de messages.

Code :

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

1
2
3
4
5
6
7
8
 
 
Adresse =""   ' d'abord initialiser la variable
for y=1 to x
       Adresse = Adresse & Destinataire(y) & "; "
next
 
...

Et bien sûr 'Adresse doitt être une variable 'string et Destinataire un tableau
également 'string

**thetom** · 23/02/2009, 17h59

Envoyé par littledoudou

bonjour,

sinon pour la concaténation de valeurs d'un tableau de string avec délimiteur, il y a la fonction 'Join':

Code :

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

Adresse = Join(Destinataire, ";")

cdlt,

et

Envoyé par iclic

Bonjour,

Et pourquoi faire si compliqué... puisque x , je suppose est le maximum de messages.

Code :

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

1
2
3
4
5
6
7
8
 
 
Adresse =""   ' d'abord initialiser la variable
for y=1 to x
       Adresse = Adresse & Destinataire(y) & "; "
next
 
...

Et bien sûr 'Adresse doitt être une variable 'string et Destinataire un tableau
également 'string

Même problème qu'au début : que le premier destinataire

**iclic** · 23/02/2009, 18h00

Et j'ai testé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Adresse As String, Destinataire(4) As String
Dim y As Integer, x As Integer
 
Destinataire(1) = "bibi"
Destinataire(2) = "baba"
Destinataire(3) = "bubu"
Destinataire(4) = "bobo"
x = 4
Adresse = ""
For y = 1 To x
   Adresse = Adresse & Destinataire(y) & ";"
Next
MsgBox (Adresse)

Adresse donne bien comme résultat
= "bibi;baba;bubu;bobo;"

**thetom** · 23/02/2009, 18h09

Oui mais pour moi Destinataire(y) est récupérer par:

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim sSpaces As String
sSpaces = Space$(100)
y = 1
Do
     Call GetPrivateProfileString("GENERAL", "e-mail", "", sSpaces, Len(sSpaces),  App.Path & "\accounts\" & login(y))
     If Not sSpaces = "" Then destinataire(y) = (sSpaces)
     y = y + 1
Loop Until y > x

**iclic** · 23/02/2009, 18h32

Que vaut 'login(y)

Code :

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

1
2
3
 
Call GetPrivateProfileString("GENERAL", "e-mail", "", sSpaces, Len(sSpaces),  App.Path & "\accounts\" & login(y))
 If Not sSpaces = "" Then destinataire(y) = (sSpaces )

et que retourne 'sSpaces (là je ne vois pas ce que les parenthèses viennent faire)
Et encore une fois un

Code :

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

1
2
3
 
for y = 1 to x
...

serait plus simple.

**thetom** · 23/02/2009, 19h40

login(y) est le nom de fichier ("XXX.ini")
sSpaces retourne la valeur ou l'adresse avec plein d'espaces après

EDIT : je viens de trouver une nouvelle fonction pour lire un ini et ça marche voici donc 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyname As Any, ByVal lpdefault As String, ByVal lpreturnedstring As String, ByVal nsize As Long, ByVal lpfilename As String) As Long
 
Private Sub Form_Load()
    Dim y As Integer, x As Integer
    Dim Adresse As String
    x = 4
    ReDim Destinataire(1 To x) As String, login(1 To x) As String
 
    login(1) = "Toms.ini"
    login(2) = "Toms2.ini"
    login(3) = "Toms3.ini"
    login(4) = "Toms4.ini"
 
    For y = 1 To x
        Destinataire(y) = GetVar(App.Path & "\accounts\" & login(y), "GENERAL", "e-mail")
    Next
    Adresse = ""
    For y = 1 To x
       If y = x Then
       Adresse = Adresse & Destinataire(y)
       Else
       Adresse = Adresse & Destinataire(y) & ";"
       End If
    Next
    MsgBox (Adresse)
    MAPISession1.SignOn
    MAPIMessages1.MsgIndex = -1
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.RecipDisplayName = Adresse
    MAPIMessages1.MsgSubject = Text2.Text
    MAPIMessages1.MsgNoteText = Text1.Text
    MAPIMessages1.Send
    MAPISession1.SignOff
End Sub
 
Public Function GetVar(File As String, Header As String, Var As String) As String
Dim sSpaces As String   ' Max string length
Dim szReturn As String  ' Return default value if not found
 
    szReturn = vbNullString
 
    sSpaces = Space$(5000)
 
    Call GetPrivateProfileString(Header, Var, szReturn, sSpaces, Len(sSpaces), File)
 
    GetVar = RTrim$(sSpaces)
    GetVar = Left$(GetVar, Len(GetVar) - 1)
End Function

**iclic** · 24/02/2009, 10h19

Bonjour,

Pour éviter ceci:

Code :

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

1
2
3
4
5
6
7
8
 
For y = 1 To x
       If y = x Then
       Adresse = Adresse & Destinataire(y)
       Else
       Adresse = Adresse & Destinataire(y) & ";"
       End If
    Next

Tu peux faire:

Code :

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

1
2
3
4
5
 
For y = 1 To x
        Adresse = Adresse & Destinataire(y) & ";"
Next
Adresse = Left (Adresse, len (Adresse) - 1)

Pourquoi faire compliqué quand on peut faire simple?

A+ et bonne continuation

**thetom** · 24/02/2009, 11h25

Merci

Une dernière question :

Est-ce que quelqu'un sait comment ajouter des adresse en cci (en copie cachée ) ?

**Delbeke** · 26/02/2009, 14h36

Essaye quelque chose du genre

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
32
33
34
35
 
   With MAPIMessages1
 
'.....
 
       ADR = Split(SendTo, ";")
       For iPnt = 0 To UBound(ADR)
        If ADR(iPnt) <> "" Then
          .RecipIndex = .RecipCount
          .RecipDisplayName = ADR(iPnt)
          '.ResolveName
          .RecipType = mapToList
        End If
      Next
      ADR = Split(CopyTo, ";")
      For iPnt = 0 To UBound(ADR)
        If ADR(iPnt) <> "" Then
          .RecipIndex = .RecipCount
          .RecipDisplayName = ADR(iPnt)
          '.ResolveName
          .RecipType = mapCcList
        End If
      Next
      ADR = Split(BCopyTo, ";")
      For iPnt = 0 To UBound(ADR)
        If ADR(iPnt) <> "" Then
          .RecipIndex = .RecipCount
          .RecipDisplayName = ADR(iPnt)
          '.ResolveName
          .RecipType = mapBccList
        End If
      Next
 
'....
End With

**thetom** · 27/02/2009, 11h44

merci ça fonctionne très bien

!

Plusieurs destinataires à un message

VB 6 et antérieur

Discussions similaires

Partager

Partager