- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- outlook的共享邮箱发送邮件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107403)
-- 发布时间：2017/9/27 12:37:00
-- outlook的共享邮箱发送邮件
foxtable如何通过outlook的共享邮箱发邮件？
stmp的方式需要知道用户名密码，但是共享邮箱没有密码啊。如何处理？
Dim m As New MailSender
m.Host = "smtp.office365.com"
m.port= 587
m.Account = "xxxxxxxx"
m.Password = "xxxxxxxx"
m.EnableSsl=True
m.From = "xxxxxxxxxxxxxx"
m.To = ds2("mail_of_user")
m.Title = xxxxxxxxxxxxxxxxx
m.Content = xxxxxxxxxxxxxxxxxxxx
m.SendAsync()
-- 发布时间：2017/9/27 12:40:00
--
| 下载信息 [文件大小：1.1 MB 下载次数：2] | |
 点击浏览该文件:microsoft.office.interop.rar |
引用dll文件，然后发送邮件
https://www.baidu.com/baidu?wd=c%23+outlook
-- 发布时间：2017/9/27 12:53:00
--
麻烦是否可以详细描述下？
另外，我还有一个疑问，发布后，每个客户端的邮箱都不同，有些没有授权到贡献邮箱，这样也可以么？
-- 发布时间：2017/9/27 14:23:00
--
引用dll Microsoft.Office.Interop.Outlook.dll
http://www.foxtable.com/webhelp/scr/1936.htm
执行代码
Dim o As New Microsoft.Office.Interop.Outlook.Application
Dim msg As Microsoft.Office.Interop.Outlook.MailItem
msg = o.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
msg.Recipients.Add("spring.me@qq.com") \'收件人郵件地址
msg.Subject = "采购单" \'郵件主旨
msg.Body = "abc" \'郵件內容
\'msg.Attachments.Add("d:\\test.txt") \'添加採購訂單pdf件為附件
msg.Send()
-- 发布时间：2017/9/27 14:39:00
--
你每个电脑都会设置自己的 outlook 吧？只要设置了，就可以用4楼的方法发送。
如果无法发送，说明无法调用共享邮箱发送邮件。
-- 发布时间：2017/9/27 19:53:00
--
此主题相关图片如下：捕获.jpg
报错了。试了几遍。
-- 发布时间：2017/9/27 19:53:00
--
-- 发布时间：2017/9/27 20:31:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=107235&skin=0
-- 发布时间：2017/9/27 21:57:00
--
如果按照四楼的方法，发送成功后也会是本机的邮箱的账户吧？就是from还是本机的吧？
-- 发布时间：2017/9/27 22:07:00
--
以下是引用lur320在2017/9/27 21:57:00的发言：
如果按照四楼的方法，发送成功后也会是本机的邮箱的账户吧？就是from还是本机的吧？
如果按照四楼的方法，发送成功后也会是本机的邮箱的账户吧？就是from还是本机的吧？
你在本机设置的outlook是什么账号，from就是什么账号。你平时直接用outlook发送是什么账号？