ContactItem.RemovePicture-Methode (Outlook)

Entfernt ein Bild aus einem Contacts-Element.

Syntax

Ausdruck. RemovePicture

Ausdruck Eine Variable, die ein ContactItem-Objekt darstellt.

Beispiel

Im folgenden Beispiel für Microsoft Visual Basic für Applikationen (VBA) wird der Benutzer aufgefordert, den Namen eines Kontakts anzugeben, und es wird das Bild aus dem Kontaktelement entfernt. Ist für den Kontakt kein Bild vorhanden, wird in dem Beispiel eine Meldung für den Benutzer angezeigt.

Sub RemovePictureFromContact() 
 
 Dim myNms As Outlook.NameSpace 
 
 Dim myFolder As Outlook.Folder 
 
 Dim myContactItem As Outlook.ContactItem 
 
 Dim strName As String 
 
 Dim strPath As String 
 
 Dim strPrompt As String 
 
 
 
 Set myNms = Application.GetNamespace("MAPI") 
 
 Set myFolder = myNms.GetDefaultFolder(olFolderContacts) 
 
 strName = InputBox("Type the name of the contact: ") 
 
 Set myContactItem = myFolder.Items(strName) 
 
 If myContactItem.HasPicture = False Then 
 
 MsgBox "The contact does not have a picture associated with it." 
 
 Else 
 
 myContactItem.RemovePicture 
 
 myContactItem.Save 
 
 myContactItem.Display 
 
 End If 
 
End Sub

Siehe auch

ContactItem-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.