Discussion :

[Djohn]

Bonjour,

J'ai actuellement une macro qui envoie via VBA Excel un fichier.

Je souhaite rajouter à mon code, l'option qui permet d'ajouter un vote a mon message e-mail (pour plus d'info http://office.microsoft.com/fr-fr/ou...421711036.aspx )

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
Sub envoimail()
 
Dim OutApp As Object
    Dim OutMail As Object
 
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
 
    On Error Resume Next
    With OutMail
        .To = "toctoc@domaine.com"
        .CC = "truc@domaine.com; machin@domaine.com"
        .Subject = "Merci de bien vouloir confirmer"
        .Send
        .Display
    End With
    On Error GoTo 0
 
    Set OutMail = Nothing
    Set OutApp = Nothing
 
End Sub

Merci de votre aide

[cafeine]

Hello,

en regardant l'explorateur d'objet sur Outlook, je trouve .VotingOptions sur un MailItem

donc a priori :

Code :

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

oMail.VotingOptions = "Accepter;Refuser"

[Djohn]

c'est genial, merci infiniment,
pour etre franc, j'ai repris ce code, je ne connais pas du tout la programmation avec des objets.

Peux tu me dire quel a été ton acheminement apres avoir été sur l'explorateur de projet sur outlook pour trouver la réponse.

merci

[cafeine]

Ok, voici l'histoire des 60 secondes pour trouver la réponse :
je vais dans VBE Outlook.
Je tape F2 et je sélectionne la bibliothèque Outlook

Je fais une recherche sur "vote"
<aucun résultat>
Je fais une recherche sur "voting" et là je trouve VotingOptions

Puis je fais un google sur VotingOptions et le tour est joué.