Hoi,
Niet gevraagd, maar bij wijze van toemaatje : behoudens 'subject' krijg je desgewenst nog wat meer voor mekaar, bv :
Sub mailpdf()
Bestand = ThisWorkbook.Path & "\" & Range("d28").Value & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Subject = [D28] & " " & [D5] '(onderwerp)
.To = .....
.CC = .....
.Body = ..... '(bericht)
.Attachments.Add Bestand
.Display
End With
Kill (Bestand)
End Sub
Dagen naar weken/dagen :
=GEHEEL((L5-E8)/7) & "," & REST(L5-E8;7)
Groeten,
pitufo