次の方法で共有

SharingItem.SaveAs メソッド (Outlook)

  • [アーティクル]

SharingItem を、指定したパスに、指定したファイルの種類の形式で保存します。 ファイルの種類を指定しない場合は、MSG 形式 (.msg) が使用されます。

構文

式。SaveAs (パス、 型)

式SharingItem オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
パス 必須 String アイテムを保存するパスを指定します。
Type 省略可能 バリアント型 (Variant) 保存するファイルの種類です。 olHTML、olMSG、olRTF、olTemplate、olDoc、olTXT、olVCal、olVCard、olICal、olMSGUnicode のいずれかの OlSaveAsType 定数を指定できます。

注釈

ことに注意して olDoc は、有効な OlSaveAsType 定数、文書の形式に HTML 形式のメッセージを保存することはできませんし、 olDoc 定数を有効にする既定の電子メール エディターとして Microsoft Word が設定されます。

例

この Visual Basic for Applications (VBA) の例では、ファイルの名前と件名を使用して、[ドキュメント] フォルダー内のテキスト ファイルとして、現在開いているアイテムを保存するのに SaveAs メソッドを使用します。 次の使用例を実行するには、プレーン テキスト形式のメール アイテムを作業中のウィンドウで開いていることを確認します。

Sub SaveAsTXT() 
 
 Dim myItem As Outlook.Inspector 
 
 Dim objItem As Object 
 
 
 
 Set myItem = Application.ActiveInspector 
 
 If Not TypeName(myItem) = "Nothing" Then 
 
 Set objItem = myItem.CurrentItem 
 
 strname = objItem.Subject 
 
 'Prompt the user for confirmation 
 
 Dim strPrompt As String 
 
 strPrompt = "Are you sure you want to save the item? " & _ 
 
 "If a file with the same name already exists, " & _ 
 
 "it will be overwritten with this copy of the file." 
 
 If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then 
 
 objItem.SaveAs Environ("HOMEPATH") & "\My Documents\" & strname & ".txt", olTXT 
 
 End If 
 
 Else 
 
 MsgBox "There is no current active inspector." 
 
 End If 
 
End Sub

関連項目

SharingItem オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。