'Gmail will prevent access for your e-mail account from custom applications. 
'You need to turn on "Allow less secure apps" in your Google account.
'https://myaccount.google.com/lesssecureapps

      Try
         Dim Smtp_Server As New System.Net.Mail.SmtpClient

         Dim e_mail As New System.Net.Mail.MailMessage()
         Smtp_Server.UseDefaultCredentials = False
         Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
         Smtp_Server.Port = 587
         Smtp_Server.EnableSsl = True
         Smtp_Server.Host = "smtp.gmail.com"

         e_mail = New System.Net.Mail.MailMessage()
         e_mail.From = New System.Net.Mail.MailAddress("Your@mail.com", "Name")
         e_mail.To.Add("To@mail.com")
         e_mail.Subject = "From vMix Script"
         e_mail.IsBodyHtml = False
         e_mail.Body = "Test Email Send through vMix Scripting"
         Smtp_Server.Send(e_mail)
         console.writeline("Mail Sent")

      Catch error_t As Exception
         Console.WriteLine("failed to send email with the following error:")
         console.writeline(error_t.ToString)
      End Try

 
'gets name of callers and stores it in file named Caller_Log.txt

 'Fill in complete path to folder, end with \
dim FILEPATH as string = "C:\User\Example\Folder\"
dim FILENAME as string = "Caller_Log.txt"

' Leave the rest untouched

dim FILE as string = FILEPATH & FILENAME

dim callers() as string = {"caller1","caller2","caller3","caller4"}
dim nodes() as string = {"//input[@number=1]", "//input[@number=2]", "//input[@number=3]", "//input[@number=4]"}

dim i as integer = 0

do while true
	dim xml as string = API.XML()
	dim x as new system.xml.xmldocument
	x.loadxml(xml)
	do while i < 4
		dim node as string = nodes(i)
		dim caller as string = callers(i)
		dim name as string = (x.SelectSingleNode(node)).InnerText
		If name <> caller:
			Dim callerid As string = (i+1).ToString()
			Dim timeStamp As DateTime = DateTime.Now
    		Dim callertxt as string = "- New caller at ID" & " " & callerid & " - "& name
    		Dim writenew as string = timestamp & " " & callertxt
			System.IO.File.AppendAllText(FILE, writenew + Environment.NewLine)
			Console.writeline(writenew)
			callers(i) = name
		End If
	i = i+1
	loop
	
i = 0
sleep(1000)
loop