Excel sheet direct e-mailen

Status
Niet open voor verdere reacties.

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!

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!
 
Maar ik wil maar één Excel-werkblad mailen met Windows Live Mail.
Kun jij zeggen hoe je dat doet?

Vast bedankt, Ed
 
Voeg
Code:
Activesheet.Copy
toe als eerste regel van de module.
eventueel nadeel is wel dat je dan een "Map1.xls' per mail verzend..
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan