主题：outlook的共享邮箱发送邮件

下载信息  [文件大小：1.1 MB  下载次数：2]

点击浏览该文件:microsoft.office.interop.rar

引用dll文件，然后发送邮件

https://www.baidu.com/baidu?wd=c%23+outlook

引用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()

你每个电脑都会设置自己的 outlook 吧？只要设置了，就可以用4楼的方法发送。

如果无法发送，说明无法调用共享邮箱发送邮件。

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

你在本机设置的outlook是什么账号，from就是什么账号。你平时直接用outlook发送是什么账号？

那你尝试匿名发送

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

共享邮箱应该是对方那个客户端内部的一个邮箱，外部无法控制的。

你说的outlook关闭的时候指什么？

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()

msg = nothing

o = nothing

1、报错的话，可以加入try catch 捕捉错误；

2、你有没有办法先启动outlook客户端？比如让人员设置一次自己的outlook在哪个路径下，然后你先写代码启动程序？

测试了一下，没办法，只能做成半智能

try
    Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("OUTLOOK")
    If ps.length = 0 Then
        Dim Proc As New Process '定义一个新的Process
        Proc.File = "E:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE" '邮件地址前要加上"mailto:"
        Proc.Start()
    End If
    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()
    msg = Nothing
    o = Nothing
catch ex As exception
    msgbox("发送失败,客户端没打开")
End try