Bonjour,
j'ai un formulaire et j'y ai rajouté un bouton
Voici mon code:
Et l'appel du sub par le bouton:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Public Sub UseOutlook() Dim MonOutlook As Object Dim MonMessage As Object Set MonOutlook = CreateObject("Outlook.Application") Set MonMessage = MonOutlook.CreateItem(0) MonMessage.To = mail MonMessage.Subject = "Refeering" MonMessage.Body = DLookup("caractere", "password", "id = 15 ") MonMessage.Send 'MsgBox mail Set MonOutlook = Nothing End Sub
Rien ne se passe, pourtant le sub est bien appelé! je ne trouve pas ma faute.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 Private Sub Commande17_Click() Call UseOutlook End Sub
j'ai également rajouté ds outils/références microsoft outlook 9.0 object library.
Merci d'avance
Partager