Bestand verzenden via macro

[maartenmars]

Beste mensen. Ik heb een bestand die ik wil versturen naar een e-mailadres.

Het is vast een vrij simpele weiziging, maar ik kom er niet uit.
Ik heb de macro nu zo:

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveWorkbook.Copy
ActiveWorkbook.SendMail "M.Weijermars@Almelo.nl", "Schadeformulier"
ActiveWorkbook.Close False


End Sub


Ik heb de eerste zin ActiveSheet.Copy verandert in ActiveWorkbook. Dat heb ik fout gedaan. Maar wat moet het wel zijn? Ik heb 2 tabbladen die verzonden moeten worden.

Alvast bedankt!

 

[Warme bakkertje]

Kijk eens op volgende link voor een oplossing

http://www.rondebruin.nl/sendmail.htm

Mvg

Rudi

 

[maartenmars]

Danku