<CategoryAttribute("Security")>
<DescriptionAttribute("Raised when a certificate has been requested to send for verification.")>
Public Event CertificateRequested As EventHandler

Dim instance As Pop
Dim handler As EventHandler
 
AddHandler instance.CertificateRequested, handler

[CategoryAttribute("Security")]
[DescriptionAttribute("Raised when a certificate has been requested to send for verification.")]
public event EventHandler CertificateRequested

[CategoryAttribute("Security")]
[DescriptionAttribute("Raised when a certificate has been requested to send for verification.")]
public: __event EventHandler* CertificateRequested

[CategoryAttribute("Security")]
[DescriptionAttribute("Raised when a certificate has been requested to send for verification.")]
public:
event EventHandler^ CertificateRequested

' Be sure to import the namespace by putting "Imports Dart.PowerTCP.Mail"
' at the top of your class.

Private Sub PopSSLTest()

   ' Use explicit SSL
   Pop1.Security = Dart.PowerTCP.Mail.Security.Explicit;
   
   ' Automatically remove files after getting them from the server
   Pop1.AutoDelete = True

   ' Login. The default settings will cause the Pop component to
   ' automatically retrieve all messages, delete them from the
   ' server, and logout.
   Pop1.Login("mail.test.com", "testuser", "testpass")

   ' All message retrieved. Iterate through the collection
   ' and display data.
   Dim msg As PopMessage
   For Each msg In Pop1.Messages
      Debug.WriteLine("Message ID: " + msg.Id)
      Debug.WriteLine("Message UID: " + msg.Uid)
      Debug.WriteLine("Messge Size: " + msg.Size)
      Debug.WriteLine("From: " + msg.Message.From.Address)
      Debug.WriteLine("Subject: " + msg.Message.Subject)
   Next
End Sub

Private Sub Pop1_CertificateReceived(ByVal sender As Object, e As Dart.PowerTCP.Mail.CertificateReceivedEventArgs) Handles Pop1.CertificateReceived
   Dim msg As String = ""

   ' Check to see if the certificate is from a trusted root.
   If Not e.TrustedRoot Then
      msg += "This certificate is not from a trusted root" + vbCrLf
   End If

   ' Check to see if the certificate has a valid date.
   If Not e.ValidDate Then
      msg += "This certificate does not have a valid date" + vbCrLf
   End If

   ' Check to see if the certificate has a valid name.
   If Not e.ValidName Then
      msg += "This certificate does not have a valid name" + vbCrLf
   End If
   
   If msg <> "" Then
      msg += "Would you like to accept this certificate anyway?"
      If MessageBox.Show(msg, "Invalid Cert Received", MessageBoxButtons.YesNo) = DialogResult.Yes Then
         ' User wants to accept the invalid cert. Accept it.
         e.Accept = True
      End If
   End If
End Sub

Private Sub Pop1_CertificateRequested(ByVal sender As Object, e As EventArgs) Handles Pop1.CertificateRequested
   ' Create a new instance of CertificateListForm
   Dim certForm as new CertificateListForm(True, True)
   certForm.Text = "The Server Requested A Client Certificate"

   ' Show the CertificateListForm to the user and let them choose a certificate
   If certForm.ShowDialog() = DialogResult.OK Then
      ' Set the Certificate property to the certificate the user selected.
      Pop1.Certificate = certForm.SelectedCertificate
   Else
      MessageBox.Show("You must select a cert. SSL communication will fail.")
   End If
End Sub

// Be sure to import the namespace by putting "using Dart.PowerTCP.Mail;"
// at the top of your class.

private void PopSSLTest()
{
   // Use explicit SSL
   pop1.Security = Dart.PowerTCP.Mail.Security.Explicit;
   
   // Automatically remove files after getting them from the server
   pop1.AutoDelete = true;

   // Login. The default settings will cause the Pop component to
   // automatically retrieve all messages, delete them from the
   // server, and logout.
   pop1.Login("mail.test.com", "testuser", "testpass");

   // All message retrieved. Iterate through the collection
   // and display data.
   foreach(PopMessage msg in pop1.Messages)
   {
      Debug.WriteLine("Message ID: " + msg.Id);
      Debug.WriteLine("Message UID: " + msg.Uid);
      Debug.WriteLine("Messge Size: " + msg.Size);
      Debug.WriteLine("From: " + msg.Message.From.Address);
      Debug.WriteLine("Subject: " + msg.Message.Subject);
   } 
}

private void pop1_CertificateReceived(object sender, Dart.PowerTCP.Mail.CertificateReceivedEventArgs e)
{
   string msg = "";

   // Check to see if the certificate is from a trusted root.
   if(!e.TrustedRoot)
      msg+= "This certificate is not from a trusted root\n";

   // Check to see if the certificate has a valid date.
   if(!e.ValidDate)
      msg+= "This certificate does not have a valid date\n";

   // Check to see if the certificate has a valid name.
   if(!e.ValidName)
      msg+= "This certificate does not have a valid name\n";

   if(msg != "")
   {
      msg += "Would you like to accept this certificate anyway?";
      if(MessageBox.Show(msg, "Invalid Cert Received", MessageBoxButtons.YesNo) == DialogResult.Yes)
      {
         // User wants to accept the invalid cert. Accept it.
         e.Accept = true;
      }
   }
}

private void pop1_CertificateRequested(object sender, System.EventArgs e)
{
   // Create a new instance of CertificateListForm
   CertificateListForm certForm = new CertificateListForm(true, true);
   certForm.Text = "The Server Requested A Client Certificate";

   // Show the CertificateListForm to the user and let them choose a certificate
   if(certForm.ShowDialog() == DialogResult.OK)
   {
      // Set the Certificate property to the certificate the user selected.
      pop1.Certificate = certForm.SelectedCertificate;
   }
   else
   {
      MessageBox.Show("You must select a cert. SSL communication will fail.");
   }
}