Seit ungefähr Juli 2019 scheint Microsoft mit einem Office 2016 Update ein paar Fehler eingebaut zu haben was die Funktion "Rechtsklick-Senden an" betrifft. Der Fehler dabei ist, dass nach "senden an" Outlook entweder nicht mehr reagiert oder abstürzt. Die Outlook.exe bleibt jedoch im Hintergrund hängen und damit führt auch ein Outlook "neu starten" zu Problemen.
Zur Lösung dieses Problems sind uns 3 Varianten bekannt.
1. Die "Senden an E-Mail Empfänger" Orginal-Verknüpfung neu erstellen
2. Eigene Verknüpfung für "Senden an" erstellen.
3. Eigene Verknüpfung mit Script verwenden welches auch "Multi-Attachment" fähig ist.
Welche Variante bei Ihnen funktioniert oder am besten gefällt, ist Ihnen selbst überlassen.
Info: Variante 1 und 2 funktionieren mit einzelnen Anhängen, Variante 3 mit mehreren Anhängen.
// Variante 1 - Orginal-Verknüpfung neu erstellen
Hinweis: Diese Variante funktioniert nur dann, wenn Sie in der Registry noch keine Veränderungen von mailto usw. vorgenommen haben. Verändern Sie auch nicht die "öffnen mit" Einstellungen der Verknüpfung da dies die Handhabung der Datei beeinflusst.
// Variante 2 - Eigene Verknnüpfung einrichten
Diese Lösung ist bei den meisten Szenarien die einfachste Methode.
// Variante 3 - Eigene Verknüpfung mit Script
Diese Variante ist Multi-Attachment fähig.
Option Explicit Dim objArgs, OutApp, oNameSpace, oInbox, oEmailItem, olMailItem Dim a, oAttachments, subjectStr, olFormatHTML olMailItem = 0 olFormatHTML = 2 Set objArgs = WScript.Arguments 'gets paths of selected files Set OutApp = CreateObject("Outlook.Application") 'opens Outlook Set oEmailItem = OutApp.CreateItem(olMailItem) 'opens new email For a = 0 to objArgs.Count - 1 Set oAttachments = oEmailItem.Attachments.Add(objArgs(a)) subjectStr = subjectStr & Right(objArgs(a),Len(objArgs(a))-(InStrRev(objArgs(a),"\"))) & ", " 'recreates the default Subject e.g. Emailing: file1.doc, file2.xls Next If subjectStr = "" then subjectStr = "No Subject " oEmailItem.Subject = "Betreff: " & Left(subjectStr, (Len(subjectStr)-2)) oEmailItem.BodyFormat = olFormatHTML oEmailItem.Display
Benötigen Sie weitere Informationen oder Hilfestellung? Treten Sie mit uns in Kontakt.