Entfernen Sie einen Kontakt aus den Kontaktgruppen in Outlook

594
louise

Kürzlich ist ein Kollege aus unserem Unternehmen ausgeschieden, und ich muss sie aus
allen Kontaktgruppen in meinem Outlook löschen .
Jeder Vorschlag wird geschätzt!
Gibt es einen einfachen Weg, dies zu tun?

0
Dies kann helfen, (Sie könnten die Outlook-Version hinzufügen usw.). mic84 vor 7 Jahren 0
Ich hoffe, das hilft (Sie hätten die Outlook-Version usw. hinzugefügt) Wenn Sie Kontakte in Ihrer Gruppe oder in Ihrer Kontaktliste löschen möchten, führen Sie die folgenden Schritte aus: So löschen Sie Kontakte in einer Gruppe: 1. Melden Sie sich bei http: // people an. live.com 2. Geben Sie den Gruppennamen in das Textfeld unter Alle ein. 3. Klicken Sie auf den Gruppennamen. 4. Klicken Sie in der orangefarbenen Leiste auf Bearbeiten. 5. Klicken Sie auf die X-Schaltfläche des Kontakts, den Sie entfernen möchten. 6. Klicken Sie auf Speichern. So löschen Sie Kontakte in der Kontaktliste: 1. Melden Sie sich bei http://people.live.com an. 2. Aktivieren Sie das Kontrollkästchen der Kontakte, die Sie löschen möchten. 3. Klicken Sie zweimal auf Löschen. Entschuldigung hat zu lange gedauert. mic84 vor 7 Jahren 0
Ich benutze outlook2010 (32bit) und danke! louise vor 7 Jahren 0

1 Antwort auf die Frage

0
harrymc

Das Löschen eines Kontakts aus allen Gruppen erfordert ein VBA-Makro.

Ein solches Makro wird ausführlich im Artikel Schnelles Entfernen eines bestimmten Kontakts aus allen Kontaktgruppen über Outlook VBA beschrieben .

In diesem Artikel wird beschrieben, wie ein solches Makro über die Registerkarte "Entwickler" / Visual Basic installiert wird und später über das Symbol "Ausführen" in der Symbolleiste ausgeführt werden kann.

Falls der Artikel später verschwindet, wird das VBA-Makro hier detailliert beschrieben:

Sub RemoveSpecificContactfromAllGroups() Dim strSpecificContact As String Dim objTempMail As Outlook.MailItem Dim objRecipient As Outlook.recipient Dim objContactsFolder As Outlook.Folder Dim objItem As Object Dim objContactGroup As Outlook.DistListItem Dim objContact As Outlook.ContactItem Dim nprompt As Integer  strSpecificContact = InputBox("Input the fullname or email address of the specific contact to be removed from all contact groups:") Set objTempMail = Outlook.Application.CreateItem(olMailItem) Set objRecipient = objTempMail.Recipients.Add(strSpecificContact) objRecipient.Resolve  If objRecipient.Resolved = True Then Set objContactsFolder = Outlook.Application.Session.GetDefaultFolder(olFolderContacts) For Each objItem In objContactsFolder.Items If TypeOf objItem Is DistListItem Then Set objContactGroup = objItem With objContactGroup .RemoveMember objRecipient .Body = "Contact Removed: " & strSpecificContact & vbTab & "(" & Now & ")" & .Body .Save End With End If Next nprompt = MsgBox("Removing Completes!", vbExclamation, "Remove Contact from Group") Else nprompt = MsgBox("This contact cannot be resolved!", vbExclamation, "Resolving Error") End If End Sub
Hi ， harrymc, es hilft wirklich viel, danke! louise vor 7 Jahren 0

Verwandte Probleme