Category Archives: Office

Juni-Patchday erzeugt Warnmeldungen in Outlook bei Anhängen

Beim aktuellen Patchday Juni 2017 von Microsoft kommt es zu Anpassungen in der Office-Applikation Outlook, welche Mehraufwand für die Benutzer bedeutet. Betroffen sind die folgenden Updates:

Es kommen Fehler bzw. Warnmeldungen beim Öffnen von Anhängen hoch, die auf unsichere Anlagen bzw. unsichere Quellen verweist.
Dieses Verhalten wird aktuell von Microsoft geprüft.

Außerdem soll es Probleme geben bei Skripten in öffentlichen oder freigegebenen Ordnern, so dass auch über das Sicherheitscenter freigegebene Skripte von z.B. Formularen nicht mehr ordnungsgemäß unter Outlook 2010 funktionieren.

Weitere Informationen: hier
Stand: 15.06.2017

Outlook – Standardschrift definieren

Die Definition der Standardschrift für mehrere Benutzer kann in Outlook, im Gegensatz zu den Applikationen Word, Excel und Powerpoint, in der Registry erfolgen. Bei den benannten Applikationen muss es in der Standard-Vorlage vorgenommen werden.

Da es sich um Hex-Werte handelt ist es der einfachste Weg, die Werte in einem Client unter den „Optionen“ – „E-Mail“ – „Briefpapier und Schriftarten“ zu definieren. Anschließend sollte der folgende Pfad exportiert werden:

HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\MailSettings

Die folgende Einträge müssen dann an die Benutzer verteilt werden:

  • ComposeFontComplex
  • ComposeFontSimple
  • CReplyFontComplex
  • CReplyFontSimple
  • TextFontComplex
  • TextFontSimple

Dieses kann über eine Reg-Datei oder per „Group Policy Preferences“ gelöst werden. Der in diesem Artikel definierte Pfad ist für Outlook 2016 gedacht. Für ältere Versionen muss die Versionsnummer angepasst werden.

Telefonliste aus Outlook in Excel exportieren

Über Twitter gab es die Anfrage, ob man nicht eine Telefonliste untereinander darstellen könne. Der Standardexport sieht nur den Export eine Kontaktes pro Zeile vor. Leere Felder werden ebenfalls dargestellt.

Anbei der VBA-Code für das Outlook-Makro:

Sub Telefonliste()
On Error Resume Next
 
Const olFolderContacts = 10
Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
 
Set colContacts = objNamespace.GetDefaultFolder(olFolderContacts).Items
 
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)
 
objExcel.Cells(1, 1) = "Name"
objExcel.Cells(1, 2) = "Telefonummer"
 
I = 2
 
For Each ObjContact In colContacts
If Not ObjContact.BusinessTelephoneNumber = "" Then
objExcel.Cells(I, 1).Value = ObjContact.FullName
objExcel.Cells(I, 2).Value = ObjContact.BusinessTelephoneNumber
I = I + 1
End If
 
If Not ObjContact.MobileTelephoneNumber = "" Then
objExcel.Cells(I, 1).Value = ObjContact.FullName
objExcel.Cells(I, 2).Value = ObjContact.MobileTelephoneNumber
I = I + 1
End If
 
If Not ObjContact.HomeTelephoneNumber = "" Then
objExcel.Cells(I, 1).Value = ObjContact.FullName
objExcel.Cells(I, 2).Value = ObjContact.HomeTelephoneNumber
I = I + 1
End If
Next
 
Set objRange = objWorksheet.UsedRange
objRange.EntireColumn.Autofit
End Sub

Büronummer, Mobilnummer & private Nummer werden berücksichtigt.

Access – Vergleiche direkt in der Abfrage

Recht schnell hat man sich eine Abfrage im Microsoft Access gebaut und möchte nun 2 Spalten vergleichen, so dass man diese filtern kann.

Dieses kann direkt in der Abfrage durchgeführt werden:

Prüfung: wenn([Tabelle1.Überschrift1]=[Tabelle2.Überschrift1];"gleich";"ungleich")

Dieser String muss unter „Feld“ eingetragen werden. So wird das Ergebnis für die verknüpften Daten in der Spalte angezeigt. Als Überschrift ist durch die Schreibweise das Word „Prüfung“ definiert.

Listen schnell formatieren per Makro in Excel

Häufiger muss ich Auswertung, Listen oder Planungen in Excel lesen. Manche importiere ich auch aus CSV, Text-Dateien oder gar per ODBC-Verbindung. Bei entsprechenden Datenmengen und aufgrund der Übersichtlichkeit formatiere ich mir diese Tabellen gerne. Ich wurde nun gefragt, wie ich dieses entsprechend schnell durchführe und gerne hinterlege ich hier die vba-Zeilen.

Autofilter auf Zeile 1 setzen:

Range("A1").Select
Selection.AutoFilter
Application.ScreenUpdating = True

Zeile 1 fixieren:

    With ActiveWindow
        .FreezePanes = False
        .SplitColumn = 0
        .SplitRow = 1
        .FreezePanes = True
    End With

Zeilen farblich trennen:

Dim z As Integer
    Dim sp As Integer
    Dim s As Integer
 
    sp = Range("IV1").End(xlToLeft).Column + 1
    z = Range("A65536").End(xlUp).Row + 1
 
    With Range("A1", Chr(63 + sp) & 1)
        .Font.Bold = True
        .EntireColumn.AutoFit
        .Interior.ColorIndex = 15
        .Interior.Pattern = xlSolid
    End With
 
    For s = 3 To z - 1 Step 2
    With Range("A" & s, Chr(63 + sp) & s)
     .Interior.ColorIndex = 37
     .Interior.Pattern = xlSolid                                               '
    End With
    Next s

Diese Funktionen nutze ich in einem Makro gemeinsam und entsprechend habe ich mit einem Klick eine schnell formatierte Tabelle.

Outlook – Einbinden von „Hidden“-Exchange-Mailbox

Wenn man ein Postfach, welches als versteckt (hidden) sich im Exchange-Server befindet, lässt sich dieses nicht direkt im Outlook einbinden.

Es gibt nun die Variante, dass man das Postfach wieder für eine gewisse Zeit sichtbar schaltet oder man nutzt das entsprechende Exchange-Attribut des Postfach-Objektes:

legacyExchangeDN

Mit dem Eintrag dieses Attributes lässt sich auch das versteckte Postfach über die Namensauflösung von Outlook finden.

Das Postfach wird zur Auflösung direkt mit dem Anzeigename „Displayname“ in der Konfiguration dargestellt. Dieses gilt auch für zusätzlich einzubindende Postfächer.

Beschränkung der Outlook 2013-Suche anpassen

Häufig suche ich im Alltag Mails, die auch teilweise recht weit in der Vergangenheit liegen. Leider zeigt mir standardmäßig das Outlook 2013 bei der ersten Suche nur 30 Mails an. Über den Link „Weitere“ am Ende der kurzen Ergebnisliste wird eine erneute Suche für alle Ergebnisse gestartet.

In den Optionen von „Outlook“ unter „Suchen“ besteht die Möglichkeit die „Suchläufe durch Begrenzung der Anzahl angezeigter Ergebnisse beschleunigen“ zu deaktivieren. Dann wird allerdings bei jeder Suche sofort die Suche für alle Ergebnisse gestartet.

Bei Outlook 2010 war die Einschränkung auf 200 Objekte definiert. Dieses entsprechenden Wert kann man auch für Outlook 2013 über die Registry setzen.

Pfad: HKEY_Current_User\Software\Microsoft\Office\15.0\Outlook\Search

Objekt: SearchResultCap

Typ: REG_DWORD

Wert: 200

Wenn hier der Wert 0 gesetzt wird, ist die Einschränkung ebenfalls deaktiviert, ohne das die Optionen angepasst werden müssen.