Vedhæft pdf fra Excel til Outlook...

Jeg har i Excel lavet et simpelt fakturerings program, der via en makro vælger et udskriftområde, generer ud fra det en pdf-fil som bliver vedhæftet Outlook (der jo så automatisk åbnes).

Jeg vil gerne fra Excel have udfyld modtageres e-mailadresse som jeg har i et fast felt ved hver faktura (men forskellig alt efter hvilket kunde nummer jeg har indtastet). Mailadressen hentes - som resten af kundeoplysningerne, via LOPSLAG. Jeg har navngivet feltet "mail" og søgt indsætte efter TO: i nedenstående - og også prøvet med en fast reference $m$36m, hvor mailadressen står.
Yderligere vil jeg gerne have indsat en tekst i Emnefeltet.

Det virker bare ikke.

With OutMail
.To = ""  'can instead be linked to a cell in the excel sheet
.CC = ""
.BCC = "info@mitdomaene.dk"
.Subject = "Cost status report - " & ActiveWorkbook.Worksheets("Dev Report").Range("D5") & " - " & ActiveWorkbook.Worksheets("Dev Report").Range("D4") & " - " & ActiveWorkbook.Worksheets("Dev Report").Range("R4")
.body = "Hi" & Chr(10) & Chr(10) & "Please find attached cost status report for " & ActiveWorkbook.Worksheets("Dev Report TEST").Range("D4") & " at end of " & ActiveWorkbook.Worksheets("Dev Report TEST").Range("R4") & Chr(10) & Signature
.Attachments.Add TempFileName
.Display
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing

If Dir(TempFileName) <> "" Then Kill TempFileName 'deletes the created PDF file in the temps-folder
   


'
   
End Sub

Hvad går galt?