ActiveWorkbook i stedet for ThisWorkbook

Bak hjalp mig (i spm http://www.eksperten.dk/spm/411740) med følgende kode:

Sub Send_via_Outlook()
Dim olApp As Outlook.Application
Dim olNewMail As Outlook.MailItem
Dim szBodyTekst As String
Set olApp = New Outlook.Application
Set olNewMail = CreateItem(olMailItem)
szBodyTekst = "Hermed fremsendes nye regneark" & vbCr
szBodyTekst = szBodyTekst & "mvh" & vbCr
szBodyTekst = szBodyTekst & "Tommy Bak" & vbCr

With olNewMail
    .Recipients.Add "tbc@linak.dk"
    .Subject = "Nye regneark"
    .Body = szBodyTekst
    With .Attachments
        .Add ThisWorkbook.Path & "\" & ThisWorkbook.Name
    End With
    .OriginatorDeliveryReportRequested = True
    .Display
    '.Send
End With
Set olNewMail = Nothing
Set olApp = Nothing

End Sub

Problemet er at det ikke skal være THIS men ACTIVE workbook der skal vedhæftes og sende med.....

For at gøre en lang historie kort, så har jeg en fil hvorfra jeg laver en værdikopi som så automatisk skal sendes via email - problemet er bare at ovenstående kode sender den forkerte fil!

??????????