VBA调用outlook发送邮件失败

virgin9775

公司网络，office 365用的最简单的调用OUTLOOK发送邮件命令，可以发送，但是会收到发送失败回复，如图。
即使我只是调用display一个空白邮件，我自己输入收件人也会得到发送失败的回复。


是不是因为公司网络禁用了outlook VBA的原因？怎么搞定这个问题？


------------update-----------------

果然是OUTLOOK问题，重置OUTLOOK搞定

维叶

我用这个可以发送

1. Sub SendTest()
   
2.     SendMail "JWH@163.com", "JWH@163.com", "你好", _
   
3.         "这是一个自动发送的问候邮件。", _
   
4.         ThisWorkbook.Path & "\try.txt"
   
5. End Sub
   
6. Public Sub SendMail( _
   
7.     ByVal strTo As String, _
   
8.     ByVal strCC As String, _
   
9.     ByVal strSubject As String, _
   
10.     ByVal strBody As String, _
    
11.     Optional ByVal strAttach As String)
    
12.     Dim objOutLook As Object
    
13.     Dim objMailItem As Object
    
14.     On Error GoTo errHandle
    
15.     Set objOutLook = CreateObject("Outlook.Application")
    
16.    
    
17.     Set objMailItem = objOutLook.CreateItem(0)
    
18.     With objMailItem
    
19.         .To = strTo
    
20.         .CC = strCC
    
21.         .Importance = 2
    
22.         .Subject = strSubject
    
23.         .Body = strBody
    
24.         If Len(strAttach) <> 0 Then .Attachments.Add strAttach
    
25.         .Send
    
26.     End With
    
27.     Do Until objMailItem.Sent = True
    
28.         DoEvents
    
29.     Loop
    
30. errHandle:
    
31.     objOutLook.Quit
    
32.     Set objOutLook = Nothing
    
33.     Set objMailItem = Nothing
    
34. End Sub

复制代码

fenghuaxue

感觉这不是代码的问题，你直接通过邮件软件发送试试呢。

virgin9775

维叶 发表于 2024-1-15 15:45
我用这个可以发送

不行，类似的这种我这都有问题

virgin9775

fenghuaxue 发表于 2024-1-15 17:38
感觉这不是代码的问题，你直接通过邮件软件发送试试呢。

通过outlook新建发送没有任何问题