需要修改的郵件代碼

 Public   Class   FrmSendMail  
          Inherits   System.Windows.Forms.Form  
          Dim   message   As   New   MailMessage()  
          '定义一个新的邮件消息  
          Dim   sendTo   As   String  
          '定义存取发送目的地址  
          Dim   sendFrom   As   String  
          '定义存取发送原址  
          Dim   Subject   As   String  
          '定义邮件标题  
          Dim   Attachs   As   MailAttachment  
          '定义邮件附件，注意，在这里一次只能添加一个附件  
          Dim   proity   As   MailPriority  
          '定义邮件发送优先级别  
  。。。。。。。。。。。。。。。。。。  
  Private   Sub   Button1_Click(ByVal   sender   As   System.Object,   _  
          ByVal   e   As   System.EventArgs)   Handles   Button1.Click  
                  Try  
                          Me.ComboBox1.SelectedIndex   =   0  
                          sendto   =   Me.TextBox1.Text  
                          sendfrom   =   Me.TextBox2.Text  
                          If   sendto   =   ""   Then  
                                  MessageBox.Show("没有邮件目的地址，请重新输入，"   &   _  
                                  "并注意格式的正确性。",   "错误",   _  
                                  MessageBoxButtons.OK,   MessageBoxIcon.Exclamation)  
                                  Exit   Sub  
                          End   If  
                          '获取并判断目的地址是否为空  
                          message.To   =   sendto  
                          message.From   =   sendfrom  
                          '设置邮件的发送目的地址和原址  
                          If   Me.RadioButton1.Checked   =   True   Then  
                                  message.BodyFormat   =   MailFormat.Text  
                          End   If  
                          If   Me.RadioButton2.Checked   =   True   Then  
                                  message.BodyFormat   =   MailFormat.Text  
                          End   If  
                          '选择邮件发送的格式  
                          message.BodyEncoding   =   System.Text.Encoding.UTF8  
                          '选择邮件发送的文本编码  
                          subject   =   Me.TextBox3.Text  
                          Dim   result   As   DialogResult  
                          If   subject   =   ""   Then  
                                  result   =   MessageBox.Show("该封邮件没有添加标题，不要标题吗？",   _  
                                  "提示",   MessageBoxButtons.YesNo,   MessageBoxIcon.Exclamation)  
                          End   If  
                          '判断该邮件是否具有标题  
                          If   result   =   DialogResult.No   Then   Exit   Sub  
                          '如果选择要添加标题，则退出过程等待添加标题  
                          message.Subject   =   subject  
                          '设置邮件发送标题  
                          message.Body   =   Me.RichTextBox1.Text  
                          '获取邮件发送的内容  
                          If   Me.TextBox4.Text   =   ""   Then  
                          Else  
                                  attachs   =   New   MailAttachment(Me.TextBox4.Text)  
                                  message.Attachments.Add(attachs)  
                                  '判断是否具有附件，如果有则连带附件发送  
                          End   If  
                          If   Me.TextBox5.Text   =   ""   Then  
                          Else  
                                  message.Cc   =   Me.TextBox5.Text  
                          End   If  
                          '判断是否有抄送地址  
                          SmtpMail.SmtpServer   =   "218.*.**.**"  
                          Try  
                                  SmtpMail.Send(message)  
                          Catch  
                                  MessageBox.Show(Err.Description,   "错误",   MessageBoxButtons.OK,   MessageBoxIcon.Error)  
                                  Exit   Sub  
                          End   Try  
                          '发送邮件  
                  Catch  
                          MessageBox.Show("邮件没有发送成功！原因是："   &   Err.Description,   _  
                          "错误",   MessageBoxButtons.OK,   MessageBoxIcon.Error)  
                          '获取可能发生意外的错误并通知用户  
                          Select   Case   Me.ComboBox1.SelectedIndex  
                                  Case   0  
                                          proity   =   MailPriority.Normal  
                                  Case   1  
                                          proity   =   MailPriority.High  
                                  Case   2  
                                          proity   =   MailPriority.Low  
                          End   Select  
                          message.Priority   =   proity  
                          '选择并设置邮件发送的优先级  
                          MessageBox.Show("邮件已经成功发送完毕。",   "提示",   _  
                          MessageBoxButtons.OK,   MessageBoxIcon.Information)  
                          '  
                  End   Try  
          End   Sub