email vanuit Excel

[Sytse1]

In een werkblad heb ik een opdrachtknop gemaakt.
Deze knop moet het werkblad middels email verzenden.
De VBA code hiervoor is volgens mij: Application.Dialogs(xlDialogSendMail).Show
Een enkele keer werkt dit goed.
Het email programma wordt geopend en het werkblad is als een bijlage bijgevoegd.
Echter de meeste keren krijg ik een foutmelding. 1004 Het elektronisch post systeem is vastgelopen. Sluit Excel en het elektronisch postsysteem en probeer het opnieuw. Als ik van alles afsluit en Excel opnieuw start en opnieuw deze opdrachtknop wil gebruiken loopt Excel vast.
Is er wellicht een betere VBA code hiervoor.
b.v.d.
Sytse

 

[VenA]

Gebruik of de zoekfunctie of plaats een voorbeeldje van jouw bestand. Dit is wel heel erg vaak beschreven.

 

[wildboy]

Hoi Sytse,

Kijk even op de site van Ron de Bruin voor een goede oplossing en de juiste VBA codes

http://www.rondebruin.nl/win/section1.htm