ex.
Dim myOlApp, myApptItem As Object
Dim olAppointmentItem As Integer = 1
Dim olBusy As Integer = 2
myOlApp = CreateObject("Outlook.Application")
myApptItem = myOlApp.CreateItem(olAppointmentItem)
With myApptItem
.Start = DateTime.Now.AddDays(1)
.End = DateTime.Now.AddDays(1 + 1 / 24)
.Subject = "©ú€Ñй®É€@€p®É·|ij"
.Location = "·|ijµo¥ÍŠaÂI"
.BusyStatus = olBusy ' Š£žL
.ReminderMinutesBeforeStart = 30 ' 30 €À«eŽ£¿ô
.Body = "³Æµù¡G" & vbNewLine & "µ{Š¡¶}µo¡G€ô®ü¬ì§Þšt²Î¬ãµoÅçÃÒ€u§@«Ç (http://tlcheng.no-ip.com/wwwmap.htm)"
.Save()
End With
©ó news:000d01c669d6%24dc09b7a0%240a03a8c0%40tlcheng µoªí
as title thanks
--
€ô®ü¬ì§Þšt²Î¬ãµoÅçÃÒ€u§@«Ç ASP.NET Web News Reader 0.2.0 UTF-8 Beta
·s»Džs²Õ RSSºô»xµo¥¬ŽúžÕ€€ http://tlcheng.no-ip.com/News/rss2.aspx
ºô¯žŠa¹Ï http://tlcheng.no-ip.com/wwwmap.htm
¬y°ìšŸ¬x/°Ï°ì€ôžê·œ/®}ª@ºô/ªŽºÀ¹Ï/»yµ³q°T €å³¹»Pµ{Š¡
Basic/Fortran/Windows API/.Net/»²§U»¡©úÀÉ ì©lœX¡B€å³¹»P°Qœ×
--
ASPNET News http://tlcheng.no-ip.com/News/ | http://tlcheng.twbbs.org/News/
RSS 2.0 http://tlcheng.no-ip.com/News/rss2.aspx?Action=List&Newsgroup=microsoft.public.tw.dotnet.languages.vb