Skip to content

Instantly share code, notes, and snippets.

' Creates an appointment to block timeslits in the Outlook calendar for tasks
' In case an email is selected
' - this email is put as attachment and as body of the appointment
' - deleted afterwards
Sub CreateTentativeWorkAppointment()
Dim oView As Outlook.View
Dim olApp As Outlook.Application
Dim olApt As Outlook.AppointmentItem
Dim olSelection As Outlook.Selection

Keybase proof

I hereby claim:

  • I am koppor on github.
  • I am koppor ( on keybase.
  • I have a public key ASDpR-5cXF6MQ39tpWS0yWQMzgS6NMgDO1mdPZpbh4V_UQo

To claim this, I am signing this object:

koppor / pax-demo.tex
Last active February 8, 2017 08:32
Prevent division by zero at pax
\def\PAX@viewport#1 #2 #3 #4\\{%
koppor /
Created December 6, 2015 14:08
Delete old builds at
cd /var/www/
# delete all branches not touched for the last 90 days
# see
#find . -mindepth 1 -maxdepth 1 -type d -mtime +90 ! -path "./_h5ai" ! -path "./master" -exec rm {} \;
# delete files in the remaining directories
# see
koppor / sketch.bib
Last active October 13, 2015 02:13
bibtex format
* sort fields
* check the column of "=" - why not more left? Should the column be per entry or globally?
title = {Sustainable Architectural Design Decisions},
author = {Uwe Zdun and Rafael Capilla and Huy Tran and Olaf Zimmermann},
journal = {{IEEE} Softw.},
year = {2013},
month = {nov},