把字符发送出去 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 把字符发送出去

共有3101人关注过本帖树形打印复制链接主题：把字符发送出去

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/20 21:26:00 [显示全部帖子]

发送邮件看这里，至于证明编写代码，看你的需求了

http://www.foxtable.com/help/topics/1404.htm

http://www.foxtable.com/help/topics/2284.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/20 21:40:00 [显示全部帖子]

以下是引用yangwenghd在2014-4-20 21:36:00的发言：
甜兄弟分别写在那里面啊

看你的实际而定，如果是想某个事件之后触发，就写到某个事件里。

如果是想通过按钮触发，就写到按钮里。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/20 22:09:00 [显示全部帖子]

类似这样

Dim m As New MailSender

m.Host = "smtp.126.com"

m.Account = "lin_hailun@126.com"

m.Password = "6849338."

m.From = "lin_hailun@126.com"

m.To = "spring.me@qq.com"

m.Title = "主题"

m.Content = "内容" '这里的内容，看你具体的内容而定，或者上传一个例子说明

m.Send

msgbox("发送完毕")

[此贴子已经被作者于2014-4-20 22:08:59编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/20 22:17:00 [显示全部帖子]

以下是引用yangwenghd在2014-4-20 22:13:00的发言：

m.Host = "smtp.126.com"

这个"smtp.126.com"是什么啊我用的就是126的就不用管吗

谢谢好兄弟

如果是 qq，就写 smtp.qq.com

如果是 163，就写 smtp.163.com

如果是 21cn.net，就写 smtp.21cn.net

你测试一次便知结果。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/20 22:39:00 [显示全部帖子]

以下是引用yangwenghd在2014-4-20 22:31:00的发言：
怎么把内容改成列里面的文字啊！现在邮件把那些都设置好了但是发送过来是内容两个字，甜兄弟如果我发送窗口 Table 当前显示的第二列能帮我改一下吗？感激不尽！

所有行的第二列？

当前行的第二列 m.Content = Tables("xxx").Current("第二列")

全部行的第二列

Dim str As String = ""

For Each r As Row In Tables("xxx").Rows

str += r("第二列")

m.Content = str

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/4/21 22:00:00 [显示全部帖子]

Dim m As New MailSender
m.Host = "smtp.126.com"
m.Account = "yangwenghd@126.com"
m.Password = " "
m.From = "yangwenghd@126.com"
m.To = "294068455@qq.com"
m.Title = "下周工作计划"

Dim str As String = ""

For Each r As Row In Tables("计划表窗口_Table1").Rows

str += r("下周工作计划") & ","

For Each r As Row In Tables("计划表窗口_Table2").Rows

str += r("下周工作计划") & ","

For Each r As Row In Tables("计划表窗口_Table3").Rows

str += r("下周工作计划") & ","

For Each r As Row In Tables("计划表窗口_Table4").Rows

str += r("下周工作计划") & ","

m.Content = str.Trim(",")
m.Send
msgbox("发送完毕")

下一主题 >> << 上一主题

主题：把字符发送出去