[XL-2010] Mail depuis excel avec bouton de votes

[Auriverde]

Bonjour à tous,

J'ai développé un code vb sous excel qui crée et envoi un mail Outlook avec bouton de vote. Jusque là c'est simple...
Manuellement, lorsqu'on crée ce type de mail avec les boutons de vote, on peut personnaliser l'option "envoyer les réponses à" pour mettre d'autres personnes que l'expéditeur, sinon par défaut seul l'expéditeur reçoit le résutat du vote.
Comment coder l'action d'ajouter d'autres destinataires au résultat ?

Mon objectif est en fait de créer un circuit de validation de demande d'achat => Un demandeur, un valideur et l'acheteur qui reçoit la réponse avec le ficher de xls de demande d'achat joint.

Merci d'avance pour votre aide.

[ZebreLoup]

Mets ton code actuel, ce sera plus simple de t'aider...

[Auriverde]

Code :

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
Sub Validation_DA()
 
    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
 
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
 
    strbody = "Bonjour" & vbNewLine & vbNewLine & _
              "Vous trouverez en pièce jointe une demande d'achat" & vbNewLine & vbNewLine & _
              "Merci de valider ou refuser par les boutons de vote"
 
    With OutMail
        .To = "destinataire@societe.fr"
        .CC = ""
        .BCC = ""
        .Subject = "DA"
        .Body = strbody & vbNewLine & vbNewLine
        .Attachments.Add (ActiveWorkbook.Path & "\" & "Demande d'achat.xlsm") 'Emplacement du fichier joint
        .VotingOptions = "Valider;Refuser"
        '.Send
        .Display 
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
Exit Sub
errorHandler:
'description de l'erreur survenue
MsgBox Err.Description
End Sub

Voila donc le code. Mais comme dit lors de mon premier message, je n'arrive pas à ajouter automatiquement un autre destinataire au résultat du vote.
Je souhaiterai qu'il n'y ait qu'une personne qui valide (ou pas) mais plusieurs qui recoivent le résultat.
Pour info, toute ma bureautique est en Office 2010
Merci

[bbil]

Bonsoir,

et si de la même manière que tu renseigne ta propriété .to , fais de même pour .CC