Outlook VBA – remove reminders
Friday, August 27th, 2010I synchronize my Windows Mobile Device with my corporate-exchange account. This way my calendar stays nicely up to date and gives me reminders for the tasks I have to do.
However I find it rather a hassle that I receive reminders for certain activities like holidays. Therefore I have written a small macro that disables the reminders for all future calendar entries with a certain subject.
Private Sub RemoveReminders(sProject As String)
Dim fldMailbox As MAPIFolder
Dim fldCalendar As MAPIFolder
Dim objItem As AppointmentItem
Dim iCntr As Integer
iCntr = 0
Set fldMailbox = Session.Folders(sMailboxName)
Set fldCalendar = fldMailbox.Folders("Calendar")
Set mcolCalItems = fldCalendar.Items
For Each objItem In mcolCalItems
If objItem.start > Now() Then
If objItem.ReminderSet = True Then
If InStr(objItem.Body, sProject) > 0 Then
iCntr = iCntr + 1
With objItem
.ReminderSet = False
.Save
End With
objItem.Save
End If
End If
End If
Next
MsgBox "Modified " & iCntr & " calendar entries"
End Sub
Public Sub RemoveHolidayReminders()
RemoveReminders ("Holiday")
End Sub
net rpc -Udomadmin1 rights grant "Domain Admins" SeMachineAccountPrivilege
apt-get install bind9 bind9-doc dnsutils
vi /etc/bind/named.conf.options
forwarders {
192.168.1.1;
};
allow-transfer { none; };
vi /etc/bind/named.conf.local
zone "legacycode" {
type master;
file "/etc/bind/zone.legacycode.lan";
};
zone "1.168.192.in-addr.arpa"{
type master;
file "/etc/bind/zone.1.168.192.in-addr.arpa";
};
/etc/bind/zone.legacycode.lan
@ IN SOA server.legacycode.lan. support.legacycode.lan. (
20060702
172800
960
1209600
3600
)
@ IN NS server.legacycode.lan.
server IN A 192.168.1.190
/etc/bind/zone.1.168.192.in-addr.arpa
@ IN SOA server.legacycode.lan. support.legacycode.lan. (
20060702
172800
960
1209600
3600
)
@ IN NS server.legacycode.lan.
190 IN PTR server.legacycode.lan.
Add WindowsXP Client
LEGACYCODE.lan
domadmin1 (= Domain Administrator account)
...
apt-get install squid
/etc/squid/squid.conf
acl mynetwork src 192.168.1.0/255.255.255.0
http_access allow mynetwork
apt-get install ntpdate
smbldap-useradd -a -d /home/user1 -k /etc/skel user1
smbldap-passwd user1
\\SERVER\homes\<user>
\\SERVER\homes\<user>\profile
smbldap-adduser.sh
#!/bin/bash
if [ ! -e /home/$1 ] ; then
echo "Creating home dir for $1" >>/var/log/smbldap-adduser.log
mkdir -p /home/$1
cp /etc/skel/* /home/$1
cp /etc/skel/.* /home/$1
fi
mkdir -p /home/$1/profile
smbldap-useradd -a -d /home/$1 $1
smbldap-usermod -C "" $1
smbldap-usermod -D "" $1
smbldap-usermod -E "" $1
smbldap-usermod -F "" $1
chown -R "$1":"Domain Users" /home/$1
chmod -R 750 /home/$1
smbldap-passwd $1
exit 0
chown -R "Administrator":"Domain Users" /home/samba/netlogon/
chown -R "Administrator":"Domain Users" /home/samba/profiles/
chmod 740 /home/samba/netlogon/<user>.cmd
.gif){kind=logo}
