Rap261
Gebruiker
- Lid geworden
- 2 sep 2008
- Berichten
- 273
Hoi,
Wanneer je b.v. een Excel bestand elke dag of week moet opleveren is het soms vervelend om:
- Elke keer je e-mail te openen
- Klikken op "Nieuw Bericht"
- De namen van de ontvanger in te voeren (misschien zijn het er wel 5)
- Vervolgens je inmiddels standaard tekst te typen
- En als laatste niet te vergeten je bestand bij te voegen. Stel je voor dat je het verkeerde bestand verzend.
Onderstaand script doet alle bovengenoemde handelingen voor je. Het enige wat je zelf moet doen is eenmalig de adressen toevoegen, de standaard tekst en de bijlage.
Zet vervolgens een CommandButton in je bestand en hang daar deze code onder.
Klaar is kees!
Indien je meerdere adressen wilt toevoegen dan scheidt je deze met een ;
Succes!
Wanneer je b.v. een Excel bestand elke dag of week moet opleveren is het soms vervelend om:
- Elke keer je e-mail te openen
- Klikken op "Nieuw Bericht"
- De namen van de ontvanger in te voeren (misschien zijn het er wel 5)
- Vervolgens je inmiddels standaard tekst te typen
- En als laatste niet te vergeten je bestand bij te voegen. Stel je voor dat je het verkeerde bestand verzend.
Onderstaand script doet alle bovengenoemde handelingen voor je. Het enige wat je zelf moet doen is eenmalig de adressen toevoegen, de standaard tekst en de bijlage.
Zet vervolgens een CommandButton in je bestand en hang daar deze code onder.
Klaar is kees!
Code:
Private Sub CommandButton1_Click()
With CreateObject("Outlook.Application").createitem(olMailItem)
.To = "Voorbeeld@1.nl"
.cc = "Voorbeeld@2.nl"
.Subject = "Voorbeeld"
.body = Replace("Geachte mevrouw/heer,#Hierbij het gevraagde bestand.#Zie voor nadere informatie de bijlage.#Met vriendelijke groet, Ralph###", "#", vbCr)
.Attachments.Add "C:\test.pdf"
.Send
End With
End Sub
Indien je meerdere adressen wilt toevoegen dan scheidt je deze met een ;
Succes!