[浏览完整版]
标题：工资条只生成当前行的数据且发送邮件不成功
1楼
foxyuan 发表于：2024/6/23 3:27:00请教：如附件代码，弹出窗口显示是不同的人不同的数据，但生成的工资条除了文件名不同外，工资条里面的数据都是当前行的数据。过程不报错，但邮件发送都不成功。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:无标题-4.txt |
2楼
foxyuan 发表于：2024/6/23 11:55:00我看有的贴子可以发代码，我发不了？
3楼
有点蓝 发表于：2024/6/23 21:00:00所有邮件都不成功？
先使用最简单的方式发送最简单的内容，看看能不能发送：http://www.foxtable.com/webhelp/topics/1404.htm，使用Send，不要使用SendAsync，看提示什么错误。
不行再换个端口试试：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=146684
4楼
foxyuan 发表于：2024/6/23 22:24:00现在两个问题：1）全有的邮件发送都不成功。2）Reports目录下生成的工资条，除了文件名不一样，里面的内容都是当前行的数据，不是对应的每一行的数据。
5楼
foxyuan 发表于：2024/6/23 22:29:00换成同步，报错如下。
此主题相关图片如下：无标题.jpg
此主题相关图片如下：无标题.jpg6楼
有点蓝 发表于：2024/6/23 22:32:001、发送按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
……
7楼
有点蓝 发表于：2024/6/23 22:57:00【无法从传输链接中读取数据】-- 应该是无法读取execl文件。试试不发送附件，或者发送一个简单的记事本文件有没有问题？
8楼
foxyuan 发表于：2024/6/23 23:36:00用遍历table，解决了都是当前行数据的问题。
之前密码有误，公司邮箱开启了第三方客户端密码，现在更换过来了，报错信息仍是上图。
9楼
有点蓝 发表于：2024/6/24 8:40:00不发送附件报什么错？
10楼
cd_tdh 发表于：2024/6/24 11:07:00不用附件试试，我的是不用附件，可以参考一下：
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()
Next
Else
MessageBox.Show ("请先勾选要发送的数据！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
Return
End if
[此贴子已经被作者于2024/6/24 11:10:53编辑过]