Løste selv problemet...
Sub Create_Task()
'You must set a reference to the Microsoft Object Library x.x via the Tools | Reference...
'in the VB-editor.
Dim olApp As Outlook.Application
Dim olTask As Outlook.TaskItem
Dim CurrFile As String
Dim strname As String
Set olApp = New Outlook.Application
Set olTask = olApp.CreateItem(3)
strname = Sheets("Grunddata").Range("J13").Value & " - " & Date
strname = Replace(strname, "/", "-")
ThisWorkbook.Sheets(1).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & _
strname
Application.ScreenUpdating = False
With olTask
.subject = "Serviceaftale, " & Sheets("Grunddata").Range("J13").Value
.Body = "Att.: " & Sheets("Grunddata").Range("J17").Value & ", Tlf: " & Sheets("Grunddata").Range("J16").Value & " / " & Sheets("Grunddata").Range("M17").Value
'You need to change to Your own dateformat.
.DueDate = DateAdd("n", 10080, Now) ' Set the due date to
' X minutes from now.
.StartDate = Sheets("Grunddata").Range("M9").Value
.Status = olTaskNotStarted
.Importance = olImportanceNormal
.ReminderSet = True
.ReminderPlaySound = True
.Companies = "none"
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
ActiveWorkbook.Close False
Kill ThisWorkbook.Path & "\" & strname & ".xls"
Set olTask = Nothing
Set olApp = Nothing
End Sub