Mail.Initialize("smtp.gmail.com", 587, "[email protected]", "xxxxxxxxxxx", "SMTP")
Mail.StartTLSMode = True
Mail.To.Add("[email protected]")
Mail.Subject = "This is subjek"
Mail.Body = "This is body"
Mail.AddAttachment(File.DirRootExternal,"/kunjungan ke - "&(No)&".pdf")
Mail.Sender = "[email protected]"
Mail.Send