Share via

ContactItem.SaveAs メソッド (Outlook)

  • [アーティクル]

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

構文

式。SaveAs (パス、 型)

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

パラメーター

名前 必須 / オプション データ型 説明
パス 必須 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 = myOlApp.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

この Visual Basic for Applications の例では、 SaveAs メソッドを使用してテンプレートを作成する方法を示します。

Sub CreateTemplate() 
    Dim MyItem As Outlook.ContactItem 

    Set MyItem = Application.CreateItem(olContactItem) 
    MyItem.Subject = "Status Report" 
    MyItem.Display 
    MyItem.SaveAs Environ("HOMEPATH") & "\My Documents\statusrep.oft", OlSaveAsType.olTemplate 
End Sub

関連項目

ContactItem オブジェクト

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

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