Outlook

ich verwende in meinem Script eine Übergabe an Outlook. Dies klappt auch sehr gut, doch ich möchte nun ein Attachment einfügen.

Hier mal mein Script:

Sub mailen()
Dim myOLApp As New Outlook.Application
Dim myOLItem As Outlook.MailItem
Set myOLItem = myOLApp.CreateItem(olMailItem)
With myOLItem
.Subject = "Test-Mail"
.Body = ""
.Attachments = MyDateiName
End With
myOLItem.Display
End Sub

MyDateiName definiere ich nachdem die Datei gespeichert wurde wie folgt:

Dim MyDateiName As String
MyDateiName = ActiveWorkbook.FullName

Wie bekomme ich nun mein Attachment mit dieser Variable hin?

Danke & Gruß
Christian