E-mailen vanuit access

[FS1]

Uit een tabel met klanten inclusief E-mail adressen wil ik dmv aanvinken een selectie maken en hierna Outlook opstarten waarbij de E-mail adressen van de aangevinkte klanten ingevuld staan bij Aan. Kom er niet achter hoe ik dit moet aanpakken. Alvast bedankt voor de goede tip

 

[ilse DD]

type

Kies in de ontwerpweergave van je tabel bij dat veld "hyperlink" ipv tekst

als je hierop klikt denkt access standaard dat het een website is

MAAR als je "MAILTO: " voor elk e-mail adres ingeeft doet hij dit correct

 

[davevanderkist]

Dit is toch niet gebruiksvriendelijk. je kan het veel beter doormiddel van een code doen. Ik ben er zelf net mee bezig, hoe het met aanvinken zit weet ik nog niet. Maar met deze code stuur je de hele recorset een mail:
Private Sub Knop47_Click()

Dim Db As DAO.Database
Dim rst As DAO.Recordset
Dim strMailAdres As String

'datbase en recordset instellen
Set Db = CurrentDb()
Set rst = Db.OpenRecordset("tabel", dbOpenDynaset)

'email instellen
Do While Not rst.EOF
strMailAdres = strMailAdres & ";" & rst!Email
rst.MoveNext
Loop
rst.Close

'kopieren email naar outlook
strMailAdres = Right(strMailAdres, Len(strMailAdres) - 1)

On Error GoTo SendMail_Err

DoCmd.SendObject , , acFormatTXT, strMailAdres, , , "Onderwerp vul je hier ", "Mailbericht vul je hier ", True

'foutmeldingen
SendMail_Err_Exit:
Exit Sub

SendMail_Err:
If Err = 2501 Then
Else
MsgBox Err.Description, vbOKOnly + vbExclamation, "Probleem"
End If


End Sub

 

[ilse DD]

ja maar

Mooie code, maar

DAO is vanaf 2000 versie niet ideaal, je werkt hier beter met ADO.

 

[davevanderkist]

Ok jij je zin, hier heb je ADO als je het zo graag wil.


Private Sub Knop47_Click()

Dim rst As New ADODB.Recordset
rst.Open "tabel", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim strMailAdres As String

'datbase en recordset instellen
Set Db = CurrentDb()


'email instellen
Do While Not rst.EOF
strMailAdres = strMailAdres & ";" & rst!Emailveld
rst.MoveNext
Loop
rst.Close

'kopieren email naar outlook
strMailAdres = Right(strMailAdres, Len(strMailAdres) - 1)

On Error GoTo SendMail_Err

DoCmd.SendObject , , acFormatTXT, strMailAdres, , , "Onderwerp vul je hier ", "Mailbericht vul je hier ", True

'foutmeldingen
SendMail_Err_Exit:
Exit Sub

SendMail_Err:
If Err = 2501 Then
Else
MsgBox Err.Description, vbOKOnly + vbExclamation, "Probleem"
End If


End Sub