Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ส่ง mailing list error แก้ไขยังไงครับ Error Type: CDO.Message.1 (0x8004020D) At least one of the From or Sender fields is required, and neither was found. /

ส่ง mailing list error แก้ไขยังไงครับ Error Type: CDO.Message.1 (0x8004020D) At least one of the From or Sender fields is required, and neither was found. /

เริ่มหัวข้อใหม่

Guest

ผมเขียนโค้ดให้ส่งอีเมลจากที่อยู่ในฐานข้อมูล
แต่มันมี error ที่ไม่รู้ รบกวนด้วยครับ
Error Type:
CDO.Message.1 (0x8004020D)
At least one of the From or Sender fields is required, and neither was found.
/d/alumnus/act_sendmail.asp, line 62

โค้ด form จะเป็นอย่างนี้นะครับ

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF" background="../board_images/bgx.gif">
<div align="center"> </div>
<form method="post" name="frmEmailier" action="act_sendmail.asp">
<table width="560" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#000000" height="277">
<tr>
<td height="234"> <table width="100%" border="0" align="center" cellpadding="4" cellspacing="1">
<tr align="left" bgcolor="#CCCCCC">
<td colspan="2" class="text">*Indicates required fields</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="23%" align="right" class="text">สาขา*:<br>
</td>
<td width="77%" valign="top">
<%
Sql="Select * From branch_spu"
Set Rs1=conn.execute(sql)
%>
<select name="branch_spu_id" id="select" >
<option>เลือกสาขา</option>
<%while Not Rs1.EOF%>
<option value=<% =Rs1("branch_spu_id")%>>
<% =Rs1("branch_spu_name")%>
</option>
<%
Rs1.MoveNext
wend
rs1.close
%>
</select> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" class="text">Subject*:</td>
<td valign="top">
<input name="subject" type="text" id="subject" size="30" maxlength="45"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="right" valign="top" class="text">Message*:<br>
</td>
<td valign="top">
<textarea name="message" cols="45" rows="10" id="message"></textarea></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td colspan="2" class="text">
<input name="submit" type="submit" id="submit" value="Send Email">
 
<input type="reset" name="Reset" value="Clear Form"></td>
</tr>
</table></td>
</tr>
</table>
</form>
ส่วน action จะเป็น


<%
strEmailBody=Request.Form("message")
strSubjectMail=Request.Form("subject")
strSendGroup=Request.Form("branch_spu_id")
Select Case strSendGroup

Case"0"
strSQL="Select*From member"

Case"1"
strSQL="Select*From member Where branch_spu_id =1"

Case"2"
strSQL="Select*From member Where branch_spu_id =2"

Case"3"
strSQL="Select*From member Where branch_spu_id =3"

Case"4"
strSQL="Select*From member Where branch_spu_id =4"

Case"5"
strSQL="Select*From member Where branch_spu_id =5"

Case"6"
strSQL="Select*From member Where branch_spu_id =6"

Case"7"
strSQL="Select*From member Where branch_spu_id =7"

Case"8"
strSQL="Select*From member Where branch_spu_id =8"
End Select
Set strRSGroup =Server.CreateObject("ADODB.Recordset")
strRSGroup.open strSQL,Conn,1,3

Do While NOT strRSGroup.EOF

strUser=strRSGroup("name")
strEmail=strRSGroup("mail")
%>
<%
Dim objCDOSYSCon
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMail_server
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.Update
End With

Set objCDOSYSMail.Configuration = objCDOSYSCon

With objCDOSYSMail
.From = strBoard_name & " <" & strBoard_email_address & ">"
.To = strUser & " <" & strEmail & ">"
.Subject = strSubject
.HTMLBody = strEmailBody & strEmailBodyAppendMessage
.Send
End with

Set objCDOSYSMail = Nothing
%>
<%
Response.Write("รายชื่อที่ถูกส่งออกไป"&strUser&" : " &strEmail&":<br>")
strRSGroup.MoveNext
Loop
%>
รบกวนด้วยนะครับ ไม่เคยเขียนเลย
มันจะ error ที่
.HTMLBody = strEmailBody & strEmailBodyAppendMessage
บรทัดนี้อ่ะครับ

Tag : - - - -

Date : 23 ม.ค. 2548 18:19:34

By : gototon

View : 3872

Reply : 1

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

แนะนำให้อ่านใน Document ของ Component CDO.Message ครับ

Date : 24 ม.ค. 2548 09:46:15

By : @W_IN

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ส่ง mailing list error แก้ไขยังไงครับ Error Type: CDO.Message.1 (0x8004020D) At least one of the From or Sender fields is required, and neither was found. /

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); ส่ง mailing list error แก้ไขยังไงครับ Error Type: CDO.Message.1 (0x8004020D) At least one of the From or Sender fields is required, and neither was found. /

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

ส่ง mailing list error แก้ไขยังไงครับ Error Type: CDO.Message.1 (0x8004020D) At least one of the From or Sender fields is required, and neither was found. /