Ho un problema con objMail.To
Type_mismatch:_'To'
Mi aiuta qualcuno?
----------------------------------------------------
<html>
<head>
</head>
<body>
<%
If Request.Form("cmdSubmit") <> "" Then
'The user has submitted the page, so process the Newsletter subscription request
Set Conn= Server.CreateObject("Adodb.connection")
Conn.Open "provider=microsoft.jet.oledb.4.0; data source="& Server.MapPath("db/newsletter.mdb")
set rs = server.CreateObject("Adodb.recordset")
sql = "SELECT email FROM spedizione"
rs.open "spedizione", conn,1,2
rs("email") = email
If rs.EOF Then
'MODIFY the text below displays when no subscribers exist
%>
There are no subscribers to the newsletter.
<%
'Clean up database objects
rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing
Response.End
End If
While Not(rs.EOF)
Dim objMail
dim objconf
Set objMail = CreateObject("CDO.Message")
Set objconf = CreateObject("CDO.Configuration")
Const NAMESPACE = "http://schemas.microsoft.com/cdo/configuration/"
Const cdoSendUsingPort = 2
objconf.Fields(NAMESPACE & "sendusing") = cdoSendUsingPort
objconf.Fields(NAMESPACE & "smtpserver") = "mioserver"
objconf.Fields(NAMESPACE & "smtpserverport") = 25
objconf.Fields.Update
objMail.Configuration = objconf
objMail.TextBody = Request.Form("txtEmail")
'MODIFY the following email address will appear as the from address for the email.
objMail.From = "newsletter@miosito.it"
objMail.To = rs("email")
objMail.Subject = "Newsletter"
objMail.Send
rs.MoveNext()
Wend
'MODIFY the text below displays when all the emails have been sent
%>
The emails have been sent.
<%
'Clean up database objects
rs.Close()
Set rs = Nothing
conn.Close()
Set conn = Nothing
Else
'MODIFY the text below is displayed when the page is first loaded.
%>
<form action="send.asp" method="post" id=form1 name=form1>
<div align="center">
Enter the email message to send:
<textarea name="txtEmail" cols="50" rows="30"></textarea>
<input type="submit" name="cmdSubmit" value="Submit">
</div>
</form>
<%
End If
%>
</body>
</html>
Rispondi quotando
