Discussion :

[calimero91]

Bonjour a tous,

je viens de faire un mailing automatique sur VB5, et je n'arrive pas a mettre de destinataire en copie (j'utilise outlook).

Code :

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

1
2
3
4
5
6
7
8
MAPISession1.SignOn
MAPIMessages1.MsgIndex = -1
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.RecipDisplayName="calimero91@hotmail.com"     'Destinataire
MAPIMessages1.MsgSubject = "text"                                      'Objet
MAPIMessages1.MsgNoteText = "bonjour"                                'Texte
MAPIMessages1.Send
MAPISession1.SignOff

[ThierryAIM]

Tu as tous les cas possibles, j'espère que ca marche en VB5 :

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
 
'-- Information destinataire
Private Type MapiRecip
    Reserved As Long
    RecipClass As Long
    Name As String
    Address As String
    EIDSize As Long
    EntryID As String
End Type
 
 
    MAPISession1.SignOff
Private Sub Command1_Click()
 
Dim arrayRecipient() As MapiRecip
 
    ReDim arrayRecipient(0 To 2) As MapiRecip
 
    '-- Liste des destinataires
    ReDim arrayRecipient(0 To 3) As MapiRecip
 
    arrayRecipient(0).Name = "Destinataire1"
    arrayRecipient(0).Address = "xxx.xxx@free.fr"
    arrayRecipient(0).RecipClass = mapToList
 
    arrayRecipient(1).Name = "Destinataire2"
    arrayRecipient(1).Address = "yyy.yyy@free.fr"
    arrayRecipient(1).RecipClass = mapToList
 
    arrayRecipient(2).Name = "Destinataire3"
    arrayRecipient(2).Address = "zzz.zzz@free.fr"
    arrayRecipient(2).RecipClass = mapCcList
 
    arrayRecipient(3).Name = "Destinataire4"
    arrayRecipient(3).Address = "uuu.uuu@free.fr"
    arrayRecipient(3).RecipClass = mapBccList
 
    MAPISession1.SignOn
    On Error GoTo Erreur
 
    MAPIMessages1.SessionID = MAPISession1.SessionID
    MAPIMessages1.Compose
 
    For i = 0 To UBound(arrayRecipient)
        MAPIMessages1.RecipIndex = i
        MAPIMessages1.RecipType = arrayRecipient(i).RecipClass
        MAPIMessages1.RecipAddress = arrayRecipient(i).Address
    Next
 
    MAPIMessages1.ResolveName
    MAPIMessages1.MsgSubject = "Mon sujet"
    MAPIMessages1.MsgNoteText = "Mon message"
 
    MAPIMessages1.Send True
    MAPISession1.SignOff
    Exit Sub
 
Erreur:
    Select Case Err
    Case mapUserAbort
    Case Else
        MsgBox "Erreur " & Err.Number & " : " & Err.Description, vbExclamation
    End Select
    Err.Clear
    MAPISession1.SignOff
End Sub

[calimero91]

merci beaucoup