ik heb volgende code
Datum = Day(Factuurdatum) & "-" & Month(Factuurdatum) & "-" & Year(Factuurdatum)
naampdf = "factuur " & Factuurnr & " " & Datum & " .PDF"
directory = "C:\Users\L\Documents\FN\Fakturen2011\"
bestand = directory & naampdf
Set bericht = CreateObject("CDO.Message")
With bericht
.To = "ggg@skynet.be"
.CC = " "
.BCC = ""
.Subject = Naam
.textBody = "Test"
ik wil dat hij live mail opent en dat ik nog iets kan wijzigen
Datum = Day(Factuurdatum) & "-" & Month(Factuurdatum) & "-" & Year(Factuurdatum)
naampdf = "factuur " & Factuurnr & " " & Datum & " .PDF"
directory = "C:\Users\L\Documents\FN\Fakturen2011\"
bestand = directory & naampdf
Set bericht = CreateObject("CDO.Message")
With bericht
.To = "ggg@skynet.be"
.CC = " "
.BCC = ""
.Subject = Naam
.textBody = "Test"
ik wil dat hij live mail opent en dat ik nog iets kan wijzigen