2

このVB6コードをVBScriptに変換する際に問題が発生しました。COMオブジェクトを呼び出して、EmailAddressTypeとして配列を作成しています。動作するVB6コードは次のとおりです。

'Assign TO: addresses
Dim toAdresses(2) As New EmailAddressType
toAdresses(0).EmailAddress = "someone@whocares.com"
toAdresses(0).RoutingType = "SMTP"
toAdresses(1).EmailAddress = "someoneelse@whocares.com"
toAdresses(1).RoutingType = "SMTP"
email.ToRecipients = toAdresses

これをVBScriptに変換する方法がわからないようです。次のことを試しましたが、メールが届いたらタイプミスマッチエラーが発生します。ToRecipients= toAdresses

  'Assign TO: addresses
   dim toAdresses(2)
   set toAdresses(0) = createobject("EWS.EWSWebSvc.EmailAddressType")
   set toAdresses(1) = createobject("EWS.EWSWebSvc.EmailAddressType")
    toAdresses(0).EmailAddress = "someone@whocares.com"
    toAdresses(0).RoutingType = "SMTP"
    toAdresses(1).EmailAddress = "someoneelse@whocares.com"
    toAdresses(1).RoutingType = "SMTP"
    email.ToRecipients = toAdresses

ところで、これはExchangeWebサービスのCOMラッパーです。

4

2 に答える 2

1

問題は、.ToRecipientsプロパティがEmailAddressTypeの配列を必要としているのに対し、VBScriptで簡単に取得できるのはVariantまたはVariantの配列だけだと思います。

このAPIは、スクリプト化できるように構築されていないようです。

奇妙なことに、JScriptから使用できるという意味があります。MessageType.ToRecipientsプロパティ

最近のMSDNでのVBScriptの言及を徐々に編集して、履歴を書き直しているのではないかと思います。

于 2012-06-05T18:15:47.167 に答える
0

推測して、これを試してください

toAdresses.EmailAddress = "someone@whocares.com;someoneelse@whocares.com"
toAdresses.RoutingType = "SMTP"
email.ToRecipients = toAdresses

で動作しない場合; 試してみてください、

于 2012-06-05T19:04:33.763 に答える