Foxtable(狐表)用户栏目专家坐堂 → 抄写给多个收件人


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

主题:抄写给多个收件人

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
抄写给多个收件人  发帖心情 Post By:2017/10/25 22:27:00 [显示全部帖子]

可以同时添加多个收件人:

Dim m As New MailSender
m
.Host = "smtp.21cn.net"
m
.Account = "xiaoliu"
m
.Password = "xiaoliu1234567"
m
.From = "xiaoliu@Sina.com.cn"
m.AddReceiver(
"meili@Sina.com.cn")
m.AddReceiver(
"yangzi@Microsoft.com")
m.Title = 
"李总明天来北京"
m
.Content = "航班号是gz1234,上午11点到达,请注意接机"
m.SendAsync()


抄送多人,不可能是让普通用户直接写 addreceiver吧。

可否像普通的邮箱一样,直接在对话框中输入邮件地址。


另外,

可否提示是否发送成功。


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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/10/26 13:34:00 [显示全部帖子]

邮件内容 如何发送列标题?

content &= dr("刀具名称").Caption &"    "&dr("刀具编号").Caption &"    "&dr("数量").Caption &"    "&dr("备注").Caption &"    "&dr("要求到货日期").Caption &"    "&dr("成本中心").Caption

提示 错误

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/10/26 14:38:00 [显示全部帖子]

我想将列名和对应数据  对齐。

我现在是使用空格的方式
有没有更好的方法。

刀具名称                  刀具编号                       数量         备注         要求到货日期         成本中心
CWL22736切胶刀    CWL22736切胶刀(1)     1                               00:00:00               7955

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/10/26 15:33:00 [显示全部帖子]

Dim content As String = "<Table border=1><tr><td>第一列</td><td>第二列</td><td>第三列</td></tr><tr><td>dr("刀具名称")</td><td>dr("刀具编号")</td><td>dr("数量")</td></tr></Table>"

取表中内容,
代码哪里错了

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/10/26 16:55:00 [显示全部帖子]

如何增加附件(刀图)
刀图存于 列刀图 
列刀具名称
文件名 =刀具名称.dwg

message.AddAttachments("c:\test.txt")
报错

图片点击可在新窗口打开查看此主题相关图片如下:111.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/10/26 16:58:02编辑过]

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/10/27 9:32:00 [显示全部帖子]


' 增加附件 
Dim attach As String = dt("刀具名称")
msgbox(attach)
Dim at As String = "\\Tooling\"
Dim atta As String = ".dwg"
msgbox(at & attach & atta)
Dim attachment As new  System.Net.Mail.Attachment("at & attach & atta",  System.Net.Mime.MediaTypeNames.Application.Octet)
message.Attachments.Add(attachment)



将当前行  列"刀图"作为附件发送。
 
如果操作啊


[此贴子已经被作者于2017/10/27 10:46:16编辑过]

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/11/17 11:03:00 [显示全部帖子]

老师,如果我只发送 
已选定的行代码如何写。

现在只能发全表 或当前行


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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/11/17 11:43:00 [显示全部帖子]

 老师,
 
代码没有问题



[此贴子已经被作者于2017/11/17 12:27:44编辑过]

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


加好友 发短信
等级:二尾狐 帖子:496 积分:4055 威望:0 精华:0 注册:2017/7/5 16:15:00
  发帖心情 Post By:2017/11/17 11:56:00 [显示全部帖子]

搞定了。
谢谢
代码没有问题
[此贴子已经被作者于2017/11/17 12:27:17编辑过]

 回到顶部