Ik wil in access graag een bijlage versturen via e-mail naar meerdere personen die in de database zijn opgeslagen. Nu heb ik op het forum gelezen dat je hiervoor emailsenate kunt gebruiken en deze dan kunt importeren in je eigen database. Dit heb ik inmiddels gedaan, maar krijg echter de volgende melding:
Compileerfout
Een door de gebruiker gedefineerd gegevenstype is niet gedefineerd
Visual basic geeft dan het volgende aan:
Private Sub Form_Open(Cancel As Integer) ------deze eerste regel is geel gemarkeerd-------
On Error GoTo Err_OF
Dim db As Database
Dim I As Integer
Dim contr As Container
Dim strRptList As String
Dim strRptName As String
Dim Length As Integer
Set db = CurrentDb()
Set contr = db.Containers("Reports")
strRptList = ""
For I = 0 To contr.Documents.Count - 1
strRptName = contr.Documents(I).name
If strRptList <> "" Then strRptList = strRptList & "; "
Length = Len(strRptName)
strRptList = strRptList & strRptName
Next I
Me!lstRpt.RowSource = strRptList
Exit_OF:
Exit Sub
Err_OF:
MsgBox Err & " " & Error, , "Report Open"
Resume Exit_OF
End Sub
Weet iemand wat ik hiermee moet doen om toch te zorgen dat ik kan e-mailen vanuit mijn database.
Alvast bedankt
p.s. heb emailsenate toegevoegd in de bijlage
Compileerfout
Een door de gebruiker gedefineerd gegevenstype is niet gedefineerd
Visual basic geeft dan het volgende aan:
Private Sub Form_Open(Cancel As Integer) ------deze eerste regel is geel gemarkeerd-------
On Error GoTo Err_OF
Dim db As Database
Dim I As Integer
Dim contr As Container
Dim strRptList As String
Dim strRptName As String
Dim Length As Integer
Set db = CurrentDb()
Set contr = db.Containers("Reports")
strRptList = ""
For I = 0 To contr.Documents.Count - 1
strRptName = contr.Documents(I).name
If strRptList <> "" Then strRptList = strRptList & "; "
Length = Len(strRptName)
strRptList = strRptList & strRptName
Next I
Me!lstRpt.RowSource = strRptList
Exit_OF:
Exit Sub
Err_OF:
MsgBox Err & " " & Error, , "Report Open"
Resume Exit_OF
End Sub
Weet iemand wat ik hiermee moet doen om toch te zorgen dat ik kan e-mailen vanuit mijn database.
Alvast bedankt
p.s. heb emailsenate toegevoegd in de bijlage