SignatureCreateDigitalID メソッド

デジタルIDを作成する。

Sub SignatureCreateDigitalID(IDFileName As String,
                             IDPassword As String,
                             Name As String,
                             Country As String,
                             OrganizationName As String,
                             OrganizationUnit As String,
                             Email As String,
                             KeyLength As prnSigKeyLength)

パラメータ

戻り値

なし

注意点

このメソッドはPKCS #12 (.pfx) フォーマット内に自己署名デジタルID ファイルを作成します。

同じファイル名を持つデジタルID が既に存在している場合、エラーが発生します。

使用例


Set oPrinter = CreateObject("easyPDF.Printer.7")

Set oPrintJob = oPrinter.PrintJob

Set oPDFSetting = oPrintJob.PDFSetting



' デジタルIDファイルを作成する (デジタルIDを持っていない場合のみ、この作業を実行してください)

oPDFSetting.SignatureCreateDigitalID "C:\my_digital_id.pfx",  _

                                     "password_here", _

                                     "John Smith", _

                                     "US", _

                                     "Organization Name", _

                                     "Organization Unit", _

                                     "My Email Address", _

                                     PRN_SIG_KEYLEN_1024



' デジタルIDから証明ファイルを取得する事ができます

' そして、あなたの署名済み文書を確認するために、証明ファイルを他の人が使用することが可能です

oPDFSetting.SignatureExportCertificate "C:\my_certificate.cer", _

                                       "C:\my_digital_id.pfx", _

                                       "password_here"



' 電子署名を有効にします

oPDFSetting.Signature = True



' デジタルIDファイルを設定します

oPDFSetting.SignatureDigitalIDFileName = "C:\my_digital_id.pfx"



' 署名の画像ファイルを挿入します

oPDFSetting.SignatureImage = True

oPDFSetting.SignatureImageFile = "C:\signature.bmp"

oPDFSetting.SignatureImagePosLeft = 1.0 ' 1.0 inch from left

oPDFSetting.SignatureImagePosTop = 1.0 ' 1.0 inch from top

oPDFSetting.SignatureImageZoom = 100 ' percent

oPDFSetting.SignatureInfoContact = "Contact info"

oPDFSetting.SignatureInfoLocation = "Location info"

oPDFSetting.SignatureInfoPurpose = "Purpose info"



' PDF 変換前にデジタルIDパスワードを設定します

oPrintJob.SignatureDigitalIDPassword = "password_here"



oPrintJob.PrintOut "C:\input.doc", "C:\output.pdf"