0

cdosys.dll (ProgId "CDO.Message") で電子メールを送信しようとしています。コードは次のようになります。

http://www.w3schools.com/asp/asp_send_email.asp

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="mymail@mydomain.com"
myMail.To="someone@somedomain.com"
myMail.TextBody="This is a message."
myMail.AddAttachment "c:\mydocuments\test.txt"
myMail.Send
set myMail=nothing

1台のPCで動作します。別の方法では、そうではありません。「'SendUsing' 構成が無効です」というエラーが表示されます。それを修正するには、次のようなコードを追加できるはずです。

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.server.com"

myMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
myMail.Configuration.Fields.Update

質問: CDO 構成はどこに保存されていますか? 私はレジストリを検索し、MSDN と Google を精査しました...そして、手ぶらで出てきました。

何か案は？

事前にサンクス！

4

0 に答える 0