Datei zufügen

das folgende Sub ist ein Teil eines Makros (Welches in Excel läuft)in dem eine Tabelle geschickt werden soll. Aber irgendwie kriege ich den Datei nicht als Attachment angehängt. Was kann ich hier machen. SChon Danke
Grüße Niek

Sub Senden(Datum2)
Dim mail As Object
Set outl = CreateObject("Outlook.Application")
Set mail = outl.CreateItem(0)
mail.Subject = "Planung" + Datum2
mail.To = "Name@name2.com"
mail.Body = "XXXXX" & vbCrLf & _
"Anbei die Tabelle mit der Planung" & vbCrLf & _
"Mit freundlichen Grüßen"
mail.Attachments.ad "All"
mail.Send
End Sub