VBプログラマのSharePoint開発-(1)- 通知設定

SPS2003ではリストにアイテムが追加されたときにメールで知らせる通知設定がありますが、この設定は自分で行うことが原則になっているようです。
しかし、開発を請け負った場合、通知設定まで行って引き渡す必要性が出てきます。
こんな時のために通知設定と解除行うSAMPLEプログラムを記載します。

SAMPLE
---------------------------------
事前に設定しておく変数
sSiteUrl = [表示したいサイトURL]
LoginName = [通知を追加したいユーザー]
ListName = [通知したいリスト名]
Flg = [登録したい場合：True、削除したい場合：False]
---------------------------------
Dim GlobalAdmin As New Microsoft.SharePoint.Administration.SPGlobalAdmin
Dim MyVirtualServer As Microsoft.SharePoint.Administration.SPVirtualServer
Dim MySPSite As Microsoft.SharePoint.SPSite
Dim MySPWeb As Microsoft.SharePoint.SPWeb
Dim MyUser As Microsoft.SharePoint.SPUser
Dim MyList As Microsoft.SharePoint.SPList
Dim k As Integer
Dim MyUri As New Uri(sSiteUrl)
MyVirtualServer = GlobalAdmin.OpenVirtualServer(MyUri)
MySPSite = MyVirtualServer.Sites(sSiteUrl.Replace("http://" & MyVirtualServer.HostName, ""))
MySPWeb = MySPSite.AllWebs(sSiteUrl.Replace("http://" & MyVirtualServer.HostName, ""))
'ユーザー取得
MyUser = MySPWeb.Users(LoginName)
'通知対象リスト取得
MyList = MySPWeb.Lists(ListName)
If Flg = True Then
'登録設定
MyUser.Alerts.Add(MyList, Microsoft.SharePoint.SPEventType.All, _ Microsoft.SharePoint.SPAlertFrequency.Immediate)
Else
'削除設定
For k = 0 To MyUser.Alerts.Count - 1
If MyList.Title = MyUser.Alerts(k).List.Title Then
MyUser.Alerts.Delete(k)
Exit For
End If
Next
End If