C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 39 を表示中)
■20706 / )  Re[1]: ASPでメールフォーム作成
□投稿者/ ASP初心者 (4回)-(2008/06/13(Fri) 18:08:15)
ホントわかってなくてすみません・・・

BASP21は解決しまして、結局は「CDOSYS」を使うよう指示されました。
それでこんなPGを見つけ、改造しました。
それで早速なのですが下記ソースより

<%@ Language="VBScript" %>
<%

Option Explicit
' SMTPサーバのIPアドレスorSMTPサーバ名
Const cnsSMTPServer = "***.***.***.***"

' CDO関連定数
Const cdoSendUsingMethod = _
"http://schemas.microsoft.com/cdo/configuration/sendusing"
Const cdoSMTPServer = _
"http://schemas.microsoft.com/cdo/configuration/smtpserver"
Const cdoSMTPServerPort = _
"http://schemas.microsoft.com/cdo/configuration/smtpserverport"

Dim objCDO, strERROR, strFrom, strTo, strSubject, strBody,strBody2,strBody3,strBody4, strCc, strBcc
On Error Resume Next

' フォームから送信情報を受け取る
strFrom = "" & Trim(Request.Form("TXT_FROM")) ' 送信者
strTo = "" & Trim(Request.Form("TXT_TO")) ' 宛先
strCc = "" & Trim(Request.Form("TXT_CC")) ' CC
strBcc = "" & Trim(Request.Form("TXT_BCC")) ' BCC
strSubject = "" & Trim(Request.Form("TXT_SUBJ")) ' 件名
strBody = "氏名<>" & Trim(Request.Form("TXT_BODY"))
strBody2 = "<>電話<>" & Trim(Request.Form("TXT_BODY2"))
strBody3 = "<>質問内容<>" & Trim(Request.Form("TXT_BODY3"))
strBody4 = "<>問合内容<>" & Trim(Request.Form("TXT_BODY4"))

strERROR = ""
' コンポーネント(CDOSYS.dll)を呼び出す
Set objCDO = Server.CreateObject("CDO.Message")
With objCDO
With .Configuration.Fields ' 設定項目
.Item(cdoSendUsingMethod) = 2 ' 外部SMTP指定
.Item(cdoSMTPServer) = cnsSMTPServer ' SMTPサーバ名
.Item(cdoSMTPServerPort) = 25 ' ポート
.Update ' 設定を更新
End With
.From = strFrom ' 送信者
.To = "******@********.co.jp" ' 宛先
If strCc <> "" Then .CC = strCc ' CC
If strBcc <> "" Then .BCC = strBcc ' BCC
.Subject = strSubject ' 件名
.TextBody = strBody & strBody2 & strBody3 & strBody4 ' 本文
.Send ' 送信
End With
Set objCDO = Nothing
If Err.Number <> 0 Then
strERROR = Err.Description
Else
strERROR = "OK"
End If
Response.Write strERROR
%>

本文の部分で
「.TextBody = strBody & strBody2 & strBody3 & strBody4  ' 本文」

の実行結果が
氏名<>電話<><>質問内容<><>問合内容<>

という形になるのですが、これを

氏名<>
電話<>
<>質問内容<>
<>問合内容<>

と改行をいれることができるのでしょうか?


返信 編集キー/


管理者用

- Child Tree -