arnose09
Gebruiker
- Lid geworden
- 28 aug 2006
- Berichten
- 141
Hoi,
Nadat ik een knop heb gemaakt in Excel en een macro hieraan heb gekoppeld ben ik niet verder gekomen dan dat een e-mail wordt opgestart met het Excel document als attachment.
Graag wil ik weten hoe ik een standaard e-mailadres hierin kan opgeven. Hopelijk kan iemand mij daar meer over vertellen.
Het onderstaande heb ik gevonden op het forum maar weet niet hoe ik deze code kan koppelen aan de knop. Graag een duidelijke omschrijving hoe/wat voor deze beginner:
Hieronder vind je de afgeslankte code die ik heb toegepast in mijn Excel bestand:
Private Sub VerzendEmail_Click()
Blad1.VerzendEmail.Visible = False
ActiveWorkbook.SendMail Recipients:=Array("persoon1@<hidden>", "persoon2@<hidden>"), Subject:="Onderwerp"
ThisWorkbook.Saved = True
Application.Quit
End Sub
Ter verduidelijking:
Voordat ik het formulier verstuur, maak ik de knop waarmee je het formulier kunt e-mailen "onzichtbaar". Daarmee voorkom ik dat de ontvanger de knop kan gebruiken (die ziet hem immers niet!). Na het versturen sluit ik Excel af, zonder het bestand en zijn eventuele wijzigingen op te slaan, en daardoor herstel ik de oude situatie weer.
B.v.d.!
Arnold
Nadat ik een knop heb gemaakt in Excel en een macro hieraan heb gekoppeld ben ik niet verder gekomen dan dat een e-mail wordt opgestart met het Excel document als attachment.
Graag wil ik weten hoe ik een standaard e-mailadres hierin kan opgeven. Hopelijk kan iemand mij daar meer over vertellen.
Het onderstaande heb ik gevonden op het forum maar weet niet hoe ik deze code kan koppelen aan de knop. Graag een duidelijke omschrijving hoe/wat voor deze beginner:
Hieronder vind je de afgeslankte code die ik heb toegepast in mijn Excel bestand:
Private Sub VerzendEmail_Click()
Blad1.VerzendEmail.Visible = False
ActiveWorkbook.SendMail Recipients:=Array("persoon1@<hidden>", "persoon2@<hidden>"), Subject:="Onderwerp"
ThisWorkbook.Saved = True
Application.Quit
End Sub
Ter verduidelijking:
Voordat ik het formulier verstuur, maak ik de knop waarmee je het formulier kunt e-mailen "onzichtbaar". Daarmee voorkom ik dat de ontvanger de knop kan gebruiken (die ziet hem immers niet!). Na het versturen sluit ik Excel af, zonder het bestand en zijn eventuele wijzigingen op te slaan, en daardoor herstel ik de oude situatie weer.
B.v.d.!
Arnold
