Pgp

Dim msg As New jmail.Message
Dim Attachments As New jmail.Attachments
Dim att As New jmail.Attachment
Dim cle As String
Dim keys As New jmail.PGPKeys
Dim i As Integer

Try
   msg.Logging = True
   msg.Silent = True
   msg.From = "blabla@bla.fr"
   msg.FromName = "moi"
   msg.AddRecipient("blabla@bla.fr")
   msg.Subject = "Test cryptage"
   msg.Body = "J'essaye de crypter la piece jointe"

   att.[New]("ma piece jointe")
   msg.PGPPassphrase = "**********"
   msg.Attachments.Add(att)
   msg.PGPEncrypt = True

   If Not msg.Send("195.7.111.1") Then
      MsgBox(msg.Log)
   Else
      MsgBox("Message sent succesfully!")
   End If

   Catch
   MsgBox(Err.Number & " " & Err.Description)
End Try