Outlook Anywhere経由でVBScriptを使用して電子メールを送信

Question

VBScriptを使用してOutlook Anywhereに接続する必要があるクライアントから電子メールを送信するという不幸な作業があります。私はExchange Serverを扱うときに正しい用語を理解できないかもしれないので、私が何を探しているのかわからないために答えが出ないかもしれません。

スクリプトは多くの場所/ネットワークから接続されており、既定のポートを通過するトラフィックをブロックする場合としない場合があるため、SMTPは使用できません。ネットワーク管理者（実際の顧客は誰か）が変更しないため、デフォルトポートを変更できません。

正しい方向へのポインタがあれば幸いです。

Answer 1

私の質問への答えは、次の質問Ways to send E-Mails over MS Exchange with VBScriptですでにstackoverflowの上、部分的です。

以下のコード（VBA、ただしVBScriptに近い）は、SOAPメッセージをExchange Webサービスに送信するだけです。それは、ウェブ上のすべての部分（上記のリンクを含む）に見られる様々なビットと断片から作られました。

Option Explicit 

' --------------------------------------------------------- 
' CONFIGURATION - change as needed 
' --------------------------------------------------------- 
Const TARGETURL = "https://mail.XXXXX.com/ews/exchange.asmx" 
Const USERNAME = "XXXXX\dnreply" 
Const PASSWORD = "X1X2X3X4X!x@x#x$x%" 

Sub SendMessageEWS() 
    Dim SOAP 
    SOAP = CreateMessageSOAP() 

    ' Send the SOAP request, and return the response 
    Dim oXMLHTTP, oXml 

    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP") 
    Set oXml = CreateObject("MSXML2.DOMDocument") 

    ' Send the request 
    oXMLHTTP.Open "POST", TARGETURL, False, USERNAME, PASSWORD 
    oXMLHTTP.setRequestHeader "Content-Type", "text/xml" 
    oXMLHTTP.send SOAP 

    If oXMLHTTP.Status = "200" Then 
     ' Get response 
     If oXml.LoadXML(oXMLHTTP.ResponseText) Then 
      ' Success 
      Debug.Print oXml.XML 
     End If 
    Else 
     Debug.Print oXMLHTTP.ResponseText 
     MsgBox "Response status: " & oXMLHTTP.Status 
    End If 

End Sub 

Function CreateMessageSOAP() 
    ' Normally this is done by using the DOM, but this is easier for a demo... 
    Dim SOAPMsg 

    SOAPMsg = SOAPMsg & "<?xml version='1.0' encoding='utf-8'?>" 
    SOAPMsg = SOAPMsg & " <soap:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:t='http://schemas.microsoft.com/exchange/services/2006/types' xmlns:soap='http://schemas.xmlsoap.org/soap/envelope/'>" 
    SOAPMsg = SOAPMsg & " <soap:Body>" 
    SOAPMsg = SOAPMsg & "  <CreateItem MessageDisposition='SendAndSaveCopy' xmlns='http://schemas.microsoft.com/exchange/services/2006/messages'>" 
    SOAPMsg = SOAPMsg & "   <SavedItemFolderId>" 
    SOAPMsg = SOAPMsg & "    <t:DistinguishedFolderId Id='sentitems' />" 
    SOAPMsg = SOAPMsg & "   </SavedItemFolderId>" 
    SOAPMsg = SOAPMsg & "   <Items>" 
    SOAPMsg = SOAPMsg & "    <t:Message>" 
    SOAPMsg = SOAPMsg & "     <t:Subject>Exchange Web Service E-Mail Test</t:Subject>" 
' For HTML message body 
    SOAPMsg = SOAPMsg & "     <t:Body BodyType='HTML'><![CDATA[<h1>Test html body</h1>]]></t:Body>" 
' For text message body 
' SOAPMsg = SOAPMsg & "     <t:Body BodyType='Text'><![CDATA[Test text body]]></t:Body>" 
    SOAPMsg = SOAPMsg & "     <t:ToRecipients>" 
    SOAPMsg = SOAPMsg & "      <t:Mailbox>" 
    SOAPMsg = SOAPMsg & "       <t:EmailAddress>recipient@XXXXX.com</t:EmailAddress>" 
    SOAPMsg = SOAPMsg & "      </t:Mailbox>" 
    SOAPMsg = SOAPMsg & "     </t:ToRecipients>" 
    SOAPMsg = SOAPMsg & "    </t:Message>" 
    SOAPMsg = SOAPMsg & "   </Items>" 
    SOAPMsg = SOAPMsg & "  </CreateItem>" 
    SOAPMsg = SOAPMsg & " </soap:Body>" 
    SOAPMsg = SOAPMsg & " </soap:Envelope>" 

    CreateMessageSOAP = SOAPMsg 
End Function 

Answer 2

あなたの質問が正しく理解されていれば、実際にはインストールされている/実行中のバージョンのOutlookをクライアントマシンで使用して、作成した電子メールメッセージを送信して、おそらくExchange Server経由で、公衆ネットワーク上にあるときにプライベートLANまたはVPN経由で構成されます。もしそうなら、あなたが見たいものは、Microsoftの命名法で「オートメーション」と呼ばれるものを使用することです。ほとんどのスクリプト言語と開発ツールでは、COM経由でこれを行うことができます。次のマイクロソフトの記事では、VBAでこれを行う方法を示しています。これは、VBScriptのためにほぼそのまま使用するための詳細を示します。

http://support.microsoft.com/kb/209948