以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求一个能用outlook或Foxmail发送邮件的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81446)
--  作者：dixiaxiaodan
--  发布时间：2016/2/27 19:38:00
--  [求助]求一个能用outlook或Foxmail发送邮件的代码
功能要求不高，只要能用outlook或Foxmail发送邮件就行。V#\\Vb的实在看不太懂。谢谢了！
--  作者：dixiaxiaodan
--  发布时间：2016/2/27 20:36:00
--  

Dim ol = CreateObject("Outlook.Application")
Dim t = ol.CreateItem(0)
With t
    .To = "xxx@xxx.com"  
    .CC = "xxx@xxx.com"
    .Subject = "预警"
    .Body = "yujingla "
    .Display
    .Send
End With

 

按照以前用VBA编写的一段程序，改写了一个，有用的看一下。不合适的地方，求大神指正！

[此贴子已经被作者于2016/2/27 20:51:16编辑过]
--  作者：hotday1972
--  发布时间：2018/1/16 17:57:00
--  
挺好用的，有办法添加附件吗？
--  作者：有点甜
--  发布时间：2018/1/16 18:39:00
--  

 

.Attachments.Add ("d:\\test1.txt")
.Attachments.Add ("d:\\test2.txt")
 

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107403&skin=0

 

 
--  作者：cs83064103
--  发布时间：2019/10/28 19:32:00
--  
这个问题解决了么？