[原创]发送邮件按钮代码问题，提示空值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [原创]发送邮件按钮代码问题，提示空值？

共有5311人关注过本帖树形打印复制链接主题：[原创]发送邮件按钮代码问题，提示空值？

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/26 16:37:00 [显示全部帖子]

Dim cb1 As String = e.Form.Controls("combobox1").value
Dim cb2 As String = e.Form.Controls("combobox2").value
Dim tb2 As String = e.Form.Controls("textbox2").value
Dim tb3 As String = e.Form.Controls("textbox3").value
Dim tb4 As String = e.Form.Controls("textbox4").value
Dim m As New MailSender
m.Host = "mail.btte.net"
m.Account = "fsxmtidc"
m.Password = "*******"
m.From = "fsxmtidc@btte.net"
m.AddReceiver(cb1)
If cb2 > "" Then
m.AddReceiver(cb2)
End If
m.Title = tb2
m.Content = tb3
If tb4 > "" Then
m.AddAttachments(tb4)
End If
m.SendAsync()