Foxtable(狐表)用户栏目专家坐堂 → [求助]我需要做一个输入mail地址,然后点击后面 按钮能自动发送mail内容。


  共有13698人关注过本帖树形打印复制链接

主题:[求助]我需要做一个输入mail地址,然后点击后面 按钮能自动发送mail内容。

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 10:41:00 [显示全部帖子]

 参考这里来做。

 

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 10:43:00 [显示全部帖子]

 你的是盗版的foxtable开发版用户,还好意思上来提问?

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 11:14:00 [显示全部帖子]

 如下

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:临时版本跟踪系统3.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 11:59:00 [显示全部帖子]

以下是引用liujiyong在2014-6-23 11:55:00的发言:
你好。默认发送者为:lin_hailun@126.com.我想更换为另外一个mail发送。你是在哪里修改的?谢谢

 

代码写在表事件->CellButtonClick


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 14:14:00 [显示全部帖子]

哦,要改一下代码,如下

 

If e.Col.Name = "邮件" Then

    '发送邮件的代码

End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 16:15: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,Spring.me123@qq.com"
m.Title = "主题"
m.C 
m.Send
msgbox("发送完毕")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 16:36:00 [显示全部帖子]

 你灵活改一下。哎

 

m.To = e.Row("邮件")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/23 17:57:00 [显示全部帖子]

 回复19楼,你可以选择的,设置成自定义项目,选项二多个mail地址,代码不变,依然是可以发送的。

 

m.To = e.Row("邮件")


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/24 10:13:00 [显示全部帖子]

 这样变通一下

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:临时版本跟踪系统3.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/6/24 12:06:00 [显示全部帖子]

以下是引用liujiyong在2014-6-24 12:04:00的发言:
你这个发送列是设置的表达式吧。它是如何触发mail发送的?没看到相关代码。

 

在列属性设置自定义项目为 ... 就会出现按钮了,按钮代码在原来那个事件里。


 回到顶部
总数 56 1 2 3 4 5 6 下一页