Méthode ContactItem.SaveAs (Outlook)

Article
04/07/2023

Enregistre l’élément Microsoft Outlook dans le chemin d’accès spécifié et dans le format du type de fichier spécifié. Si le type de fichier n’est pas spécifié, le format message (.msg) est utilisé.

Syntaxe

expression. SaveAs (Path, Type)

Expression Variable qui représente un objet ContactItem .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Path	Obligatoire	String	Le chemin d’accès dans lequel enregistrer l’élément.
Type	Facultatif	Variant	Type de fichier à enregistrer. Il peut s’agir de l’une des constantes OlSaveAsType suivantes : olHTML, olMSG, olRTF, olTemplate, olDoc, olTXT, olVCal, olVCard, olICal ou olMSGUnicode.

Remarques

Notez également que même si olDoc est une constante OlSaveAsType valide, les messages au format HTML ne peuvent pas être enregistrés au format Document, et la constante olDoc fonctionne uniquement si Microsoft Word est configuré comme éditeur de messagerie par défaut.

Exemple

Cet exemple Visual Basic pour Applications (VBA) utilise la méthode SaveAs pour enregistrer l’élément actuellement ouvert sous forme de fichier texte dans le dossier Documents, en utilisant l’objet comme nom de fichier. Pour exécuter ce code, vérifiez que la fenêtre active contient un élément de courrier ouvert au format texte brut.

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

Cet exemple Visual Basic pour Applications vous montre comment créer un modèle à l’aide de la méthode 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

Voir aussi

ContactItem, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partage via