| ■20706 / inTopicNo.7) |
Re[1]: ＡＳＰでメールフォーム作成 |
□投稿者/ ＡＳＰ初心者 (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 ' 本文」
の実行結果が
氏名<>電話<><>質問内容<><>問合内容<>
という形になるのですが、これを
氏名<>
電話<>
<>質問内容<>
<>問合内容<>
と改行をいれることができるのでしょうか？
|
|
