Goedemiddag Forum gebruikers,
Voor een tijdje terug heb ik een geweldige code gekregen om een mail te versturen naar diverse mensen. nu wil ik deze code daadwerkelijk gaan toepassen en loop ik tegen een aantal problemen op.
ik heb een query gemaakt die de gegevens toevoegt aan een tabel. In die tabel komt 1,2,3 te staan. via een andere tabel laat ik dat veranderen in E-mail adressen. in het rapport wat ik heb gemaakt zijn de mail adressen ook gewoon zichtbaar. echter als ik op de knop voor mailen druk dan veranderen de mail adressen in de waarde 1;2;3.
Hoe kan ik voorkomen dat er 1;2;3 komt te staan maar gewoon mail adressen?
onderstaand de code
Met vriendelijke groet,
Jac
Voor een tijdje terug heb ik een geweldige code gekregen om een mail te versturen naar diverse mensen. nu wil ik deze code daadwerkelijk gaan toepassen en loop ik tegen een aantal problemen op.
ik heb een query gemaakt die de gegevens toevoegt aan een tabel. In die tabel komt 1,2,3 te staan. via een andere tabel laat ik dat veranderen in E-mail adressen. in het rapport wat ik heb gemaakt zijn de mail adressen ook gewoon zichtbaar. echter als ik op de knop voor mailen druk dan veranderen de mail adressen in de waarde 1;2;3.
Hoe kan ik voorkomen dat er 1;2;3 komt te staan maar gewoon mail adressen?
onderstaand de code
Met vriendelijke groet,
Jac
Code:
Private Sub Knop75_Click()
On Error GoTo Err_OF
Dim sEmail As String
Dim iAantal As Integer, i As Integer
sEmail = ""
With CurrentDb.OpenRecordset("gastbewerken query")
If Not .RecordCount = 0 Then
.MoveLast
.MoveFirst
iAantal = .RecordCount
Do While Not .EOF
sEmail = sEmail & .Fields("mail").Value
If i < iAantal Then sEmail = sEmail & ";"
i = i + 1
.MoveNext
Loop
End If
End With
DoCmd.SendObject acReport, "routeoverzicht", "PDFFormat(*.pdf)", sEmail, "", "", "Naam", "hopende u zo voldoende te hebbeb geinformeerd"
Exit_OF:
Exit Sub
Err_OF:
MsgBox "De E-mail is niet verstuurd. U dient de opdracht nog een keer uit te voeren", , "E-Mail niet verzonden"
Resume Exit_OF
End Sub
Laatst bewerkt: