Microsoft 365 commandbutton pour 2 actions

[gilles37]

Bonjour a tous,🖐


J'ai un commandbutton (valider) qui enregistre sur une feuille les valeurs des labels 1,4,5 et ferme le fichier---Cà c'est ok


Je souhaiterai également que le commandbutton(valider) envoi un mail avec les contenus label1,4 de l'userform1(ci-joint.
Je bloque.

-------------------------------------------------------------------------------------

Dim mail As Variant

Set mail = CreateObject("Outlook.Application")

Withmail.createItem (OlmailItem)

.Subject = "info" & Label1.Value

.to = "pierre.xxxxxx@gmail.com"

.body = Label1.Value And Label4.Value

send

End With



F.Cells(lig, 1) = nom

F.Cells(lig, 2) = CDate(Label4)

If Label5 <> "" Then F.Cells(lig, 3) = CDate(Label5)



Unload Me 'ferme l'UserForm

'ActiveWorkbook.Save.Close True

With ThisWorkbook

.Save

.Close

Application.Quit

End With

End Sub


merci pour aide

 

[danielco]

Bonjour,
Essaie avec :

With mail.createItem (OlmailItem)
'(au lieu de Withmail)'

et

.send
'(au lieu de)
send

Daniel

 

[gilles37]

Bonjour Danielco

Fait les modifs comme proposé, message erreur pour en rouge

With mail.createItem (OlmailItem)

"erreur de compilation, variable non définie"

 

[danielco]

IL n'y a pas d'espace entre createitem et (

With mail.createItem(OlmailItem)

Daniel

 

[gilles37]

dans ma macro il n'y a pas d'espace

 

[danielco]

Je viens de tester le code. Aucun message. Curieux que les deux fois où tu as fait un copier/coller, il y a un espace ?