Email d'access via lotus

**chalou** · 01/12/2006, 11h35

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

**Tofalu** · 01/12/2006, 11h37

Il suffit de supprimer les lignes :

Code :

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

1
2
    MailDoc.Send 1, "titi@toto.fr"
    MailDoc.Send 2, "tata@toto.fr"

inutile

**chalou** · 01/12/2006, 11h50

Merci, mais si je supprime les 2 adresses je n'ai plus de choix possible ??

**Tofalu** · 01/12/2006, 11h57

Le choix, il faut l'mplémanter dans une zone de liste dans le formulaire

**chalou** · 01/12/2006, 13h58

Merci, mais le lien en dessous c'est pour me dire d'aller chercher par là ou cela n'à rien a voir??

Sachant que je suis sur une version Access 2003.

J'ai essayé ceci mais sans réussite pour appeller ma zone de liste :

Code :

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