Exchange Onlineでスクリプト（CDO)からメールを送信したい。

• 2011年9月12日 9:34

   

   
  

  0

  BPOSでCDOを利用したVBscritからのメール送信をしたいのですが、接続エラーとなりうまくいきません。
  サーバーのアドレスなどは、Outlook Expressで設定したものと同じものを使用しているので間違いはないはずなのですが、
  ｢サーバーに接続できませんでした｣というエラーになってしまいます。
  
  スクリプトを使用してBPOSのEchange経由でメールを自動送信する方法がありましたら、ご教示ください。

  ■スクリプトのソース
  on error resume next
  Set oMsg = CreateObject("CDO.Message")
  oMsg.From = "e-mail address"
  oMsg.To = "e-mail address"
  oMsg.Subject = "Test"
  oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  oMsg.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.apac.microsoftonline.com"
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")= 1
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = True
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")      = "e-mail address"
  oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")      = "password"
  oMsg.Configuration.Fields.Update
  oMsg.Send
  if err.number =0 then
   wscript.echo "メッセージ送信に成功しました"
  else
   wscript.echo "メッセージ送信に失敗しました"
   wscript.echo "Errno = " & err.number & " " & err.description
  end if

  ■実行結果
  メッセージ送信に失敗しました
  Errno = -2147220973 転送においてサーバーに接続できませんでした。

   

  • 返信
  • 引用