Discussion :

[GAYKOINA]

Bonjour à toutes et à tous,

J'ai un petit bug sur ma programmation VBA pour mon association,
Auriez-vous une explication 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
Private Sub CommandButton3_Click()
destinataires = Q15
 
Dim MaMessagerie As Object
Dim MonMessage As Object
Set MaMessagerie = Create.Object("Outlook.Application")
Set MonMessage = MaMessagerie.createitem(0)
MonMessage.to = "Q15"
MonMessage.CC = "Q15"
MonMessage.Attachment.Add Fichier
MonMessage.Subject = "Envoie Carte Membre de L'Association Pèse-Plume 71"
contenu = "Bonjour,"
contenu = contenu & Chr(10) & Chr(13)
contenu = contenu & "Voici ta carte Membre de l'association Pèse-Plume 71, pour l'année 2019-2020."
contenu = contenu & Chr(10) & Chr(13)
contenu = "Cette carte est dématérialisé donc il faut la garder. Ps : Merci de signaler tout changement de coordonnées."
contenu = contenu & Chr(10) & Chr(13)
MonMessage.Body = contenu
MonMessage.send
Set MaMessagerie = Nothing

[tony76]

bonjour je sais pas si cela vient de la

sur le site de Microsoft https://docs.microsoft.com/fr-fr/off...ic-application

ceci

Code :

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

Set MaMessagerie = Create.Object("Outlook.Application")

et plus comme cela sans le point

Code :

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

Set objOL = CreateObject("Outlook.Application")

et il manque le End Sub a la fin