配置outlook007时提示“与Microsoft Exchange Server的连接不可用，Outlook必须联机或连接才可完成操作

Posted 2023-04-23

您好，我现在碰到同样的问题了，我是单位指定要用exchange，我想把笔记本拿回家收发邮件，不在单位的局域网中，不知道该如何解决？

首先你们公司的Exchange Server 得支持work from outside organization
如果不支持的话，在外网就无法配置。
有个简单的方法就是用这个官网的工具测试一下：
https://testconnectivity.microsoft.com/ 参考技术A 首先保证你的电脑连上网了，然后确认你公司的Exchange server开启了Outlook Anywhere功能。 通常如果Exchange server已经开启了Outlook Anywhere功能， 你需要在家里的电脑上面重新配置Exchange账号。
如果直接用你公司的电脑，你公司连接的Outlook是用内部的自动发现服务（Autodiscover service）配置好的账号。在外网需要确保你的外部自动发现服务能够重新检测并连接上你的Exchange邮箱。
如果你的Exchange server直接未开启Outlook Anywhere功能， 建议你直接用Outlook网页版收发邮件吧，也挺方便的。 参考技术B 网友帮不了你，请找你单位的网管。

vbscript 使用Outlook夹带档案寄信。新版Outlook会出现提示，要求允许寄信。

' http://www.rgagnon.com/wshdetails/wsh-0018.html
' http://www.rgagnon.com/wshdetails/wsh-0002.html
' http://www.bernhard-ehlers.de/projects/OutlookSecurity.html

' Get full filepath from 1st argument
Dim Full_Filename
Dim Filename
Set objArgs = WScript.Arguments
if WScript.Arguments.Count=0 then
  WScript.Quit 1
end if
' WScript.Echo objArgs(0)
Full_Filename = objArgs(0)

' Parse to simple filename
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Full_Filename)
Filename = objFSO.GetFileName(objFile)
Set objFile = Nothing
Set objFSO = Nothing

' Start to mail
Dim ToAddress
Dim MessageSubject
Dim MessageBody
Dim MessageAttachment
ToAddress = "your_user@your_domain.com"   ' change this...
MessageSubject = Filename
MessageBody = "Send " & Filename & " via Outlook"
MessageAttachment = Full_Filename

Dim ol, ns, newMail
Set ol = WScript.CreateObject("Outlook.Application")
Set ns = ol.getNamespace("MAPI")
ns.logon "","",true,false
Set newMail = ol.CreateItem(olMailItem)
newMail.Subject = MessageSubject
newMail.Body = MessageBody & vbCrLf

' validate the recipient, just in case...
Set myRecipient = ns.CreateRecipient(ToAddress)
myRecipient.Resolve
If Not myRecipient.Resolved Then
   MsgBox "unknown recipient"
Else
   newMail.Recipients.Add(myRecipient)
   newMail.Attachments.Add(MessageAttachment).Displayname = Filename
   newMail.Send
   WScript.Echo "Mail successed! " & Full_Filename
End If

Set ol = Nothing