Respond to a meeting request item (MailBee.NET Objects Tutorials)

' Download entire message from the server.
Dim msg As MailMessage =  pop.DownloadEntireMessage(1)

' Make sure this message is vCalendar event 
If msg.BodyParts("text/calendar").Text.Length > 0 Then
  calEvent = ParseCalendarRecord(msg.BodyParts("text/calendar").Text)
End If

' If we accepted the meeting request, generate and send the 
' confirmation message
' ("accepted" in the code below is a boolean whose value was 
' already set accordingly the decision made by the human user).
If calEvent.method = "REQUEST" And accepted Then
' The only difference between the request and the reply.
  calEvent.method = "REPLY"
 
  Dim mailer As New Smtp() 
 
  ' Create message
  mailer.Message.From.Email = "jdoe@domain.com"
  mailer.Message.To.Add(msg.From.Email)
  mailer.Message.Subject = "Meeting Request"
 
  ' Create calendar body
  mailer.Message.BodyParts.Add("text/calendar")
  mailer.Message.BodyParts("text/calendar").Text = CreateCalendarRecord(calEvent)
  ...
End If

Public Structure VCalendar
    Public year As Integer,month As Integer,day As Integer,hour As Integer,minute As Integer,second As Integer,duration As Integer
    Public summary As String,location As String,method As String
End Structure
 
Private Function CreateCalendarRecord(ByVal calEvent As VCalendar) As String
    Dim calRecord As String
    calRecord  = "BEGIN:VCalendar" + "\r\n"
    calRecord += "METHOD:" + calEvent.method + "\r\n"
    calRecord += "BEGIN:VEVENT" + "\r\n"
    calRecord += "DTSTART:" + calEvent.year.ToString("0000") + calEvent.month.ToString("00") + calEvent.day.ToString("00")
 
    calRecord += "T" + calEvent.hour.ToString("00") + calEvent.minute.ToString("00") + calEvent.second.ToString("00") + "Z\r\n"
 
    calEvent.hour += calEvent.duration
    calRecord += "DTEND:" + calEvent.year.ToString("0000") + calEvent.month.ToString("00") + calEvent.day.ToString("00")
 
    calRecord += "T" + calEvent.hour.ToString("00") + calEvent.minute.ToString("00") + calEvent.second.ToString("00") + "Z\r\n"
 
    calRecord += "LOCATION:" + calEvent.location + "\r\n"
    calRecord += "SUMMARY:" + calEvent.summary+ "\r\n"
    calRecord += "END:VEVENT" + "\r\n"
    calRecord += "END:VCalendar"
    Return calRecord
End Function
 
Private Function ParseCalendarRecord(ByVal msg_string As String) As VCalendar
    Dim calEvent As New VCalendar() 
    Dim lines() As String =  Nothing 
    Dim delimiterIdx As Integer
 
    Dim start_time As String
    Dim keyName As String,keyValue As String
 
    ' Split text on lines 
    lines = msg_string.Split(vbLf)
 
    ' Iterate thorough all lines
    Dim i As Integer
    For  i = 0 To  lines.Length- 1  Step  i + 1
        delimiterIdx = lines(i).IndexOf(":")
 
        ' If delimiter ':' char is found
        If delimiterIdx > 0 Then
            ' First part of the line is the required name 
            keyName = lines(i).Substring(0, delimiterIdx)
 
            ' To the right from delimiter is the value
            keyValue = lines(i).Substring(delimiterIdx + 1, lines(i).Length - delimiterIdx - 2)
 
            ' If next string begins with space - append it to description
            While i + 1 < lines.Length
                If lines(i + 1)(0) = ' ' Then
                    i = i + 1
                    keyValue += lines(i).Substring(1, lines(i).Length - 2)
                Else
                    Exit While
            End While
 
            ' Parse defenitions 
            Select Case keyName
                Case "METHOD"
                    calEvent.method = keyValue
                Case "DTSTART"
                    start_time = keyValue
                    calEvent.year = Integer.Parse(start_time.Substring(0,4))
                    calEvent.month = Integer.Parse(start_time.Substring(4,2))
                    calEvent.day = Integer.Parse(start_time.Substring(6,2))
                    calEvent.hour = Integer.Parse(start_time.Substring(9,2))
                    calEvent.minute = Integer.Parse(start_time.Substring(11,2))
                    calEvent.second = Integer.Parse(start_time.Substring(13,2))
                Case "LOCATION"
                    calEvent.location = keyValue
                Case "SUMMARY"
                    calEvent.summary = keyValue
                Case Else
            End Select
        End If
    Next
 
    Return calEvent
End Function
 
Dim pop As New Pop3() 
 
' Connect to POP3 server
pop.Connect("mail.domain.com")
pop.Login("jdoe","secret")
 
' Download entire message from the server.
Dim msg As MailMessage =  pop.DownloadEntireMessage(1) 
 
' Disconnect from POP3 server
pop.Disconnect()
 
Dim calEvent As New VCalendar() 
 
Dim isVCalItem As Boolean =  False 
 
' Make sure that this message is vCalendar event 
If msg.BodyParts("text/calendar").Text.Length < 0 Then
    calEvent = ParseCalendarRecord(msg.BodyParts("text/calendar").Text)
    isVCalItem = True
End If
 
' This flag indicates whether the request was accepted or not.
' Let's assume the human user decided to accept this meeting request.
Dim accepted As Boolean =  True 
 
' If request accepted then generate and send message
If isVCalItem And calEvent.method = "REQUEST" And accepted Then
    calEvent.method = "REPLY"
 
    Dim mailer As New Smtp() 
 
    ' Create message
    mailer.Message.From.Email = "jdoe@domain.com"
    mailer.Message.To.Add(msg.From.Email)
    mailer.Message.Subject = "Meeting Request"
 
    ' Create calendar body
    mailer.Message.BodyParts.Add("text/calendar")
    mailer.Message.BodyParts("text/calendar").Text = CreateCalendarRecord(calEvent)
 
    ' Connect to SMTP server and send meeting request
    mailer.SmtpServers.Add("mail.domain.com", "jdoe", "secret")
    mailer.Send()
End If