Kategorie: Office

September-Patch verändert Outlook-Formularnutzung

28. September 201727. September 2017 Daniel Lensing Keine Kommentare

Die am 12. September veröffentlichten Microsoft-Aktualisierungen für Office beinhalten eine Deaktivierung von benutzerdefinierten Formularen:

Microsoft Outlook 2007 – KB4011086
Microsoft Outlook 2010 – KB4011089
Microsoft Outlook 2013 – KB4011090
Microsoft Outlook 2016 – KB4011091

Von dieser Abschaltung ist in den Erläuterungen der jeweiligen Installationsressource nichts zu finden.
Es gibt allerdings einen Supportartikel von Microsoft wie entsprechende Ausnahmen definiert werden können: hier

Zur Erkennung der Objektbezeichnungen im einem Outlook Postfach sollte die Spalte „Nachrichtenklasse“ hinzufügen. Damit können die benötigten „Message Class“ ausgelesen werden.

Office

Juni-Patchday erzeugt Warnmeldungen in Outlook bei Anhängen

19. Juni 201719. Juni 2017 Daniel Lensing Keine Kommentare

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:

Outlook 2007 – KB3191898
Outlook 2010 – KB3203467
Outlook 2013 – KB3191938
Outlook 2016 – KB3191932

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

Office, Patchday+Updates

Outlook – Standardschrift definieren

6. Januar 201726. Dezember 2016 Daniel Lensing Keine Kommentare

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.

Office

Telefonliste aus Outlook in Excel exportieren

21. November 20155. Dezember 2015 Daniel Lensing Keine Kommentare

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

Office, VBA

Access – Vergleiche direkt in der Abfrage

14. Juli 201514. Juli 2015 Daniel Lensing Keine Kommentare

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.

Office

Listen schnell formatieren per Makro in Excel

27. Mai 201527. Mai 2015 Daniel Lensing Keine Kommentare

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 =&nbsp;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.

Office, VBA

Outlook – Einbinden von „Hidden“-Exchange-Mailbox

10. März 201510. März 2015 Daniel Lensing Keine Kommentare

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.

Exchange Server, Office, Windows Server, Windows Server 2012