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 Nummerierung in E-Mailbetreff statt AW

Mitglied: Diddy0815

Diddy0815 (Level 1) - Jetzt verbinden

07.08.2019 um 06:56 Uhr, 664 Aufrufe, 9 Kommentare, 2 Danke

Hallo,

Bei einem Geschäftspartner ist mir aufgefallen, sobald er auf ein E-Mail antwortet steht nicht im Betreff z. B.: AW: Ihre Anfrage sondern Re: Ihre Anfrage. Das geniale ist das bei längerer Konversation, dass die Antwort von ihm nummeriert wird. Also statt dem AW:AW:AW:Ihre Anfrage ein Re-3:Ihre Anfrage

Das macht die Sache übersichtlicher. Er realisiert das mit Tobit David.
Ich habe Outlook 2016 mit einem Exchange Server.

Kann man das bei mir umsetzen?
Mitglied: Lochkartenstanzer
07.08.2019, aktualisiert um 07:12 Uhr
Zitat von Diddy0815:

Kann man das bei mir umsetzen?

Ja.

Du kannst zu David migrieren oder das Tobit Infocenter als Mailclient nutzen.

lks

PS: Manchmal reicht es, einfach RE: und FW: statt AW: und WE: zu nutzen.
Bitte warten ..
Mitglied: 140447
07.08.2019 um 07:52 Uhr
Kann man das bei mir umsetzen?
Mit etwas VBA kein großes Problem.
Bitte warten ..
Mitglied: fisi-pjm
07.08.2019 um 08:32 Uhr
Zitat von Lochkartenstanzer:

Zitat von Diddy0815:

Kann man das bei mir umsetzen?

Ja.

Du kannst zu David migrieren oder das Tobit Infocenter als Mailclient nutzen.


Das kann ich beim besten Willen keinem empfehlen, der auch nur minimal mit externen Zugriffen und anderen Mailclients arbeitet.
Bitte warten ..
Mitglied: Lochkartenstanzer
07.08.2019, aktualisiert um 09:14 Uhr
Zitat von fisi-pjm:

Zitat von Lochkartenstanzer:

Zitat von Diddy0815:

Kann man das bei mir umsetzen?

Ja.

Du kannst zu David migrieren oder das Tobit Infocenter als Mailclient nutzen.


Das kann ich beim besten Willen keinem empfehlen, der auch nur minimal mit externen Zugriffen und anderen Mailclients arbeitet.

Naja, am smiliey sollte zu erkennen sein, daß das zwar eine mögliche, aber keine ernstgemeinte Empfehlung war.

Aber David kathegorisch abzulehnen ist unangebracht, weil es auch Umgebungen gibt, in denen es deutlich besser als andere Lösungen ist.

lks
Bitte warten ..
Mitglied: emeriks
07.08.2019 um 09:13 Uhr
@LKS
Ja, ja, in manchen Kathedralen wird so einiges kategorisch abgelehnt ....
Bitte warten ..
Mitglied: Lochkartenstanzer
07.08.2019 um 09:15 Uhr
Zitat von emeriks:

@LKS
Ja, ja, in manchen Kathedralen wird so einiges kategorisch abgelehnt ....

Mist, schon wieder. Ich muß doch irgendwann auf intravenöswe statt oraler Koffeeinzufuhr umstellen.

lks
Bitte warten ..
Mitglied: emeriks
07.08.2019 um 09:18 Uhr
Zitat von Lochkartenstanzer:
Mist, schon wieder. Ich muß doch irgendwann auf intravenöswe statt oraler Koffeeinzufuhr umstellen.
Ja, aber nur Irish Coffee bitte, ohne Zucker und Sahne ...
Bitte warten ..
Mitglied: fisi-pjm
07.08.2019 um 09:40 Uhr
Zitat von Lochkartenstanzer:
Aber David kathegorisch abzulehnen ist unangebracht, weil es auch Umgebungen gibt, in denen es deutlich besser als andere Lösungen ist.

War ja nicht Kategorisch abgelehnt. Habs ja eingegrenzt und ihm damit eine Daseinsberechtigung gelassen
Bitte warten ..
Mitglied: colinardo
LÖSUNG 07.08.2019, aktualisiert um 11:03 Uhr
Servus @Diddy0815,
hab dir das mal schnell in VBA für Outlook zusammengescriptet. Wurde hier unter Outlook 2019 getestet, sollte aber auch in älteren Versionen und Office 365 laufen. Der Code supported auch sogenannte InlineResponses bei denen ohne Extra Inspector auf Mails geantwortet wird.

1. Folgenden Code im VBA-Editor von Outlook im Abschnitt ThisOutlookSession bzw. DieseOutlookSitzung einfügen

01.
' Exlorers object in current application
02.
Dim WithEvents allExplorers As Explorers
03.
' collection which will hold all explorers
04.
Dim ExplorerCollection As New Collection
05.

06.
' when new explorer is created
07.
Private Sub allExplorers_NewExplorer(ByVal Explorer As Explorer)
08.
    On Error Resume Next
09.
    AddExplorerEvents Explorer
10.
End Sub
11.
' on outlook startup
12.
Private Sub Application_Startup()
13.
    On Error Resume Next
14.
    AddExplorerEvents ActiveExplorer
15.
    Set allExplorers = Application.Explorers
16.
End Sub
17.

18.
Private Sub AddExplorerEvents(ByVal exp As Explorer)
19.
    ' create event class
20.
    Dim c As New newExplorerClass
21.
    ' and add Explorer Object to its public variable
22.
    Set c.actExplorer = exp
23.
    ' add explorer to collection
24.
    ExplorerCollection.Add c
25.
End Sub

2. Dann ein neues Klassenmodul über Einfügen > Klassenmodul erstellen. In der Eigenschaften-Pane der Klasse benennt man die Klasse um in newExplorerClass und stellt sicher das die Klasse unter "Instancing" auf Private gestellt ist.


f8a40243a8c0abecb67333cb7734c9ba - Klicke auf das Bild, um es zu vergrößern

3. In die neu erstellte Klasse fügt man nun folgenden Code ein:

01.
' Explorer Object to work on
02.
Public WithEvents actExplorer As Explorer
03.
' current Message object working on
04.
Dim WithEvents actMessage As MailItem
05.

06.
' Function to reformat subject for reply
07.
Private Function ReformatResponseSubject(ByVal mail As MailItem) As Variant
08.
    Dim strNewSubject As String, regex As Object, cnt As Integer, matches As Object, match As Object
09.
    Set regex = CreateObject("vbscript.regexp")
10.
    regex.Global = True: regex.IgnoreCase = True: regex.MultiLine = False
11.
    ' Pattern for reply strings
12.
    regex.Pattern = "(AW|RE|RE-(\d+)):"
13.
    ' execute regex
14.
    Set matches = regex.Execute(mail.Subject)
15.
    ' if reply found
16.
    If matches.Count > 0 Then
17.
        ' default count to number of reply strings found + 1
18.
        cnt = matches.Count + 1
19.
        ' find RE-[::digit::] pattern in that case use digits as counter + 1
20.
        For Each match In matches
21.
            If Not IsEmpty(matches(0).submatches(1)) Then
22.
                cnt = CInt(match.submatches(1)) + 1
23.
                Exit For
24.
            End If
25.
        Next
26.
        ' replace reply strings with empty string and add new prefix
27.
        strNewSubject = "RE-" & cnt & ":" & regex.Replace(mail.Subject, "")
28.
        ' return new subject
29.
        ReformatResponseSubject = strNewSubject
30.
    Else ' no reply found
31.
        ReformatResponseSubject = vbNull
32.
    End If
33.
    Set regex = Nothing
34.
    Set matches = Nothing
35.
End Function
36.

37.
' Response is Inline-Response
38.
Private Sub actExplorer_InlineResponse(ByVal Item As Object)
39.
    Dim result As Variant
40.
    result = ReformatResponseSubject(actMessage)
41.
    If result <> vbNull Then
42.
        Item.Subject = result
43.
    End If
44.
End Sub
45.
' keep track of current item
46.
Private Sub actExplorer_SelectionChange()
47.
    If Not actExplorer Is Nothing Then
48.
        With actExplorer
49.
            If .Selection.Count > 0 Then
50.
                If .Selection(1).Class = olMail Then
51.
                    Set actMessage = .Selection(1)
52.
                End If
53.
            End If
54.
        End With
55.
    End If
56.
End Sub
57.

58.
' if item is replied to
59.
Private Sub actMessage_Reply(ByVal Response As Object, Cancel As Boolean)
60.
    On Error Resume Next
61.
    Dim res As MailItem, strSalutation As String, actInspector As Inspector, result As Variant
62.
    Set actInspector = ActiveInspector
63.
    ' check if there is an active Inspector (if not it's an inline response)
64.
    If Not actInspector Is Nothing Then
65.
        ' if the item in the activeinspector is not the message replied to it's an inlineresponse, so exit event
66.
        If actInspector.CurrentItem <> actMessage Then Exit Sub
67.
        ' create response
68.
        Set res = actMessage.Reply
69.
        With res
70.
            result = ReformatResponseSubject(actMessage)
71.
            If result <> vbNull Then
72.
                res.Subject = result
73.
            End If
74.
            ' Cancel original response
75.
            Cancel = True
76.
            ' show new response object
77.
            .Display
78.
        End With
79.
    End If
80.
End Sub

4. Nun im Trust-Center von Outlook sicherstellen das Makros ausgeführt werden dürfen (Datei>Optionen>TrustCenter>"Einstellungen für das Trustcenter"). Entweder alle, oder besser man signiert den Code im VBA Editor und lässt nur signierten Code zu.


1b80fe6eb120ca8d2288eb77a4d9f17b - Klicke auf das Bild, um es zu vergrößern

Wenn man das Projekt signieren möchte macht man das im VBA Editor unter Extras >Digitale Signatur. Hat man das Projekt signiert kann man im TrustCenter umstellen auf die 2. Option von oben indem man nur signierten Code zulässt. Dazu muss dann einmalig beim Start von Outlook der Signatur vertraut werden.

5. Nun muss Outlook zwingend neu gestartet sonst kann der Code nicht laufen, da die Events erst nach einem Neustart von Outlook aktiv werden.


Viel Spaß damit, wie immer ohne Gewähr auf Leib und Leben.
Grüße Uwe

p.s. Persönliche Anpassungen/Fehlerbehebungen gerne gegen Aufwandsentschädigung per PN
Bitte warten ..
Ähnliche Inhalte
Windows 10
Datenträger Nummerierung
gelöst Frage von AushilfsarnieWindows 109 Kommentare

Hallo, ich habe eine neue Festplatte (m.2 nvme) gekauft. jetzt möchte ich diese gerne als erste Festplatte (mit Windows ...

Exchange Server

Exchange 2016 OWA - AW: in RE: ändern

gelöst Frage von ipzipzapExchange Server3 Kommentare

Hallo, wo kann ich unter Exchange 2016 einstellen, das Antworten-Betreffs über OWA ein RE: und kein AW: vorangestellt bekommen? ...

VB for Applications

Word VBA - Bestimmte Ebene einer Nummerierung markieren

gelöst Frage von BaseBubbleVB for Applications3 Kommentare

Hallo! In einer Word-Datei mit Nummerierungen möchte ich via VBA die zweite Ebene der Nummerierungen markieren (und dann weiterbearbeiten ...

Ausbildung

Nummerierung jeder Zeile in einer Textdatei

gelöst Frage von MihailAusbildung4 Kommentare

Guten Tag sehr geehrten Admins, Ich versuche seit einer Weile, als absoluter Anfänger eine batch-Datei zu finden die, wie ...

Neue Wissensbeiträge
Viren und Trojaner
Trend Micro WFBS 10 SP1 Patch 2185
Tipp von Abramelin vor 7 StundenViren und Trojaner

Hi, Hab gerade gesehen das Patch 2185 für TM WFBS 10 SP1 erschienen ist! Werde mal Morgen den Patch ...

Viren und Trojaner

Neuer Virus lässt Windows im abgesicherten Modus starten

Tipp von transocean vor 10 StundenViren und Trojaner2 Kommentare

Moin, lest selbst. Grüße Uwe

Sicherheit
Böser Bug in Domänenkennwortrichtlinie!
Information von DerWoWusste vor 15 StundenSicherheit1 Kommentar

Ich spiegele mal Borncity: In Kürze: Nutzt Ihr eine Domänen-Kennwortrichtlinie der herkömmlichen Art (keine PSO-Richtlinie)? Ja? Und plant Ihr, ...

Windows Tools
7-Zip v19.0 MSI silent uninstall
Tipp von Dirmhirn vor 1 TagWindows Tools5 Kommentare

Hi, ich versuchte grade 7-Zip v19.0 MSI silent zu deinstallieren. mit msiexec /x stürzt mir immer der Explorer ab. ...

Heiß diskutierte Inhalte
Sicherheitsgrundlagen
Sperrung der IMAP Aktivierung: GMail für Apple Mail - in einer Schul-Google-Suite
Frage von lazylandSicherheitsgrundlagen15 Kommentare

Hallo, ich würde mich sehr über Eure Einschätzung und Rat freuen: Der Administrator einer Google Suite (Schule) löscht aus ...

Windows 10
Win10 Remote Desktop User anders
Frage von ludibubiWindows 1014 Kommentare

Folgende Situation: Auf meinem Rechner (Win10) in der Firma (Domänen-Netzwerk) starte ich abends bevor ich gehe einen Newsletterversand. Damit ...

Windows 8
Snipping Tool Alternative für bzw ab Windows 8.1
gelöst Frage von schmitziWindows 814 Kommentare

Hallo, ich suche für Windows 8.1 eine Alternative für das bordeigene Snipping Tool von MS, vielleicht weiss ja jemand ...

Server-Hardware
Anschaffung neuer Server
Frage von tschip1801Server-Hardware14 Kommentare

unsere Firma bekommt einen neuen Server, ich bin schon sehr lange nicht mehr so tief im geschehen um hier ...