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 Automatische Anrede mit Name in Outlook beim Antworten auf Mails

Mitglied: Marco8383

Marco8383 (Level 1) - Jetzt verbinden

18.04.2019 um 09:32 Uhr, 565 Aufrufe, 9 Kommentare, 1 Danke

Hallo zusammen,
ich bin auf der Suche nach einer Lösung für folgendes Problem. Ich nutze Office 365 und Outlook lokal auf dem PC. Da ich jeden Tag zig Mails beantworten muss, hätte ich gerne, dass wenn ich eine Mail beantworte die Anrede mit Name also z.B.: "Hallo Herr XYZ" automatisch eingefügt wird.

Der vollständige Name und E-Mail Adresse ist in den Kontakten vorhanden. Es muss doch irgendwie möglich sein das zu automatisieren?!

Vielleicht hat mir hier jemand einen Tipp?

MfG
Mitglied: emeriks
18.04.2019 um 09:35 Uhr
Hi,
sowas könnte man sicherlich mit einem CRM erschlagen.

E.
Bitte warten ..
Mitglied: 139374
18.04.2019, aktualisiert um 09:40 Uhr
Mit nem VBA Skript in Outlook normalerweise auch kein Hexenwerk.

Beim Reply Event der Mail in den Kontakten nach der Mail-Adresse suchen und die Anrede extrahieren, im Body einsetzen, fertig.
Bitte warten ..
Mitglied: Marco8383
18.04.2019, aktualisiert um 09:42 Uhr
Bei meinem CRM geht das ohne Probleme... Nur nutze ich für Mails Outlook, da der Mail Client vom CRM nicht so toll ist...

Mit VBA Skripten habe ich mich noch nicht auseinander gesetzt... Gibt es hier vielleicht schon etwas fertiges?
Bitte warten ..
Mitglied: 139374
18.04.2019, aktualisiert um 09:59 Uhr
Auf Anfrage kann ich dir sowas schreiben, für Lau ist das dann aber nicht.
Bitte warten ..
Mitglied: Penny.Cilin
18.04.2019 um 10:05 Uhr
Zitat von Marco8383:

Bei meinem CRM geht das ohne Probleme... Nur nutze ich für Mails Outlook, da der Mail Client vom CRM nicht so toll ist...

Mit VBA Skripten habe ich mich noch nicht auseinander gesetzt... Gibt es hier vielleicht schon etwas fertiges?
OK, schau mal im Internet mit Hilfe Deiner favorisierten Suchmaschine. Ansonsten sind hier bestimmt Communityteilnehmer, welche dies gegen Bezahlerung erledigen. Eine Antwort diesbezüglich hast Du schon bekommen.

Gruss Penny.
Bitte warten ..
Mitglied: colinardo
LÖSUNG 18.04.2019, aktualisiert um 21:32 Uhr
Servus @Marco8383 ,
hab dir das mal schnell in VBA 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.


screenshot - 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 get personal salutation
07.
Private Function GetPersonalSalutationForMailSender(ByVal mail As MailItem) As String
08.
    Dim strSalutation As String, c As ContactItem
09.
    ' search contact from mail sender in personal addressbook
10.
    Set c = mail.Sender.GetContact
11.
    ' when there is a matching contact in the addressbook
12.
    If Not c Is Nothing Then
13.
        ' when Lastname ist not empty
14.
        If c.LastName <> "" Then
15.
            ' different salutations for different titles
16.
            Select Case c.Title
17.
                Case "Herr"
18.
                    strSalutation = "Sehr geehrter Herr " & c.LastName & ","
19.
                Case "Doktor"
20.
                    strSalutation = "Sehr geehrter Doktor " & c.LastName & ","
21.
                Case "Professor"
22.
                    strSalutation = "Sehr geehrter Professor " & c.LastName & ","
23.
                Case "Firma"
24.
                    strSalutation = "Sehr geehrte Firma " & c.CompanyName & ","
25.
                Case "Frau"
26.
                    strSalutation = "Sehr geehrte Frau " & c.LastName & ","
27.
                Case "Familie"
28.
                    strSalutation = "Sehr geehrte Familie " & c.LastName & ","
29.
                Case Else
30.
                    strSalutation = "Sehr geehrte Damen und Herren,"
31.
            End Select
32.
        ' if Lastname is empty check company
33.
        ElseIf c.CompanyName <> "" Then
34.
            strSalutation = "Sehr geehrte Firma " & c.CompanyName & ","
35.
        ' use generic string
36.
        Else
37.
            strSalutation = "Sehr geehrte Damen und Herren,"
38.
        End If
39.
    ' no contact use generic string
40.
    Else
41.
        strSalutation = "Sehr geehrte Damen und Herren,"
42.
    End If
43.
    ' append additional newline to salutation
44.
    strSalutation = strSalutation & vbNewLine
45.
    ' set return of function
46.
    GetPersonalSalutationForMailSender = strSalutation
47.
End Function
48.

49.
' Response is Inline-Response
50.
Private Sub actExplorer_InlineResponse(ByVal Item As Object)
51.
    Dim strSalutation As String
52.
    ' get personal salutation and set body of inline response
53.
    With Item
54.
        strSalutation = GetPersonalSalutationForMailSender(actMessage)
55.
        If .BodyFormat = olFormatHTML Then
56.
            .HTMLBody = strSalutation & vbNewLine & .HTMLBody
57.
        Else
58.
            .Body = strSalutation & vbNewLine & .Body
59.
        End If
60.
    End With
61.
End Sub
62.
' keep track of current item
63.
Private Sub actExplorer_SelectionChange()
64.
    If Not actExplorer Is Nothing Then
65.
        With actExplorer
66.
            If .Selection.Count > 0 Then
67.
                If .Selection(1).Class = olMail Then
68.
                    Set actMessage = .Selection(1)
69.
                End If
70.
            End If
71.
        End With
72.
    End If
73.
End Sub
74.

75.
' if item is replied to
76.
Private Sub actMessage_Reply(ByVal Response As Object, Cancel As Boolean)
77.
    On Error Resume Next
78.
    Dim res As MailItem, strSalutation As String, actInspector As Inspector
79.
    Set actInspector = ActiveInspector
80.
    ' check if there is an active Inspector (if not it's an inline response)
81.
    If Not actInspector Is Nothing Then
82.
        ' if the item in the activeinspector is not the message replied to it's an inlineresponse, so exit event
83.
        If actInspector.CurrentItem <> actMessage Then Exit Sub
84.
        ' create response
85.
        Set res = actMessage.Reply
86.
        With res
87.
            ' get personal salutation from Sender-Contact in address book
88.
            strSalutation = GetPersonalSalutationForMailSender(actMessage)
89.
            ' determine body format and set body
90.
            If .BodyFormat = olFormatHTML Then
91.
                .HTMLBody = strSalutation & vbNewLine & .HTMLBody
92.
            Else
93.
                .Body = strSalutation & vbNewLine & .Body
94.
            End If
95.
            ' Cancel original response
96.
            Cancel = True
97.
            ' show new response object
98.
            .Display
99.
        End With
100.
    End If
101.
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.


screenshot - 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.


Die Anpassung der Begrüßungen kann in der Funktion GetPersonalSalutationForMailSender der Klasse vorgenommen werden.

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

p.s. Persönliche Anpassungen gerne gegen Aufwandsentschädigung per PN
Bitte warten ..
Mitglied: ToniHo
18.04.2019 um 16:44 Uhr
Moin,

ich kann dir Phrase Express empfehlen. Ist sehr umfangreich und für Automatisierungen, in Sachen Mail schreiben, perfekt geeignet.

Viele Grüße
Toni
Bitte warten ..
Mitglied: Marco8383
19.04.2019 um 14:04 Uhr
Klappt wunderbar! Vielen Dank dafür!
Bitte warten ..
Mitglied: colinardo
19.04.2019 um 15:16 Uhr
Immer gerne.

Frohe Feiertage.
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail

Office 365 - Outlook Automatische Antwort

gelöst Frage von apex.predator24Outlook & Mail2 Kommentare

Hallo Zusammen Eine Kurze Frage: Ist es möglich in der automatischen Antwort im Outlook das Datum automatisch in dem ...

Outlook & Mail

Mail Regel in Outlook 2013 greift nicht automatisch

gelöst Frage von crack24Outlook & Mail1 Kommentar

Hallo, ich habe in Outlook eine Regel erstellt, dass alle Mails mit Betreff "Physical Memory" direkt gelöscht werden sollen. ...

Microsoft Office

Office 365 Disclaimer und Outlook Antwort

gelöst Frage von netscratMicrosoft Office3 Kommentare

Moin zusammen, kurzer Sachstand: Office 365 Kundenumgebung. Im Office 365 Admin Exchange habe ich einen Disclaimer/Haftungsausschluss Regel erstellt die ...

Outlook & Mail

Keine Antwort senden möglich, Outlook Termineinladung

Frage von killtecOutlook & Mail

Hallo, beim Empfang eines Termins ist es nicht möglich, den direkt aus dem Posteingang zu beantworten (Antwort-Senden). Im Kalender ...

Neue Wissensbeiträge
Off Topic
Europawahl 2019 - Ein Statement der Jugend
Information von Frank vor 42 MinutenOff Topic1 Kommentar

Dies ist ein offener Brief. Ein Statement. Von einem großen Teil der Youtuber-Szene. Am Wochenende sind die EU-Wahlen und ...

Off Topic
Europawahl 2019
Information von Frank vor 1 TagOff Topic24 Kommentare

Vom 23. bis 26. Mai 2019 findet die Europawahl in den Mitgliedstaaten der Europäischen Union statt (ja auch in ...

Humor (lol)

Minister wollen offenbar Ausweispflicht für .de-Domain

Information von Kraemer vor 1 TagHumor (lol)7 Kommentare

Zitat von Golem.de: Die zuständigen Verbraucherschutzminister fordern einem Medienbericht zufolge offenbar eine Ausweispflicht für .de-Domains. Das soll Betrugsfälle mit ...

Off Topic
Was als Noob hier mal gesagt werden musste
Information von th30ther vor 3 TagenOff Topic5 Kommentare

Moinsen wertes Forum, ich möchte mich an dieser Stelle mal beim Forum generell und bei aqui speziell bedanken! Ich ...

Heiß diskutierte Inhalte
Ausbildung
Wie sind eure Erfahrungen als oder mit Ü30 Azubis für Fachinformatik Systemintegration?
Frage von CaptainProcessorAusbildung26 Kommentare

Tagchen allerseits :) Mir steht in wenigen Monaten eine Veränderung bevor, da mein AG seine IT auslagert und ich ...

Off Topic
Europawahl 2019
Information von FrankOff Topic24 Kommentare

Vom 23. bis 26. Mai 2019 findet die Europawahl in den Mitgliedstaaten der Europäischen Union statt (ja auch in ...

Router & Routing
ZyXEL ZyWALL USG 20 Routing
Frage von Oggy01Router & Routing12 Kommentare

Hallo, und wieder habe ich ein Problem mit dem Routing. Bis vor ein paar Tagen habe ich das mit ...

Virtualisierung
VServer (Linux): Absichern, verschlüsseln usw
Frage von mrserious73Virtualisierung11 Kommentare

Hallo zusammen, ich möchte einen Linux-Vserver mieten und diesen absichern. Darunter verstehe ich in diesem Falle hauptsächlich: Dafür sorgen, ...