Sending Appointments to Outlook via SMTP

Imports System.Net.Mail
Module Module1
    Sub Main()
        Dim MyAppt As New AppointmentBLL(RoundUpToQuarterHour(Now.AddMinutes(60)), RoundUpToQuarterHour(Now.AddMinutes(90)), "Subject", "Open to discuss", "Location", "To@to.org", "To@to.org", "From@From.org", "From@From.org")
        MyAppt.EmailAppointment()
    End Sub
    Function RoundUpToQuarterHour(ByVal theDate As Date) As Date
        Do Until theDate.Minute Mod 15 = 0
            theDate = theDate.AddMinutes(1)
        Loop
        theDate = theDate.AddSeconds(-(theDate.Second)) 'Remove the seconds
        Return theDate
    End Function
End Module
Public Class AppointmentBLL
    ' This class formats and sends a meeting request via SMTP email
    Public StartDate As DateTime
    Public EndDate As DateTime
    Public Subject As String
    Public Summary As String
    Public Location As String
    Public AttendeeName As String
    Public AttendeeEmail As String
    Public OrganizerName As String
    Public OrganizerEmail As String
    Public Sub New(ByVal pdtStartDate As DateTime,
                    ByVal pdtEndDate As DateTime,
                    ByVal psSubject As String,
                    ByVal psSummary As String,
                    ByVal psLocation As String,
                    ByVal psAttendeeName As String,
                    ByVal psAttendeeEmail As String,
                    ByVal psOrganizerName As String,
                    ByVal psOrganizerEmail As String)
        ' Copy constructor parameters to public propeties
        StartDate = pdtStartDate
        EndDate = pdtEndDate
        Subject = psSubject
        Summary = psSummary
        Location = psLocation
        AttendeeName = psAttendeeName
        AttendeeEmail = psAttendeeEmail
        OrganizerName = psOrganizerName
        OrganizerEmail = psOrganizerEmail
    End Sub
    Public Sub EmailAppointment()
        ' Send the calendar message to the attendee
        Dim loMsg As New MailMessage
        Dim loTextView As AlternateView = Nothing
        Dim loHTMLView As AlternateView = Nothing
        Dim loCalendarView As AlternateView = Nothing
        Dim loSMTPServer As New SmtpClient("exchange.info.sys")
        ' SMTP settings set up in web.config such as:
        '  &lt;system.net&gt;
        '   &lt;mailSettings&gt;
        '    &lt;smtp&gt;
        '     &lt;network
        '       host = "exchange.mycompany.com"
        '       port = "25"
        '       userName = "username"
        '       password="password" /&gt;
        '    &lt;/smtp&gt;
        '   &lt;/mailSettings&gt;
        '  &lt;/system.net&gt;
        ' Set up the different mime types contained in the message
        Dim loTextType As System.Net.Mime.ContentType = New System.Net.Mime.ContentType("text/plain")
        Dim loHTMLType As System.Net.Mime.ContentType = New System.Net.Mime.ContentType("text/html")
        Dim loCalendarType As System.Net.Mime.ContentType = New System.Net.Mime.ContentType("text/calendar")
        ' Add parameters to the calendar header
        loCalendarType.Parameters.Add("method", "REQUEST")
        loCalendarType.Parameters.Add("name", "meeting.ics")
        ' Create message body parts
        loTextView = AlternateView.CreateAlternateViewFromString(BodyText(), loTextType)
        loMsg.AlternateViews.Add(loTextView)
        loHTMLView = AlternateView.CreateAlternateViewFromString(BodyHTML(), loHTMLType)
        loMsg.AlternateViews.Add(loHTMLView)
        loCalendarView = AlternateView.CreateAlternateViewFromString(VCalendar(), loCalendarType)
        loCalendarView.TransferEncoding = Net.Mime.TransferEncoding.SevenBit
        loMsg.AlternateViews.Add(loCalendarView)
        ' Adress the message
        loMsg.From = New MailAddress(OrganizerEmail)
        loMsg.To.Add(New MailAddress(AttendeeEmail))
        loMsg.Subject = Subject
        ' Send the message
        loSMTPServer.DeliveryMethod = SmtpDeliveryMethod.Network
        loSMTPServer.Send(loMsg)
    End Sub
    Public Function BodyText() As String
        ' Return the Body in text format
        Const BODY_TEXT =
            "Type:Single Meeting" &amp; vbCrLf &amp;
            "Organizer: {0}" &amp; vbCrLf &amp;
            "Start Time:{1}" &amp; vbCrLf &amp;
            "End Time:{2}" &amp; vbCrLf &amp;
            "Time Zone:{3}" &amp; vbCrLf &amp;
            "Location: {4}" &amp; vbCrLf &amp;
            vbCrLf &amp;
            "*~*~*~*~*~*~*~*~*~*" &amp; vbCrLf &amp;
            vbCrLf &amp;
            "{5}"
        Return String.Format(BODY_TEXT,
                            OrganizerName,
                            StartDate.ToLongDateString &amp; " " &amp; StartDate.ToLongTimeString,
                            EndDate.ToLongDateString &amp; " " &amp; EndDate.ToLongTimeString,
                            System.TimeZone.CurrentTimeZone.StandardName,
                            Location,
                            Summary)
    End Function
    Public Function BodyHTML() As String
        ' Return the Body in HTML format
        Const BODY_HTML =
                "&lt;!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 3.2//EN""&gt;" &amp; vbCrLf &amp;
                "&lt;HTML&gt;" &amp; vbCrLf &amp;
                "&lt;HEAD&gt;" &amp; vbCrLf &amp;
                "&lt;META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=utf-8""&gt;" &amp; vbCrLf &amp;
                "&lt;META NAME=""Generator"" CONTENT=""MS Exchange Server version 6.5.7652.24""&gt;" &amp; vbCrLf &amp;
                "&lt;TITLE&gt;{0}&lt;/TITLE&gt;" &amp; vbCrLf &amp;
                "&lt;/HEAD&gt;" &amp; vbCrLf &amp;
                "&lt;BODY&gt;" &amp; vbCrLf &amp;
                "&lt;!-- Converted from text/plain format --&gt;" &amp; vbCrLf &amp;
                "&lt;P&gt;&lt;FONT SIZE=2&gt;Type:Single Meeting&lt;BR&gt;" &amp; vbCrLf &amp;
                "Organizer:{1}&lt;BR&gt;" &amp; vbCrLf &amp;
                "Start Time:{2}&lt;BR&gt;" &amp; vbCrLf &amp;
                "End Time:{3}&lt;BR&gt;" &amp; vbCrLf &amp;
                "Time Zone:{4}&lt;BR&gt;" &amp; vbCrLf &amp;
                "Location:{5}&lt;BR&gt;" &amp; vbCrLf &amp;
                "&lt;BR&gt;" &amp; vbCrLf &amp;
                "*~*~*~*~*~*Generated by Server*~*~*~*~*~*&lt;BR&gt;" &amp; vbCrLf &amp;
                "&lt;BR&gt;" &amp; vbCrLf &amp;
                "{6}&lt;BR&gt;" &amp; vbCrLf &amp;
                "&lt;/FONT&gt;" &amp; vbCrLf &amp;
                "&lt;/P&gt;" &amp; vbCrLf &amp;
                vbCrLf &amp;
                "&lt;/BODY&gt;" &amp; vbCrLf &amp;
                "&lt;/HTML&gt;"
        Return String.Format(BODY_HTML,
                            Summary,
                            OrganizerName,
                            StartDate.ToLongDateString &amp; " " &amp; StartDate.ToLongTimeString,
                            EndDate.ToLongDateString &amp; " " &amp; EndDate.ToLongTimeString,
                            System.TimeZone.CurrentTimeZone.StandardName,
                            Location,
                            Summary)
    End Function
    ' Reference to Microsoft ActiveX Data Objects 2.5 Library
    ' Reference to Microsoft CDO for Exchange 2000 Library
    ' Reference to Active DS Type Library
    ' Note: It is recommended that all input parameters be validated when they are
    ' first obtained from the user or user interface.
    Function GetFreeBusyString(ByVal strUserUPN As String, ByVal dtStartDate As Date,
                               ByVal dtEndDate As Date, ByVal Interval As Integer) As String
        Try
            ' Variables.
            'Dim iAddr As New CDO.Addressee()
            'Dim freebusy As String
            'Dim Info As New ActiveDs.ADSystemInfo()
            'iAddr.EmailAddress = strUserUPN
            'If Not iAddr.CheckName("LDAP://" &amp; Info.DomainDNSName) Then
            'Throw New System.Exception("Error occured!")
            'End If
            ' Get the free/busy status in Interval minute intervals
            ' from dtStartDate to dtEndDate.
            'freebusy = iAddr.GetFreeBusy(dtStartDate, dtEndDate, Interval)
            'GetFreeBusyString = freebusy
        Catch err As Exception
            Console.WriteLine(err.ToString())
            GetFreeBusyString = ""
        End Try
    End Function
    Public Function VCalendar() As String
        ' Return the Calendar text in vCalendar format, compatible with most calendar programs
        Const lcDateFormat = "yyyyMMddTHHmmssZ"
        Dim loGUID As Guid = Guid.NewGuid  ' Or use the guid of an exiting meeting?
        Const VCAL_FILE = "BEGIN:VCALENDAR" &amp; vbCrLf &amp;
        "METHOD:REQUEST" &amp; vbCrLf &amp;
        "PRODID:Microsoft CDO for Microsoft Exchange" &amp; vbCrLf &amp;
        "VERSION:2.0" &amp; vbCrLf &amp;
        "BEGIN:VTIMEZONE" &amp; vbCrLf &amp;
        "TZID:(GMT-06.00) Central Time (US &amp; Canada)" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-TZID:11" &amp; vbCrLf &amp;
        "BEGIN:STANDARD" &amp; vbCrLf &amp;
        "DTSTART:16010101T020000" &amp; vbCrLf &amp;
        "TZOFFSETFROM:-0500" &amp; vbCrLf &amp;
        "TZOFFSETTO:-0600" &amp; vbCrLf &amp;
        "RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=11;BYDAY=1SU" &amp; vbCrLf &amp;
        "END:STANDARD" &amp; vbCrLf &amp;
        "BEGIN:DAYLIGHT" &amp; vbCrLf &amp;
        "DTSTART:16010101T020000" &amp; vbCrLf &amp;
        "TZOFFSETFROM:-0600" &amp; vbCrLf &amp;
        "TZOFFSETTO:-0500" &amp; vbCrLf &amp;
        "RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=3;BYDAY=2SU" &amp; vbCrLf &amp;
        "END:DAYLIGHT" &amp; vbCrLf &amp;
        "END:VTIMEZONE" &amp; vbCrLf &amp;
        "BEGIN:VEVENT" &amp; vbCrLf &amp;
        "DTSTAMP:{8}" &amp; vbCrLf &amp;
        "DTSTART:{0}" &amp; vbCrLf &amp;
        "SUMMARY:{7}" &amp; vbCrLf &amp;
        "UID:{5}" &amp; vbCrLf &amp;
        "ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;RSVP=TRUE;CN=""{9}"":MAILTO:{9}" &amp; vbCrLf &amp;
        "ACTION;RSVP=TRUE;CN=""{4}"":MAILTO:{4}" &amp; vbCrLf &amp;
        "ORGANIZER;CN=""{3}"":mailto:{4}" &amp; vbCrLf &amp;
        "LOCATION:{2}" &amp; vbCrLf &amp;
        "DTEND:{1}" &amp; vbCrLf &amp;
        "DESCRIPTION:{7}\N" &amp; vbCrLf &amp;
        "SEQUENCE:1" &amp; vbCrLf &amp;
        "PRIORITY:5" &amp; vbCrLf &amp;
        "CLASS:" &amp; vbCrLf &amp;
        "CREATED:{8}" &amp; vbCrLf &amp;
        "LAST-MODIFIED:{8}" &amp; vbCrLf &amp;
        "STATUS:CONFIRMED" &amp; vbCrLf &amp;
        "TRANSP:OPAQUE" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-BUSYSTATUS:BUSY" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-INSTTYPE:0" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-INTENDEDSTATUS:BUSY" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-ALLDAYEVENT:FALSE" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-IMPORTANCE:1" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-OWNERAPPTID:-1" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-ATTENDEE-CRITICAL-CHANGE:{8}" &amp; vbCrLf &amp;
        "X-MICROSOFT-CDO-OWNER-CRITICAL-CHANGE:{8}" &amp; vbCrLf &amp;
        "BEGIN:VALARM" &amp; vbCrLf &amp;
        "ACTION:DISPLAY" &amp; vbCrLf &amp;
        "DESCRIPTION:REMINDER" &amp; vbCrLf &amp;
        "TRIGGER;RELATED=START:-PT00H15M00S" &amp; vbCrLf &amp;
        "END:VALARM" &amp; vbCrLf &amp;
        "END:VEVENT" &amp; vbCrLf &amp;
        "END:VCALENDAR" &amp; vbCrLf
        Return String.Format(VCAL_FILE,
                            StartDate.ToUniversalTime().ToString(lcDateFormat),
                            EndDate.ToUniversalTime().ToString(lcDateFormat),
                            Location,
                            OrganizerName,
                            OrganizerEmail,
                            "{" &amp; loGUID.ToString() &amp; "}",
                            Summary,
                            Subject,
                            Now.ToUniversalTime().ToString(lcDateFormat),
                            AttendeeEmail)
    End Function
End Class

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

211

212

213

214

215

216

217

218

219

220

221

222

223

224

225

226

227

228

229

230

231

232

233

234

235

236

237

238

239

240

Imports System.Net.Mail

Module Module1

Sub Main()

Dim MyAppt As New AppointmentBLL(RoundUpToQuarterHour(Now.AddMinutes(60)), RoundUpToQuarterHour(Now.AddMinutes(90)), "Subject", "Open to discuss", "Location", "To@to.org", "To@to.org", "From@From.org", "From@From.org")

MyAppt.EmailAppointment()

End Sub

Function RoundUpToQuarterHour(ByVal theDate As Date) As Date

Do Until theDate.Minute Mod 15 = 0

theDate = theDate.AddMinutes(1)

Loop

theDate = theDate.AddSeconds(-(theDate.Second)) 'Remove the seconds

Return theDate

End Function

End Module

Public Class AppointmentBLL

' This class formats and sends a meeting request via SMTP email

Public StartDate As DateTime

Public EndDate As DateTime

Public Subject As String

Public Summary As String

Public Location As String

Public AttendeeName As String

Public AttendeeEmail As String

Public OrganizerName As String

Public OrganizerEmail As String

Public Sub New(ByVal pdtStartDate As DateTime,

ByVal pdtEndDate As DateTime,

ByVal psSubject As String,

ByVal psSummary As String,

ByVal psLocation As String,

ByVal psAttendeeName As String,

ByVal psAttendeeEmail As String,

ByVal psOrganizerName As String,

ByVal psOrganizerEmail As String)

' Copy constructor parameters to public propeties

StartDate = pdtStartDate

EndDate = pdtEndDate

Subject = psSubject

Summary = psSummary

Location = psLocation

AttendeeName = psAttendeeName

AttendeeEmail = psAttendeeEmail

OrganizerName = psOrganizerName

OrganizerEmail = psOrganizerEmail

End Sub

Public Sub EmailAppointment()

' Send the calendar message to the attendee

Dim loMsg As New MailMessage

Dim loTextView As AlternateView = Nothing

Dim loHTMLView As AlternateView = Nothing

Dim loCalendarView As AlternateView = Nothing

Dim loSMTPServer As New SmtpClient("exchange.info.sys")

' SMTP settings set up in web.config such as:

' <system.net>

' <mailSettings>

' <smtp>

' <network

' host = "exchange.mycompany.com"

' port = "25"

' userName = "username"

' password="password" />

' </smtp>

' </mailSettings>

' </system.net>

' Set up the different mime types contained in the message

Dim loTextType As System.Net.Mime.ContentType = New System.Net.Mime.ContentType("text/plain")

Dim loHTMLType As System.Net.Mime.ContentType = New System.Net.Mime.ContentType("text/html")

Dim loCalendarType As System.Net.Mime.ContentType = New System.Net.Mime.ContentType("text/calendar")

' Add parameters to the calendar header

loCalendarType.Parameters.Add("method", "REQUEST")

loCalendarType.Parameters.Add("name", "meeting.ics")

' Create message body parts

loTextView = AlternateView.CreateAlternateViewFromString(BodyText(), loTextType)

loMsg.AlternateViews.Add(loTextView)

loHTMLView = AlternateView.CreateAlternateViewFromString(BodyHTML(), loHTMLType)

loMsg.AlternateViews.Add(loHTMLView)

loCalendarView = AlternateView.CreateAlternateViewFromString(VCalendar(), loCalendarType)

loCalendarView.TransferEncoding = Net.Mime.TransferEncoding.SevenBit

loMsg.AlternateViews.Add(loCalendarView)

' Adress the message

loMsg.From = New MailAddress(OrganizerEmail)

loMsg.To.Add(New MailAddress(AttendeeEmail))

loMsg.Subject = Subject

' Send the message

loSMTPServer.DeliveryMethod = SmtpDeliveryMethod.Network

loSMTPServer.Send(loMsg)

End Sub

Public Function BodyText() As String

' Return the Body in text format

Const BODY_TEXT =

"Type:Single Meeting" & vbCrLf &

"Organizer: {0}" & vbCrLf &

"Start Time:{1}" & vbCrLf &

"End Time:{2}" & vbCrLf &

"Time Zone:{3}" & vbCrLf &

"Location: {4}" & vbCrLf &

vbCrLf &

"*~*~*~*~*~*~*~*~*~*" & vbCrLf &

vbCrLf &

"{5}"

Return String.Format(BODY_TEXT,

OrganizerName,

StartDate.ToLongDateString & " " & StartDate.ToLongTimeString,

EndDate.ToLongDateString & " " & EndDate.ToLongTimeString,

System.TimeZone.CurrentTimeZone.StandardName,

Location,

Summary)

End Function

Public Function BodyHTML() As String

' Return the Body in HTML format

Const BODY_HTML =

"<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 3.2//EN"">" & vbCrLf &

"<HTML>" & vbCrLf &

"<HEAD>" & vbCrLf &

"<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=utf-8"">" & vbCrLf &

"<META NAME=""Generator"" CONTENT=""MS Exchange Server version 6.5.7652.24"">" & vbCrLf &

"<TITLE>{0}</TITLE>" & vbCrLf &

"</HEAD>" & vbCrLf &

"<BODY>" & vbCrLf &

"" & vbCrLf &

"Type:Single Meeting " & vbCrLf &

"Organizer:{1} " & vbCrLf &

"Start Time:{2} " & vbCrLf &

"End Time:{3} " & vbCrLf &

"Time Zone:{4} " & vbCrLf &

"Location:{5} " & vbCrLf &

" " & vbCrLf &

"*~*~*~*~*~*Generated by Server*~*~*~*~*~* " & vbCrLf &

" " & vbCrLf &

"{6} " & vbCrLf &

"" & vbCrLf &

"" & vbCrLf &

vbCrLf &

"</BODY>" & vbCrLf &

"</HTML>"

Return String.Format(BODY_HTML,

Summary,

OrganizerName,

StartDate.ToLongDateString & " " & StartDate.ToLongTimeString,

EndDate.ToLongDateString & " " & EndDate.ToLongTimeString,

System.TimeZone.CurrentTimeZone.StandardName,

Location,

Summary)

End Function

' Reference to Microsoft ActiveX Data Objects 2.5 Library

' Reference to Microsoft CDO for Exchange 2000 Library

' Reference to Active DS Type Library

' Note: It is recommended that all input parameters be validated when they are

' first obtained from the user or user interface.

Function GetFreeBusyString(ByVal strUserUPN As String, ByVal dtStartDate As Date,

ByVal dtEndDate As Date, ByVal Interval As Integer) As String

Try

' Variables.

'Dim iAddr As New CDO.Addressee()

'Dim freebusy As String

'Dim Info As New ActiveDs.ADSystemInfo()

'iAddr.EmailAddress = strUserUPN

'If Not iAddr.CheckName("LDAP://" & Info.DomainDNSName) Then

'Throw New System.Exception("Error occured!")

'End If

' Get the free/busy status in Interval minute intervals

' from dtStartDate to dtEndDate.

'freebusy = iAddr.GetFreeBusy(dtStartDate, dtEndDate, Interval)

'GetFreeBusyString = freebusy

Catch err As Exception

Console.WriteLine(err.ToString())

GetFreeBusyString = ""

End Try

End Function

Public Function VCalendar() As String

' Return the Calendar text in vCalendar format, compatible with most calendar programs

Const lcDateFormat = "yyyyMMddTHHmmssZ"

Dim loGUID As Guid = Guid.NewGuid ' Or use the guid of an exiting meeting?

Const VCAL_FILE = "BEGIN:VCALENDAR" & vbCrLf &

"METHOD:REQUEST" & vbCrLf &

"PRODID:Microsoft CDO for Microsoft Exchange" & vbCrLf &

"VERSION:2.0" & vbCrLf &

"BEGIN:VTIMEZONE" & vbCrLf &

"TZID:(GMT-06.00) Central Time (US & Canada)" & vbCrLf &

"X-MICROSOFT-CDO-TZID:11" & vbCrLf &

"BEGIN:STANDARD" & vbCrLf &

"DTSTART:16010101T020000" & vbCrLf &

"TZOFFSETFROM:-0500" & vbCrLf &

"TZOFFSETTO:-0600" & vbCrLf &

"RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=11;BYDAY=1SU" & vbCrLf &

"END:STANDARD" & vbCrLf &

"BEGIN:DAYLIGHT" & vbCrLf &

"DTSTART:16010101T020000" & vbCrLf &

"TZOFFSETFROM:-0600" & vbCrLf &

"TZOFFSETTO:-0500" & vbCrLf &

"RRULE:FREQ=YEARLY;WKST=MO;INTERVAL=1;BYMONTH=3;BYDAY=2SU" & vbCrLf &

"END:DAYLIGHT" & vbCrLf &

"END:VTIMEZONE" & vbCrLf &

"BEGIN:VEVENT" & vbCrLf &

"DTSTAMP:{8}" & vbCrLf &

"DTSTART:{0}" & vbCrLf &

"SUMMARY:{7}" & vbCrLf &

"UID:{5}" & vbCrLf &

"ATTENDEE;ROLE=REQ-PARTICIPANT;PARTSTAT=NEEDS-ACTION;RSVP=TRUE;CN=""{9}"":MAILTO:{9}" & vbCrLf &

"ACTION;RSVP=TRUE;CN=""{4}"":MAILTO:{4}" & vbCrLf &

"ORGANIZER;CN=""{3}"":mailto:{4}" & vbCrLf &

"LOCATION:{2}" & vbCrLf &

"DTEND:{1}" & vbCrLf &

"DESCRIPTION:{7}\N" & vbCrLf &

"SEQUENCE:1" & vbCrLf &

"PRIORITY:5" & vbCrLf &

"CLASS:" & vbCrLf &

"CREATED:{8}" & vbCrLf &

"LAST-MODIFIED:{8}" & vbCrLf &

"STATUS:CONFIRMED" & vbCrLf &

"TRANSP:OPAQUE" & vbCrLf &

"X-MICROSOFT-CDO-BUSYSTATUS:BUSY" & vbCrLf &

"X-MICROSOFT-CDO-INSTTYPE:0" & vbCrLf &

"X-MICROSOFT-CDO-INTENDEDSTATUS:BUSY" & vbCrLf &

"X-MICROSOFT-CDO-ALLDAYEVENT:FALSE" & vbCrLf &

"X-MICROSOFT-CDO-IMPORTANCE:1" & vbCrLf &

"X-MICROSOFT-CDO-OWNERAPPTID:-1" & vbCrLf &

"X-MICROSOFT-CDO-ATTENDEE-CRITICAL-CHANGE:{8}" & vbCrLf &

"X-MICROSOFT-CDO-OWNER-CRITICAL-CHANGE:{8}" & vbCrLf &

"BEGIN:VALARM" & vbCrLf &

"ACTION:DISPLAY" & vbCrLf &

"DESCRIPTION:REMINDER" & vbCrLf &

"TRIGGER;RELATED=START:-PT00H15M00S" & vbCrLf &

"END:VALARM" & vbCrLf &

"END:VEVENT" & vbCrLf &

"END:VCALENDAR" & vbCrLf

Return String.Format(VCAL_FILE,

StartDate.ToUniversalTime().ToString(lcDateFormat),

EndDate.ToUniversalTime().ToString(lcDateFormat),

Location,

OrganizerName,

OrganizerEmail,

"{" & loGUID.ToString() & "}",

Summary,

Subject,

Now.ToUniversalTime().ToString(lcDateFormat),

AttendeeEmail)

End Function

End Class

Sending Appointments to Outlook via SMTP

Leave a comment

Cancel reply