als textbox1 toch leeg blijft dan geeft hij geen melding meer wanneer ik nee klikt en er toch nog andere textboxen leeg zijn.
hoe kan ik NO het pad laten vervolgen?
hoe kan ik NO het pad laten vervolgen?
Code:
Sub kontaktpersoon_nieuw()
With CreateObject("Outlook.Application").CreateItem(2)
.FirstName = UserForm2.TextBox1.Value
If UserForm2.TextBox1.Text = "" Then
MsgBox "The texbox1 er is geen VOORLETTER ingevuld, stoppen?", vbYesNo
If vbYes Then Exit Sub
.MiddleName = UserForm2.TextBox2.Value
.LastName = UserForm2.TextBox3.Value
If UserForm2.TextBox3.Text = "" Then
MsgBox "The texbox3 er is geen ACHTERNAAM ingevuld, stoppen?", vbYesNo
If vbYes Then Exit Sub
.BusinessAddressStreet = UserForm2.TextBox4.Value
If UserForm2.TextBox4.Text = "" Then
MsgBox "The texbox4 er is geen ADRES ingevuld, stoppen?", vbYesNo
If vbYes Then Exit Sub
.BusinessAddressPostalCode = UserForm2.TextBox5.Value
If UserForm2.TextBox5.Text = "" Then
MsgBox "The texbox5 er is geen POSTCODE ingevuld, stoppen?", vbYesNo
If vbYes Then Exit Sub
.BusinessAddressCity = UserForm2.TextBox6.Value
If UserForm2.TextBox6.Text = "" Then
MsgBox "The texbox6 er is geen PLAATS ingevuld, stoppen?", vbYesNo
If vbYes Then Exit Sub
.HomeTelephoneNumber = UserForm2.TextBox7.Value
.MobileTelephoneNumber = UserForm2.TextBox8.Value
If UserForm2.TextBox8.Text = "" Then
MsgBox "The texbox8 er is geen 06 NUMMER ingevuld, stoppen?", vbYesNo
If vbYes Then Exit Sub
.BusinessTelephoneNumber = UserForm2.TextBox9.Value
.Email1Address = UserForm2.TextBox10.Value
If UserForm2.TextBox10.Text = "" Then
MsgBox "The texbox10 er is geen Email ingevuld, stoppen?", vbYesNo
If vbYes Then Exit Sub
.Email2Address = UserForm2.TextBox11.Value
.Save
End If
End If
End If
End If
End If
End If
End If
End With
MsgBox "Successfully Exported Worksheet Data to the Default Outlook Contacts Folder."
On Error Resume Next
For Each TextBox In UserForm2.Controls
TextBox.Value = ""
Next
UserForm2.Hide
End Sub