Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Outlook 2013 - Kontakte löschen - schützen

Frage Microsoft Microsoft Office

Mitglied: Chris1312

Chris1312 (Level 1) - Jetzt verbinden

10.06.2014, aktualisiert 21:38 Uhr, 2853 Aufrufe, 5 Kommentare, 1 Danke

Servus und hallo an alle,

ich habe mal eine völlig bescheuerte Frage aber ich glaube einige haben das gleiche Problem.
Ich suche nach einer Lösung Kontakte in Outlook 2013 vor dem Löschen mit der "ENTF-Taste" zu schützen.

Meine Vorstellung ist:
Entf-Taste Drücken und dann kommt nur bei den Kontakten die Frage: "Wollen Sie den Kontakt wirklich löschen?"....

Die Lösung mit "Shift + ENTF" ist mir bereits bekannt aber die ist nicht mein Ziel weil wenn sowas passiert der
Anwender auf die "ENTF" Taste drückt. Ich bin hier auf jeden Fall über jeden Tipp dankbar.

Der Haken ist bereits gesetzt:
"Datei / Optionen / Erweitert / (unter Weitere) ganz unten ist bereits der Haken gesetzt *Zur Bestätigung auffordern, bevor Elemente endgültig gelöscht werden*"

Gruß Chris

Mitglied: colinardo
LÖSUNG 10.06.2014, aktualisiert um 21:38 Uhr
Hallo Chris,
Entf-Taste Drücken und dann kommt nur bei den Kontakten die Frage: "Wollen Sie den Kontakt wirklich löschen?"....
mit VBA hätte ich da eine Lösung für Outlook:
ALT-F11 drücken und den folgenden Code in den VBA-Editor unter ThisOutlookSession oder DieseOutlookSitzung einfügen (zur Info: Makros müssen im Sicherheitscenter von Outlook aktiviert sein). Dann auf Speichern klicken, Outlook neu starten und über eine Sicherheitsabfrage vor dem Löschen von Kontakten freuen
01.
Dim WithEvents ol_ContactItem As ContactItem 
02.
Dim WithEvents ol_Explorer As Explorer 
03.
 
04.
Private Sub Application_Startup() 
05.
    Set ol_Explorer = ActiveExplorer 
06.
End Sub 
07.
 
08.
Private Sub ol_ContactItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean) 
09.
    If MsgBox("Möchten sie diesen Kontakt wirklich löschen?", vbYesNo Or vbQuestion) = vbNo Then 
10.
        Cancel = True 
11.
    End If 
12.
End Sub 
13.
 
14.
Private Sub ol_Explorer_SelectionChange() 
15.
    If ol_Explorer.Selection.Count > 0 Then 
16.
        If ol_Explorer.Selection.Item(1).Class = olContact Then 
17.
            Set ol_ContactItem = ol_Explorer.Selection.Item(1) 
18.
        End If 
19.
    End If 
20.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: Chris1312
10.06.2014 um 21:38 Uhr
Uwe!

Du bist mein Retter!
Soeben getestet und es funktioniert...

Vielen Dank an dich Uwe!

Gruß Chris
Bitte warten ..
Mitglied: Frank67
24.07.2016 um 19:50 Uhr
Hallo Uwe,
coole Lösung Ich verwende den Ansatz auch für Mails...
Leider kommt die Abfrage nur beim Löschen aus der geöfnetten Mail.
Bei Kontakten funktioniert es aus dem geöffneten Kontakt und aus der Liste.
Wo ist der Unterschied, was mache ich falsch?



Option Explicit
Dim WithEvents ol_MailItem As MailItem
Dim WithEvents ol_ContactItem As ContactItem
Dim WithEvents MyExplorer As Explorer

Private Sub Application_Startup()
Set MyExplorer = ActiveExplorer
End Sub

Private Sub MyExplorer_SelectionChange()
If MyExplorer.Selection.count > 0 Then
Select Case MyExplorer.Selection.Item(1).Class
Case olMail
Set ol_MailItem = MyExplorer.Selection.Item(1)
Case olContact
Set ol_ContactItem = MyExplorer.Selection.Item(1)
End Select
End If
End Sub

Private Sub ol_MailItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
If MsgBox("Mail wirklich löschen?", vbYesNo Or vbQuestion) = vbNo Then Cancel = True
End Sub

Private Sub ol_ContactItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
If MsgBox("Kontakt wirklich löschen?", vbYesNo Or vbQuestion) = vbNo Then Cancel = True
End Sub
Bitte warten ..
Mitglied: colinardo
26.07.2016, aktualisiert um 13:39 Uhr
Hallo @Frank67, Willkommen auf Administrator.de!
Das ist meiner Meinung nach ein Timing-Problem (Bug). Besser du machst das folgendermaßen dann gilt das für alle Objekte die gelöscht werden gleichermaßen:
01.
Dim WithEvents ol_Explorer As Explorer 
02.
Dim WithEvents ol_Folder As Folder 
03.
 
04.
Private Sub Application_Startup() 
05.
    Set ol_Explorer = ActiveExplorer 
06.
End Sub 
07.
 
08.
Private Sub ol_ContactItem_BeforeDelete(ByVal Item As Object, Cancel As Boolean) 
09.
    If MsgBox("Möchten sie diesen Kontakt wirklich löschen?", vbYesNo Or vbQuestion) = vbNo Then 
10.
        Cancel = True 
11.
    End If 
12.
End Sub 
13.
 
14.
Private Sub ol_Explorer_FolderSwitch() 
15.
    If Not ol_Explorer.CurrentFolder Is Nothing Then 
16.
        Set ol_Folder = ol_Explorer.CurrentFolder 
17.
    End If 
18.
End Sub 
19.
 
20.
Private Sub ol_Folder_BeforeItemMove(ByVal Item As Object, ByVal MoveTo As MAPIFolder, Cancel As Boolean) 
21.
    If Not MoveTo Is Nothing Then 
22.
        If MoveTo = ol_Explorer.Session.GetDefaultFolder(olFolderDeletedItems) Then 
23.
            If MsgBox("Möchten sie dieses Element wirklich löschen?", vbYesNo Or vbQuestion) = vbNo Then 
24.
                Cancel = True 
25.
            End If 
26.
        End If 
27.
    End If 
28.
End Sub
Grüße Uwe

p.s. für die Zukunft erstelle eine neue Frage oder melde dich bei der Person per PM. Das "Übernehmen" von Threads anderer Threadersteller sehen wir hier eigentlich nicht so gerne. Merci.
Bitte warten ..
Mitglied: Frank67
26.07.2016 um 17:34 Uhr
Hallo Uwe,
funktioniert einwandfrei.

Vielen Dank.
Frank
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Importieren von Kontakten ins Outlook 2013
gelöst Frage von raymond1010Outlook & Mail4 Kommentare

Ich wollte meine E-Mail Kontakte von Windows Mail ins Outlook.com übertragen. Ich habe sie exportiert und dann CSV (Trennzeichen-getrennt) ...

Outlook & Mail
Outlook 2013: Wie kann ich meine Kontakte im Adressbuch verfügbar machen
gelöst Frage von InternetterOutlook & Mail2 Kommentare

Hallo zusammen, ich habe in mein Outlook 2013 Kontakte importiert. Allerdings sind die auf einer von mir wenig benutzten ...

Outlook & Mail
Outlook 2013 Emails Kontakten zuordnen
gelöst Frage von xbast1xOutlook & Mail1 Kommentar

Hallo zusammen, wir haben ein FAX Postfach von welchem aus die Faxe an die MA verteilt werden. Die Faxe ...

Outlook & Mail
Outlook 2013 - kontakte in Unterordnern adressieren
gelöst Frage von ScrollerOutlook & Mail2 Kommentare

Hi, werden in Outlook 2013 Kontakte in Unterordnern angelegt sind diese nicht als mailempfänger adresserbar. Kann man das irgendwo ...

Neue Wissensbeiträge
Viren und Trojaner

Deaktivierter Keylogger in HP Notebooks entdeckt

Information von bitcoin vor 2 StundenViren und Trojaner

Ein Grund mehr warum man Vorinstallationen der Hersteller immer blank bügeln sollte Der deaktivierte Keylogger findet sich im vorinstallierten ...

Router & Routing

Lets Encrypt kommt auf die FritzBox

Information von bitcoin vor 6 StundenRouter & Routing

In der neuesten Labor-Version der FB7490 integriert AVM unter anderem einen Let's Encrypt Client für Zugriffe auf das Webinterface ...

Internet

Was nützt HTTPS, wenn es auch von Phishing Web-Seiten genutzt wird

Information von Penny.Cilin vor 3 TagenInternet17 Kommentare

HTTPS richtig einschätzen Ob man eine Webseite via HTTPS aufruft, zeigt ein Schloss neben der Adresse im Webbrowser an. ...

Webbrowser

Bugfix für Firefox Quantum released - Installation erfolgt teilweise nicht automatisch!

Erfahrungsbericht von Volchy vor 4 TagenWebbrowser8 Kommentare

Hallo zusammen, gem. dem Artike von heise online wurde mit VersionFirefox 57.0.1 sicherheitsrelevante Bugs behoben. Entgegen der aktuellen Veröffentlichung ...

Heiß diskutierte Inhalte
Exchange Server
SBS 2011 E-Mails können gesendet werden, aber nicht von extern empfangen
Frage von andreas1234Exchange Server15 Kommentare

Hallo Community, ich habe das Problem, dass seit knapp zwei Wochen die E-Mails von meinem SBS 2011 einwandfrei gesendet ...

Voice over IP
Telefonstörung - Ortsrufnummern kein Verbindungsaufbau
Frage von Windows10GegnerVoice over IP10 Kommentare

Hallo, sowohl bei uns als auch beim Opa ist es über VoIP nicht möglich Ortsrufnummern anzurufen. Es kommt nach ...

Batch & Shell
Trusted Sites für alle User auf dem PC einpflegen
Frage von xXTaKuZaXxBatch & Shell10 Kommentare

Aufgabestellung: Es sollen auf 1 PC (bzw. mehreren PCs) vertrauenswürdige Sites per Powershell eingetragen werden, die für alle User ...

Windows Server
Administratoren-Gruppe abfragen?
Frage von 1410640014Windows Server6 Kommentare

Hallo, kennt jemand eine einfache (und schnelle) Möglichkeit, von allen Client-Computern im Active Directorey die Administratoren-Gruppe abzufragen, wer da ...