Méthode DistListItem.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 DistListItem .

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 = 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

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.DistListItem 
 
 Set MyItem = Application.CreateItem(olDistributionListItem) 
 MyItem.Subject = "Status Report" 
 MyItem.Display 
 MyItem.SaveAs Environ("HOMEPATH") & "\My Documents\statusrep.oft", OlSaveAsType.olTemplate 
End Sub

Voir aussi

DistListItem, 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.

Partager via