Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共13 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

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

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
图片点击可在新窗口打开查看
6楼
有点蓝 发表于:2024/6/23 22:32:00
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
……
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编辑过]
共13 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03516 s, 3 queries.