当我测试发送的时候
他就会跳出这个来，
我要怎么定义mail呢

mail.Charset = Charset '邮件编码
mail.ContentType = ContentType '内容编码
mail.From = From '发件人地址
mail.FromName = FromName '发件人名称
mail.AddRecipient Recipient '接收者邮件地址
mail.MailServerUserName = UserName 'SMTP用户名
mail.MailServerPassword = Password 'SMTP密码
mail.Priority = Priority '优先级
mail.ServerAddress = Addr 'Smtp服务器地址
mail.Subject = Subject '邮件主题
mail.Body = Body '邮件内容
mail.Send '发送