工资条只生成当前行的数据且发送邮件不成功 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教：如附件代码，弹出窗口显示是不同的人不同的数据，但生成的工资条除了文件名不同外，工资条里面的数据都是当前行的数据。过程不报错，但邮件发送都不成功。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:无标题-4.txt

我看有的贴子可以发代码，我发不了？

所有邮件都不成功？

先使用最简单的方式发送最简单的内容，看看能不能发送：http://www.foxtable.com/webhelp/topics/1404.htm，使用Send，不要使用SendAsync，看提示什么错误。

不行再换个端口试试：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146684

现在两个问题：1）全有的邮件发送都不成功。2）Reports目录下生成的工资条，除了文件名不一样，里面的内容都是当前行的数据，不是对应的每一行的数据。

换成同步，报错如下。
图片点击可在新窗口打开查看

此主题相关图片如下：无标题.jpg

1、发送按3楼的方法测试

2、【都是当前行的数据】是因为：http://www.foxtable.com/webhelp/topics/0201.htm

建议改为遍历table

Dim r1 As Row = Tables("工资").Current

If Tables("工资").Current IsNot Nothing Then

Tables("工资").filter = "[年度] = " & r1("年度") & " and [月份] = " & r1("月份")

For Each r As Row In Tables("工资").rows

Tables("工资").position = r.index

Dim Book As New XLS.Book(ProjectPath & "Attachments\工资条.xls")

Dim m As New MailSender

……

【无法从传输链接中读取数据】-- 应该是无法读取execl文件。试试不发送附件，或者发送一个简单的记事本文件有没有问题？

用遍历table，解决了都是当前行数据的问题。

不发送附件或发送记事本文件都不行，仍发送不成功，报错。

之前密码有误，公司邮箱开启了第三方客户端密码，现在更换过来了，报错信息仍是上图。

不发送附件报什么错？

不用附件试试，我的是不用附件，可以参考一下：

Dim m As New MailSender

m.Host = "smtp.qq.com" '用于指定主机地址,可以是域名,也可以是IP地址,不需要修改

m.EnableSsl = True '必须将EnableSsl属性设置为True

m.Account = "2********1" '用于指定登录邮件服务器的帐号,使用那个账号发送邮件

m.Password = "me************ee" '注意这不是QQ密码,是授权码,请自行申请

m.From = "2********1@qq.com" '指定发件人的邮件地址

Dim rs As List(Of Row) = Tables("工资发送表").GetCheckedRows()

If rs.Count > 0 Then

For Each r As Row In rs

m.To = r("接收邮箱")

m.Title = r("所属年度") & "年" & r("所属月度") & "月" & "工资发放详情" '邮件标题

Dim v As String

v = "基本工资：" & r("基本工资") & "元；" & "工龄工资：" & r("工龄工资") & "元；"

v = v & vbcrlf & "全勤工资：" & r("全勤工资") & "元；" & "岗位工资：" & r("岗位工资") & "元；"

v = v & vbcrlf & "绩效工资：" & r("绩效工资") & "元；" & "证书补贴：" & r("证书补贴") & "元；"

v = v & vbcrlf & "午餐补贴：" & r("午餐补贴") & "元。"

v = v & vbcrlf & "应扣社保：" & r("应扣社保") & "元；" & "应扣个税：" & r("应扣个税") & "元；"

v = v & vbcrlf & "应扣缺勤：" & r("应扣缺勤") & "元。"

v = v & vbcrlf & "实发工资：" & r("应发工资") & "元。"

m.Content = v

m.Send()

Else

MessageBox.Show ("请先勾选要发送的数据！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)

e.Cancel = True

Return

End if

[此贴子已经被作者于2024/6/24 11:10:53编辑过]

主题：工资条只生成当前行的数据且发送邮件不成功