none
WSHを使用したメールフォームの作成について。 RRS feed

  • 質問

  • 現在、社内でイントラ内のホームページを作成している物です。
    サーバーの仕様上、perlやphpを使用することができずに
    wshで作成することになり、今、検索しておりました。

    その作業の中で、1点不明なところがあり、教えていただけないでしょうか。

    メールフォーム内で使用するには、送信先メールアドレスは、毎回変化するので
    何か引数等を記述しないと通常に動かないのでは?と思っております。

    どうぞよろしくお願いします。



    Set oMsg = CreateObject("CDO.Message")
    oMsg.From ="発信元メールアドレス。"
    oMsg.To = "送信先メールアドレス"
    oMsg.Subject = "Test"
    oMsg.TextBody = "テストメッセージです" & vbCrLf & Now
    'oMsg.TextBodyPart.Charset = "ISO-2022-JP"

    oMsg.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
    oMsg.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = _
    "SMTPサーバー名。"
    oMsg.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
    oMsg.Configuration.Fields.Update
    oMsg.Send

    2009年8月18日 8:18

回答

  • メールフォームで入力された送信先メールアドレスを oMsg.To に設定しましょう。
    このとき、 "送信先メールアドレス" のように固定文字列ではなく、変数(もちろん、
    ここにはメールフォームで入力された値がはいっている)を指定しましょう。

    http://blogs.wankuma.com/hatsune/
    • 回答としてマーク 菊地俊介 2009年9月4日 9:29
    2009年8月19日 1:30

すべての返信

  • 質問文が見あたりません…
    2009年8月18日 9:27
  • メールフォームで入力された送信先メールアドレスを oMsg.To に設定しましょう。
    このとき、 "送信先メールアドレス" のように固定文字列ではなく、変数(もちろん、
    ここにはメールフォームで入力された値がはいっている)を指定しましょう。

    http://blogs.wankuma.com/hatsune/
    • 回答としてマーク 菊地俊介 2009年9月4日 9:29
    2009年8月19日 1:30
  • 皆様、こんにちは。フォーラムのご利用ありがとうございます。

    佐祐理さん、初音玲さん、回答ありがとうございます。

    なっちゃんさん、はじめまして。
    その後いかがでしょうか?何か進展はありましたか?
    まだ解決していないようでしたら、また質問をしてみてください。
    また、その場合はなっちゃんさんがわからない点を具体的に記述していただいたほうが目的の情報を得やすいと思います。(フォームからwshへ引数を渡す方法がわからない、など)

    また、有用なアドバイスだと思いましたので、初音玲さんの回答へ回答マークをつけさせていただきました。

    今後ともフォーラムをよろしくお願いします。
    それでは!
    2009年9月4日 9:36