Ik ben bezig met een erg simpel formuliertje. De Button werkt verder.
In het form worden checkboxes gebruikt. Deze heten ook Chk1 en Chk2.
Nu heb ik een script geschreven dat moet kijken welk vakje is afgevinkt en daarop dan een bepaalde mail verzenden.
Ik krijg echter een foutmelding die luidt:
System.NullReferenceException: Object reference not set to an instance of an object.
Mijn script ziet er als volgt uit:
Sub Button_Click ( sender As Object, e As EventArgs)
Dim Chk1 As CheckBox
Dim Chk2 As CheckBox
If Chk1.checked Then //DIT MARKEERT HIJ ALS FOUT
Dim SendMail As MailMessage
SendMail = New MailMessage
With SendMail
.From = email.Text
.To = "xaio@wanadoo.nl"
.Subject = "Aanmelden voor nieuwsbrief spectaculaire aanbiedingen via mailing"
.Body ="De heer heeft zichzelf aangemeld om op de hoogte te worden gehouden over andere spectaculaire aanbiedingen van Quipment."
End With
SmtpMail.Send(SendMail)
ElseIf Chk2.checked Then
Dim SendMail As MailMessage
SendMail = New MailMessage
With SendMail
.From = email.Text
.To = "xaio@wanadoo.nl"
.Subject = "Aanmelden voor nieuwsbrief spectaculaire aanbiedingen via mailing"
.Body ="De heer heeft zichzelf aangemeld voor de Quipment nieuwsbrief."
End With
SmtpMail.Send(SendMail)
End If
End Sub
Weet iemand hoe dit op te lossen is?
In het form worden checkboxes gebruikt. Deze heten ook Chk1 en Chk2.
Nu heb ik een script geschreven dat moet kijken welk vakje is afgevinkt en daarop dan een bepaalde mail verzenden.
Ik krijg echter een foutmelding die luidt:
System.NullReferenceException: Object reference not set to an instance of an object.
Mijn script ziet er als volgt uit:
Sub Button_Click ( sender As Object, e As EventArgs)
Dim Chk1 As CheckBox
Dim Chk2 As CheckBox
If Chk1.checked Then //DIT MARKEERT HIJ ALS FOUT
Dim SendMail As MailMessage
SendMail = New MailMessage
With SendMail
.From = email.Text
.To = "xaio@wanadoo.nl"
.Subject = "Aanmelden voor nieuwsbrief spectaculaire aanbiedingen via mailing"
.Body ="De heer heeft zichzelf aangemeld om op de hoogte te worden gehouden over andere spectaculaire aanbiedingen van Quipment."
End With
SmtpMail.Send(SendMail)
ElseIf Chk2.checked Then
Dim SendMail As MailMessage
SendMail = New MailMessage
With SendMail
.From = email.Text
.To = "xaio@wanadoo.nl"
.Subject = "Aanmelden voor nieuwsbrief spectaculaire aanbiedingen via mailing"
.Body ="De heer heeft zichzelf aangemeld voor de Quipment nieuwsbrief."
End With
SmtpMail.Send(SendMail)
End If
End Sub
Weet iemand hoe dit op te lossen is?