Ik heb onderstaande macro gemaakt
Als laatste heb ik regel 7 toegevoegd (.Attachments......)
nu werkt de macro niet meer.
De bedoeling van regel 7 is, dat deze een bestand ophaalt en dat meestuurt als bijlage. In cel L11 wil ik graag het pad benoemen van de bijlage b.v. C:\bestanden\werk\plakboek\versie23.docx
Wat moet er nog aangevuld worden in de macro
Als laatste heb ik regel 7 toegevoegd (.Attachments......)
nu werkt de macro niet meer.
De bedoeling van regel 7 is, dat deze een bestand ophaalt en dat meestuurt als bijlage. In cel L11 wil ik graag het pad benoemen van de bijlage b.v. C:\bestanden\werk\plakboek\versie23.docx
Wat moet er nog aangevuld worden in de macro
Code:
Sub VC_stap_02()
With CreateObject("outlook.application").CreateItem(0)
.To = Blad5.Range("H11")
.cc = Blad5.Range("i11")
.Subject = Blad5.Range("j11")
.body = Blad5.Range("k11")
.Attachments = Blad5.Range("l11")
.send
End With
Range("c11").Select
ActiveCell.FormulaR1C1 = Date
Range("c11").Select
End Sub
Laatst bewerkt door een moderator: