| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [分享]用Outlook发送邮件的内部函数 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70326) |
| -- 作者：hotday1972 -- 发布时间：2015/6/19 6:20:00 -- [分享]用Outlook发送邮件的内部函数 有点罗嗦，请高手把参数空值赋值为1个空格这段简化下，多谢！
内部函数代码如下： Dim Receiver As String = Args(0) \'必须是邮箱地址,多个地址之间用";"分开 Dim Cc As String = Args(1) \'必须是邮箱地址,多个地址之间用";"分开 Dim Bcc As String = Args(2) \'必须是邮箱地址,多个地址之间用";"分开 Dim Subject As String = Args(3) Dim Body As String = Args(4) Dim Proc As New Process \'函数参数如果为空值,则赋值为空格,避免调用mailto出错 If Receiver Is Nothing Then Receiver = " " End If If Cc Is Nothing Then Cc = " " End If If Bcc Is Nothing Then Bcc = " " End If If Subject Is Nothing Then Subject = " " End If If Body Is Nothing Then Body = " " End If Proc.File = "mailto:" & Receiver & "?cc=" & Cc & "&bcc=" & Bcc & "&subject=" & Subject & "&body=" & Body Proc.Start() |
| -- 作者：Bin -- 发布时间：2015/6/19 8:46:00 -- 就这样也不影响效率. 简化的话就遍历参数吧,这样就没有明确的变量名了.不够直观哦 for i as integer = 0 to args.length if args(i) is nothing then args(i)= " " end if next
|
| -- 作者：一笑 -- 发布时间：2015/6/19 9:05:00 -- 菜鸟，能否具体点，给个运用实例，谢谢 |
| -- 作者：大红袍 -- 发布时间：2015/6/19 9:09:00 -- 以下是引用一笑在2015/6/19 9:05:00的发言：
菜鸟，能否具体点，给个运用实例，谢谢
关键代码，变量替换测你自己的数据
Dim Proc As New Process Proc.File = "mailto:" & Receiver & "?cc=" & Cc & "&bcc=" & Bcc & "&subject=" & Subject & "&body=" & Body Proc.Start()
http://www.dreamdu.com/xhtml/mailto/
|
| -- 作者：dixiaxiaodan -- 发布时间：2016/2/27 19:19:00 -- 以下是引用大红袍在2015/6/19 9:09:00的发言： 红袍哥，我测试的时候发现，他这段代码只能把邮件内容输入到foxmail里，但不会发送，而且也不能打开outlook 啊
关键代码，变量替换测你自己的数据
Dim Proc As New Process Proc.File = "mailto:" & Receiver & "?cc=" & Cc & "&bcc=" & Bcc & "&subject=" & Subject & "&body=" & Body Proc.Start()
http://www.dreamdu.com/xhtml/mailto/
|
| -- 作者：大红袍 -- 发布时间：2016/2/28 11:57:00 -- 以下是引用dixiaxiaodan在2016/2/27 19:19:00的发言：
红袍哥，我测试的时候发现，他这段代码只能把邮件内容输入到foxmail里，但不会发送，而且也不能打开outlook 啊
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=81446&replyID=564073&skin=1
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=76464&skin=0
|