Mail versturen via word

[ZZ1]

Hallo,

Ik wil graag een word bestand dmv een commandbutton versturen via Outlook met een naar een vast email adres.

Private Sub Send_Click()
    .To = "blabla"
    .MailSubject = "Vragenlijst"
    .Send
End Sub

Maar dan krijg ik een foutmelding...

Hoe kan dit opgelost worden?? Hij moet gewoon meegestuurd worden als bijlage.


Alvast bedankt !!

 

[snb]

Private Sub Send_Click()
   activedocument.sendmail  "xxx@forum.nl", "vragenlijst"
End Sub

 

[ZZ1]

Hallo,

Ik heb deze code getest en dit werkte niet bij mij...
Ik heb het opgelost om vragenlijst in Excel te maken en hier had ik al een code van.

Iedergeval bedankt!!