Sub addto_emaildata
answ = Msgbox2("We may from time to time email you about other products, services and activities (seminars, competitions, promotions, etc). Is this OK ?", "Email Permissions", "Yes", "", "No", Null)
If answ = DialogResponse.POSITIVE Then 'if yes, save email
List1.Add(firstnamecorp.Text & " " & lastnamecorp.Text & " - " & emailcorp.Text)
File.WriteList(File.DirRootExternal, "SLREmailsList.txt", List1)
Else 'don't save email address Default is NO
List1.Add(firstnamecorp.Text & " " & lastnamecorp.Text & " - " & "Email Withheld")
File.WriteList(File.DirRootExternal, "SLREmailsList.txt", List1)
End If
Log ("Done")
End Sub