<div dir="ltr">

<p style="margin:0px;text-indent:0px;white-space:pre-wrap">Bonjour,</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">this function causes a segmentation error (11) and I do not understand why. Can we help?</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap"><br></p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">Public Function TestServeur() As Boolean                                                                                                              'test des paramètres de compte</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap"><br></p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     Dim POP1 As Pop3Client</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     Dim rep As Boolean</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap"><br></p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     rep = False</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     POP1 = New Pop3Client</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     POP1.host = txtServer.Text</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     POP1.User = txtUser.text</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     POP1.Password = txtPass.text</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     POP1.port = txtPort.text</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     POP1.Encrypt = IIf(chkSSL.value, 1, 0)</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap"><br></p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     Try POP1.Open</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap"><br></p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     If Not Error Then</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">          POP1.Close</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">          Message.Warning(("La connexion au serveur ") & " < " & POP1.host & " > " & (" est efficiente."))</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">          rep = True</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     Else</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">          Message.Warning(("La connexion au serveur ") & " < " & POP1.host & " > " & (" a échouée."))</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">          rep = False</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     Endif</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     POP1 = Null</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">     Return rep</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap"><br></p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap">End</p>
<p style="margin:0px;text-indent:0px;white-space:pre-wrap"><br></p><div><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div><br></div><div>Cordialement.<br></div><div><img src="https://drive.google.com/uc?id=1ntsEspENbsHbSVv7p3plBd40rFfvRuF2&export=download"><br></div><div>Philippe Valarcher<br></div><a href="mailto:valaquarus@gmail.com" target="_blank">valaquarus@gmail.com</a><br></div></div></div></div></div></div></div></div></div></div>