mail naar meerdere personen uit DB sturen vanuit outlook

[Liesssaa]

Hallo!
Weet er iemand hoe ik via mijn outlook een mail kan sturen naar meerdere mensen die in mijn database staan?
of hoe ik vanuit mijn datbase gemakkelijke manier kan maken om een email te sturen naar meerdere mensen uit mijn database.
Ik hoop dat iemand mij kan helpen..

 

[DutchDisturbed]

gebruik outlook nooit maar met hotmail kan je mensen in een groep plaatsen en dan de mail naar de groep sturen.
neem aan dat dit ook met outlook moet kunnen en makkelijker....

 

[Liesssaa]

ghehe ja klopt ik heb ook ergens gelezen dat het kan maar weet niet hoe..
Wij werken hier allemaal met outlook dus hotmail is helaas geen optie..
Hoe maak jij groepen dan?!

 

[DEWCAP]

Kijk even op deze site www.helenfeddema.com. Daar zal je enkele voorbeeld databases vinden die aan je vraag beantwoorden.

 

[ReneDirks]

And hello again Lisa Ik heb van de week een stukje gepost over CDOSYS, geloof me, dat is je oplossing

 

[Robertflink]

Zoek in help : Maken van distributielijsten Zoeken onder distributielijsten

 

[Liesssaa]

And hello again Lisa Ik heb van de week een stukje gepost over CDOSYS, geloof me, dat is je oplossing

Waar kan ik dat stukje vinden?\

mijne vind nix als ik zoek op maken van distributielijsten

 

[Robertflink]

Klik op kontaktpersonen, ga naar akties en dan nieuwe distributielijst

 

[Liesssaa]

uh oke.. ik ben niet zo denderend.. waar kan ik contactpersonen vinden dan?!

 

[Robertflink]

Bovenin staat ga naar 4e optie van links, klik hierop en kies contactpersonen en volg dan mijn vorig antwoord. (Je hebt toch Outlook 2003?) Zie plaatje

 

[Robertflink]

Bovenin staat ga naar 4e optie van links, klik hierop en kies contactpersonen en volg dan mijn vorig antwoord. (Je hebt toch Outlook 2003?) Zie plaatje

En anders ga naar http://www.google.com/search?source=ig&hl=nl&rlz=&q=distributielijst+outlook&meta=

 

[Liesssaa]

Ah hmm.. daar gaat het al mis.. ik heb geen ga naar
bij mij staand er vlnr
bestand bewerken beeld invoegen extra venster help

 

[Robertflink]

Welke versie heb je dan, ga naar help klik op info

 

[Liesssaa]

2000
zou het niet kunnen dat je zelf een keer de knop ga naar hebt aan gemaakt?

 

[Robertflink]

Ga dan toch maar naar http://www.google.com/search?source=ig&hl=nl&rlz=&q=distributielijst+outlook&meta=

 

[Liesssaa]

Dit gaat allemaal over outlook. Er wordt nergens vertelt hoe ik de gegevens uit access kan halen..

 

[Robertflink]

Dit gaat allemaal over outlook. Er wordt nergens vertelt hoe ik de gegevens uit access kan halen..

Sorry niet begrepen dat je uit Access wilde importeren

 

[ReneDirks]

En dus kom je toch weer uit bij de eerder genoemde CDOSYS.. Ik ben nu nog even bij een klant, laat je straks de code wel even zien.

 

[Liesssaa]

Jaa super

 

[ReneDirks]

Hoi Lisa,
Om te beginnen moet je in Extra/Verwijzingen een referentie naar CDOSYS instellen.
Dan kun je een functie SendMail schrijven (behoudens typefouten)

Public Sub SendEMail()

Dim rstMail As DAO.Recordset   'dit zijn de adressen waar je naar wilt sturen
Dim strSubject As String
Dim strText As String
Dim objMail As New CDO.Message
Dim strRecipient As String
Dim strSender as String

'Dit stukje is alleen om ervoor te zorgen dat je een eigen smtp server kan kiezen
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2   'use smtp
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.nl"
objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMail.Configuration.Fields.Update

strSubject = "Dit is het onderwerp"
strSender = "MijnNaam@helpmij.nl"
strText = "Dit is de mail tekst"

Set rstMail = currentDB.OpenRecordset("SELECT Naam, Email FROM TBL_Gebruikers")

If rstMail.RecordCount <> 0 Then
  rstMail.MoveFirst
  while not rstMail.EOF
        objMail.To= rstMail("Email")
        objMail.TextBody = strText
        objMail.Subject = strSubject
        objMail.Send
        rstMail.MoveNext
  wend
end if
Set objMail = Nothing
set rstMail = Nothing