Kategorie: Office

Outlook – Standardschrift definieren

Posted on By Daniel Lensing Keine Kommentare zu 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.

Office

Telefonliste aus Outlook in Excel exportieren

Posted on By Daniel Lensing Keine Kommentare zu 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.

Office, VBA

Access – Vergleiche direkt in der Abfrage

Posted on By Daniel Lensing Keine Kommentare zu 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.

Office

Listen schnell formatieren per Makro in Excel

Posted on By Daniel Lensing Keine Kommentare zu 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.

Office, VBA

Outlook – Einbinden von „Hidden“-Exchange-Mailbox

Posted on By Daniel Lensing Keine Kommentare zu 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.

Exchange Server, Office, Windows Server, Windows Server 2012

BeschrÀnkung der Outlook 2013-Suche anpassen

Posted on By Daniel Lensing Keine Kommentare zu 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.

Office

Excel: Mehrere Hyperlinks gleichzeitig entfernen

Posted on By Daniel Lensing Keine Kommentare zu Excel: Mehrere Hyperlinks gleichzeitig entfernen

In einer Liste mit vielen DatensĂ€tzen in Excel hatten sich durch einen Import leider auch einige Hyperlinks eingeschlichen, welche ich fĂŒr die Nutzung der Liste nicht gebrauchen konnte.

Entsprechend sollten diese bei ĂŒber 30.000 Zeilen diese schnell entfernt werden. Dazu konnte ich folgende Zeilen nutzen:

Zur Entfernung im markierten Bereich:

Selection.Hyperlinks.Delete

Zur Entfernung aus einer aktiven Arbeitsmappe:

ActiveSheet.Cells.Hyperlinks.Delete

Diese können einfach in ein Makro eingefĂŒgt werden, so dass sie schnell genutzt werden können.

Office