Signer, propriété
...
Cette propriété renvoie un objet de type
String représentant le nom de la personne qui a joint le certificat numérique correspondant à l'objet
Signature au document. Type de données en lecture seule.
expression.
Signer
expression Obligatoire. Expression qui renvoie l'un des objets de la liste S'applique à.
Exemple
L'exemple suivant montre comment inviter l'utilisateur à sélectionner une signature numérique avec laquelle signer le document actif dans Microsoft Word. Pour utiliser cet exemple, ouvrez un document dans Word et transmettez à cette fonction le nom d'un émetteur de certificat et le nom d'un signataire de certificat correspondant aux champs
Émis par et
Délivré à d'un certificat numérique dans la boîte de dialogue
Certificats numériques. Cet exemple montre comment vérifier que la signature numérique que l'utilisateur sélectionne répond à certains critères, comme une date d'expiration non dépassée, avant que la nouvelle signature soit appliquée au lecteur.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| Function AddSignature(ByVal strIssuer As String, _
strSigner As String) As Boolean
On Error GoTo Error_Handler
Dim sig As Signature
'Affiche la boîte de dialogue qui permet
'à l'utilisateur d'ajouter une signature digitale.
'S'il sélectionne une signature, celle-ci
'est alors ajoutée à la collection Signatures.
'Sinon, une erreur se produit.
Set sig = ActiveDocument.Signatures.Add
'Tester plusieurs propriétés avant d'inscrire l'objet
'Signature sur disque.
If sig.Issuer = strIssuer And _
sig.Signer = strSigner And _
sig.IsCertificateExpired = False And _
sig.IsCertificateRevoked = False And _
sig.IsValid = True Then
MsgBox "Signée"
AddSignature = True
'Sinon, enlever l'objet Signature de la collection
'SignatureSet.
Else
sig.Delete
MsgBox "Non signée"
AddSignature = False
End If
'Inscrire toutes les signatures de la collection
'SignatureSet sur disque.
ActiveDocument.Signatures.Commit
Exit Function
Error_Handler:
AddSignature = False
MsgBox "Action annulée."
End Function |