Bonjour,

Je voulais savoir si il est possible lors de l'envoie d'email avec le code suivant de sélectionner au moment de l'envoi une des 3 adresses et non pas l'envoyer systhematiquement aux 3.

Merci

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
  Dim Maildb As Object      'La base des mails
    Dim UserName As String    'Le nom d'utilisateur
    Dim MailDbName As String  'Le nom de la base des mails
    Dim MailDoc As Object     'Le mail
    Dim AttachME As Object    'L'objet pièce jointe en RTF
    Dim Session As Object     'La session Notes
    Dim EmbedObj As Object    'L'objet incorporé
    Dim recip(25) As Variant
 
    'Crée une session notes
    Set Session = CreateObject("Notes.NotesSession")
 
    '*** Cette ligne est réservée aux versions 5.x et supérieur : ***
    'Session.Initialize (Password)
 
    'Récupère le nom d'utilisateur et crée le nom de la base des mails
    UserName = Session.UserName
    'MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
 
    'Ouvre la base des mails
    Set Maildb = Session.GetDatabase("", MailDbName)
    If Not Maildb.IsOpen Then Maildb.OPENMAIL
 
    'Paramètre le mail à envoyer
    Set MailDoc = Maildb.CreateDocument
    MailDoc.Form = "Memo"
    'MailDoc.sendto = "Recipient"
   ' MailDoc.CopyTo = ccRecipient
    'MailDoc.BlindCopyTo = bccRecipient
    MailDoc.Subject = "Réclamation"
    MailDoc.body = "Merci de continuer la réclamation N°" & Me![code_reclamation]
    'MailDoc.SaveMessageOnSend = SaveIt
 
    'Prend en compte les pièces jointes
    'If Attachment <> "" Then
       ' Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment")
       ' Set EmbedObj = AttachME.EmbedObject(1454, "", Attachment, "Attachment")
       ' MailDoc.CREATERICHTEXTITEM ("Attachment")
   ' End If
 
    'Envoie le mail
    MailDoc.PostedDate = Now()
    MailDoc.Send 0, "toto@toto.fr"
    MailDoc.Send 1, "titi@toto.fr"
    MailDoc.Send 2, "tata@toto.fr"
    MailDoc.sendto = ""
 
    Set Maildb = Nothing
    Set MailDoc = Nothing
    Set AttachME = Nothing
    Set Session = Nothing
    Set EmbedObj = Nothing
 
 
'Il est aussi possible d'indiquer à Lotus Notes plusieurs destinataires en affectant un tableau de type Variant à la propriété sendto :
 
 
'recip(0) = ""
'recip(1) = ""
'MailDoc.sendto = recip
End Sub