Znovu otevírám toto téma.
Mám nový problém.
Přidal jsem tlačítko odeslat emailem. Ošetřil jsem toto tlačítko makrem:

Private Sub CommandButton2_Click()
mail = InputBox("Zadej email", "Email", "@")
ThisWorkbook.ActiveSheet.Copy
With ActiveWorkbook
.SendMail Recipients:=mail, _
Subject:="Název " & Format(Date, "dd/mmm/yy")
.Close SaveChanges:=False
End With

End Sub

Poté když na tlačítko klepnu, tak mi vyběhne tabulka kde zadám email a po potvrzení emailu se mi ukáže chyba:

Run-time error '1004'
Method 'SendMail' of object '_Workbook' failed.

Otevře se mi nové okno jen s tím aktuálním listem, ale na email se nic neodešle.
Prosím o nějaký napád co s tím?