PLS HELP
Hey ppl!
i used to use the following code to send emails and it used to work fine
but after i formatted my hard disk it doesnt send emails anymore
what is the problem
i dont get any errors .. it just doesnt do anything
do i have to change any setting in my pc
??
<%
Dim iMsgs
Set iMsgs = Server.CreateObject("CDO.Message")
Dim iConfi
Set iConfi = Server.CreateObject("CDO.Configuration")
Dim Fldss
Set Fldss = iConfi.Fields
Fldss( "http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
Fldss("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
Fldss.Update
Set iMsgs.Configuration = iConfi
iMsgs.To = "..."
iMsgs.From = "..."
iMsgs.Subject = "Waiting List updates "
iMsgs.TextBody = "Some copies are in "
iMsgs.Send 'commands CDO to send the message
%>
What Comes Around Goes Around!
__________________
What Comes Around Goes Around!
|
