次の方法で共有

Permission.Add メソッド

指定したユーザー用の現在のフォームで、指定したアクセス許可と有効期限日を使用し、新しいアクセス許可のセットを作成します。

名前空間: Microsoft.Office.Interop.InfoPath
アセンブリ: Microsoft.Office.Interop.InfoPath (microsoft.office.interop.infopath.dll 内)

構文

'宣言
<DispIdAttribute(2)> _
Function Add ( _
    <InAttribute> bstrUserId As String, _
    <InAttribute> <OptionalAttribute> varPermission As Object, _
    <InAttribute> <OptionalAttribute> varExpirationDate As Object _
) As UserPermissionObject
'使用
Dim instance As Permission
Dim bstrUserId As String
Dim varPermission As Object
Dim varExpirationDate As Object
Dim returnValue As UserPermissionObject

returnValue = instance.Add(bstrUserId, varPermission, varExpirationDate)

[DispIdAttribute(2)] 
UserPermissionObject Add (
    [InAttribute] string bstrUserId,
    [OptionalAttribute] [InAttribute] Object varPermission,
    [OptionalAttribute] [InAttribute] Object varExpirationDate
)

パラメータ

  • bstrUserId
    現在のフォームのアクセス許可を付与するユーザーの電子メール アドレス (user@___domain.com 形式)。必須。
  • varPermission
    現在のフォームで、1 つ以上の MsoPermission 値の組み合わせとして、指定したユーザーに付与するアクセス許可。オプション。
  • varExpirationDate
    System.DateTime 値で指定する、付与されるアクセス許可の有効期限日。オプション。

戻り値

指定したユーザーを表す UserPermissionObject。

コメント

varPermission パラメータを設定するために MsoPermission 列挙値にアクセスするには、Microsoft Visual Studio Tools for Applications (VSTA) または Visual Studio の [参照の追加] ダイアログ ボックスの [COM] タブを使用して、Microsoft Office 12.0 Object Library への参照を設定する必要があります。これにより、Microsoft.Office.Core 名前空間のメンバへの参照が確立されます。

例

次の例では、Add メソッドを使用して、フォームに新しいユーザーを追加し、そのユーザーに Full Control アクセス レベルを割り当てて、今日から 2 日後に有効期限日を設定しています。

この例では、フォーム モジュールの宣言セクションの Microsoft.Office.Core 名前空間に using ディレクティブまたは Imports ディレクティブが必要です。

_XDocument3 thisDoc = (_XDocument3)thisXDocument;

string strExpirationDate = DateTime.Today.AddDays(2).ToString();
DateTime dtExpirationDate = DateTime.Parse(strExpirationDate);

thisDoc.Permission.Add("someone@example.com",
   msoPermission.msoPermissionFullControl, dtExpirationDate);

Dim thisDoc As _XDocument3 = DirectCast(thisXDocument, _XDocument3)

Dim strExpirationDate As String = _
   DateTime.Today.AddDays(2).ToString()
dtExpirationDate As DateTime = DateTime.Parse(strExpirationDate)

thisDoc.Permission.UserPermissions.Add("someone@example.com", _
   msoPermission.msoPermissionFullControl, dtExpirationDate)

関連項目

参照

Permission インターフェイス
Permission のメンバ
Microsoft.Office.Interop.InfoPath 名前空間