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

那个客户端的邮箱都不一样，那么从我的软件上出去的发件人就是配置好的人了，本来想的就是能够显示为统一的发件人

 

那你尝试匿名发送

 

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

 

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

再追问个问题，发邮件今天都解决了。但是还有2个小问题。

1.下面这个代码，引用dll的这段代码，在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()

 

2.我试了另外一个代码。这个时候邮件被保存在outlook的发件箱。不打开outlook不发送。

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

 

请问有什么好办法，只要是配置好outlook的客户端，无论客户端的outlook是怎样的状态都可以发送出去。

 

你说的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

就是当outlook的客户端没有打开的时候，会报错。除非outlook的客户端在开启状态。

此主题相关图片如下：捕获.png

而下面这个代码，在outlook关闭的时候会放到发件箱，不会报错。但是邮件不会发出去。只有当outlook客户端打开的时候才会发送。

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