Mail med ark

Hej igen, jeg har skrevet denne formel jeg har fundet på nettet til at sende mail med "ARK/fil" fra en knap jeg har lavet. Men den fungere ikke så jeg tænkte om der var nogle her der kunne hjælpe mig med at rette fejlen. Fejlen jeg for når jeg prøver at sende er error 424, også bliver linen med gult oplyst. Skulle der være nogle der kan hjælpe mig? Med venlig hilsen
Klaus W

Private Sub CommandButton2_Click()

Dim edress As String

Dim subj As String

Dim message As String

Dim filename As String

Dim outlookapp As Object

Dim outlookmailitem As Object

Dim myAttachments As Object

Dim path As String

Dim lastrow As Integer

Dim attachment As String

Dim x As Integer

x = 2

Do While Bestilling.Cells(x, 1) <> ""      DETTE PLEJER AT BLIVE GULT FEJL

'For x = 2 to 4

Set outlookapp = CreateObject("Outlook.Application")

Set outlookmailitem = outlookapp.CreateItem(0)

Set myAttachments = outlookmailitem.Attachments

path = "C:\Users\k-wit\Documents\"

edress = Bestilling.Cells(x, 1)

subj = Bestilling.Cells(x, 2)

filename = Bestilling.Cells(x, 3)

attachment = path + filename

outlookmailitem.To = edress

outlookmailitem.cc = ""

outlookmailitem.BCC = ""

outlookmailitem.Subject = subj

outlookmailitem.Body = "Vil du bestille dette" & vbCrLf & "Med venlig hilsen "

myAttachments.Add (attachment)

outlookmailitem.Display

outlookmailitem.Send

lastrow = lastrow + 1

edress = ""

x = x + 1

Loop

Set outlookapp = Nothing

Set outlookmailitem = Noth



End Sub