Knop niet mee verzenden

[wieter]

Dag mensen,
Op het forum vond ik een eenvoudige code om, via een knop, een map via email te versturen.
Het werkt perfect.

Private Sub CommandButton1_Click()
ActiveWorkbook.SendMail Recipients:="iemand@thuis.com"
  
  MsgBox ("Uw mail is verzonden")

End Sub

Echter de knop wordt mee verstuurd en is dus zichtbaar voor de ontvanger.
Bij eigenschappen vind ik geen item om de knop onzichtbaar te maken voor de ontvanger.
Weet iemand raad?

 

[leofact]

mogelijk zo:

Private Sub CommandButton1_Click()
   CommandButton1.Visible=False
         ActiveWorkbook.SendMail Recipients:="iemand@thuis.com"
    MsgBox ("Uw mail is verzonden")
End Sub

mvg Leo

 

[wieter]

Dag Leo
Bedankt voor deze nachtelijke reactie
Ikga het dadelijk nog proberen
Wieter

Het werkt prima Leo
Nogmaals bedankt