geautomatiseerd mailen vanuit excel

Voorbereidingen in EXCEL :

  1. open EXCEL
  2. EXTRA > MACRO > VISUAL BASIC EDITOR
  3. de editor wordt geopend
  4. EXTRA > VERWIJZINGEN
  5. Microsoft Office xx.xx Object Library aanvinken (*) en (**)
  6. klik op OK
  7. EXTRA >à VERWIJZINGEN
  8. Microsoft Office Outlook View Control  aanvinken (*)
  9. Klik op OK
  10. EXTRA > VERWIJZINGEN
  11. Microsoft Outlook xx.xx Object Library  aanvinken (*) en (**)
  12. Klik op OK

(*) : indien nog niet aangevinkt

(**) : xx.xx is de versie van office dat ge hebt (11.0 = Office 2003,12.0 = Office 2007 en 14.0 is Office 2010 (merk op dat versie 13.0 niet bestaat)

Werkwijze :

Maak voor elke bestemmeling een knop aan.

Maak voor elke bestemmeling een module aan, waarbij je elke keer een kleinigheid aanpast.

Koppel vervolgens de module aan elke knop.

De code :

Sub VerstuurMail_16()

Dim objxx As Outlook.Application

Dim objNamespace As Outlook.Namespace

Dim objMAPIFolder As Outlook.MAPIFolder

Dim objMail As Object

Set objxx = Outlook.Application ‘Start Outlook

On Error Resume Next

Set objNamespace = objOl.GetNamespace(Type:=”MAPI”)

If Err <> 0 Then

Set objOl = New Outlook.Application ‘Zo nee: start Outlook

Set objNamespace = objOl.GetNamespace(Type:=”MAPI”)

End If

Set objMAPIFolder = objNamespace.GetDefaultFolder(16)

‘Folder voor Concepten wordt geselecteerd

Set objMail = objOl.CreateItem(olMailItem) ‘Maakt e-mailbericht

‘olMailItem kunt u ook vervangen door 0 (de code voor een e-mailbericht)

With objMail

.To = “erik@eena.be” ‘Deze moet je natuurlijk veranderen

‘.CC = “cc@eena.be” ‘Deze moet je veranderen of weglaten

‘.BCC = “bcc@eena.be” ‘Deze moet je veranderen of weglaten

.Subject = “maandelijks overzicht” (of een ander onderwerp, uiteraard)

.Body = “Collega’s, In bijlage vinden jullie het overzicht van afgelopen maand.  Graag verwijs ik naar mijn vorige mail betreffende de interpretatie van de cijfers.  Met vriendelijke groeten, Erik”

.NoAging = True

.Attachments.Add “D:\Mijn documenten\\col16.xls” ‘De locatie van de bijlage

‘.Display ‘Laat e-mail zien voordat hij verzonden wordt

‘.Save ‘Voorkomt de vraag om op te slaan, slaat nu op in Concepten

.Send ‘Verzenden van e-mailbericht

End With

Set objMail = Nothing

objOl.Quit

Set objMAPIFolder = Nothing

Set objNamespace = Nothing

Set objOl = Nothing

End Sub

De cursieve teksten zijn stukjes die je zelf moet aanpassen.  Dit zal wel voor zich spreken.

About these ads

About erikservaes

Je weet wat er wat moet veranderen, maar je weet niet wat of hoe. Je bedrijf of organisatie zit in een verandertraject en je wil dat al je medewerkers dit niet als een bedreiging maar als een uitdaging en een opportuniteit gaan zien. Door coaching kan je deze veranderingen bewuster, met meer aandacht voor je medewerkers en jezelf, tot een goed einde brengen en je doelen en resultaten realiseren. Door coaching kan je je medewerkers overtuigen dat de verandering nodig is. Door coaching krijg je een beter beeld hoe je de verandering kan aanpakken. Door coaching kan je de obstakels op een goede manier aanpakken. Door coaching kan jij en je medewerkers enthousiast maken om mee te werken aan de verandering voor een betere persoonlijke (werk)omgeving.

One response to “geautomatiseerd mailen vanuit excel”

  1. Marc says :

    werkt voortreffelijk bedankt

Geef een reactie

Vul je gegevens in of klik op een icoon om in te loggen.

WordPress.com logo

Je reageert onder je WordPress.com account. Log uit / Bijwerken )

Twitter-afbeelding

Je reageert onder je Twitter account. Log uit / Bijwerken )

Facebook foto

Je reageert onder je Facebook account. Log uit / Bijwerken )

Google+ photo

Je reageert onder je Google+ account. Log uit / Bijwerken )

Verbinden met %s

Volg

Ontvang elk nieuw bericht direct in je inbox.

%d bloggers like this: