hee ik heb een vraagje,
ik heb een functie gemaakt voor het versturen van email, maar deze functie werkt maar 1 keer, de msgbox die erin staat werk wel gewoon maar het versturen van de email kan maar 1 keer, dan moet de db opnieuw op worden gestart en dan werkt het wel weer.......
weet iemand hoe dat komt??
dit is de code
als het niet duidelijk is hoor ik het graag
alvast bedankt
grtz koosie
ik heb een functie gemaakt voor het versturen van email, maar deze functie werkt maar 1 keer, de msgbox die erin staat werk wel gewoon maar het versturen van de email kan maar 1 keer, dan moet de db opnieuw op worden gestart en dan werkt het wel weer.......
weet iemand hoe dat komt??
dit is de code
Code:
Function SendMail(VerlofNr As Integer)
Dim PersID As Integer
Dim Email As String
Dim Subject As String
Dim Inhoud As String
PersID = Forms!FrmSession!Tekst0
If DLookup("Groep", "TblPersonen", "PersID=" & PersID) = "Users" Then
Email = DLookup("Naam", "TblPersonen", "Groep='Mangement' AND AfdelingID=" & DLookup("AfdelingID", "TblPersonen", "PersID=" & PersID))
Else
Email = DLookup("Naam", "TblPersonen", "PersID=" & DLookup("HfdID", "TblAfdelingen", "AfdelingsID=" & DLookup("AfdelingID", "TblPersonen", "PersID=" & PersID)))
End If
Inhoud = _
"Hee " & Email & "," & Chr(13) & Chr(13) & DLookup("Naam", "TblPersonen", "PersID=" & PersID) & " heeft een verlof aanvraag gedaan." & Chr(13) & "Het verlof nummer is " & VerlofNr & ", dit is nodig om het verlof goed te keuren." & Chr(13) & Chr(13) & "Groetjes"
Subject = "Verlof aanvraag"
Const lpCaption = "Microsoft Outlook"
DoCmd.SendObject , , acFormatRTF, Email, , , Subject, Inhoud, True
MsgBox ("Aanvraag onderweg")
End Function
als het niet duidelijk is hoor ik het graag
alvast bedankt
grtz koosie