Removing a custom bar when sending a mail

[Navvy]

Good Morning All,
I am trying to send a mail via the following code:
Sub sendMail()

Dim sj As String

sj = "Today"

ActiveWorkbook.sendMail Recipients:="Nav, Ben", Subject:=sj

End Sub

I have tried:
Application.CommandBars("Custom 1&quot.Visible = False

But that doesn't work.

 

[RobBroekhuis]

What doesn't work? It won't send mail? It won't hide the bar? How are the two related?
Rob

 

[Navvy]

Hello Rob, it can send the mail but I can't get rid of the custom bar when it sends the mail to other people. So I want it to hide the bar when it sends it out. Thank you.

 

[RobBroekhuis]

You mean when the recipient opens the workbook, (s)he sees the custom bar, and you want to avoid that? I don't understand why they would have the custom bar at all, unless it is programmatically generated in your VBA project. Commandbars is an application object, not a workbook object.
Rob

 

[Navvy]

Ok, i see what happens,
Private Sub Workbook_Open()

AddCustomBar bReload:=True

End Sub


I need the bar to come up for me but not others when i send the mail

 

[RobBroekhuis]

You could simply do

Private Sub Workbook_Open()
if application.username="Navvy" then AddCustomBar bReload:=True
End Sub

(fill in your real username, of course)
Rob