BarrMan
11-18-2007, 12:20 PM
Hi.
I'm using my localhost to send an email to myself for testing procedure only.
I've had trouble configuring the server but finally it worked fine without any errors but the email is still not being sent.
I've tried the spam box and I've tried other email addresses but still no luck.
This is my code:
<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Buffer = True%>
<%
Dim Email,Configure,sch
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = Server.CreateObject("CDO.Message")
Set Configure = Server.CreateObject("CDO.Configuration")
With Configure.Fields
.Item(sch & "sendusing") = 1
.Item(sch & "smtpserver") = "http://127.0.0.1"
.Item(sch & "smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
.Item(sch & "smtpauthenticate") = 1
.Item(sch & "smtpserverport") = 2
.Update()
End With
Set Email.Configuration = Configure
With Email
.Subject = "Hey Imri"
.To = "emree3@gmail.com"
.From = "http://127.0.0.1"
.HTMLBody = "<html><head></head><body><table border=1><tr><td>Hello world</td></tr></table></body></html>"
.Send
End With
%>
Any help would be much appreciated.
I'm using my localhost to send an email to myself for testing procedure only.
I've had trouble configuring the server but finally it worked fine without any errors but the email is still not being sent.
I've tried the spam box and I've tried other email addresses but still no luck.
This is my code:
<%@Language="VBScript"%>
<%Option Explicit%>
<%Response.Buffer = True%>
<%
Dim Email,Configure,sch
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = Server.CreateObject("CDO.Message")
Set Configure = Server.CreateObject("CDO.Configuration")
With Configure.Fields
.Item(sch & "sendusing") = 1
.Item(sch & "smtpserver") = "http://127.0.0.1"
.Item(sch & "smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup"
.Item(sch & "smtpauthenticate") = 1
.Item(sch & "smtpserverport") = 2
.Update()
End With
Set Email.Configuration = Configure
With Email
.Subject = "Hey Imri"
.To = "emree3@gmail.com"
.From = "http://127.0.0.1"
.HTMLBody = "<html><head></head><body><table border=1><tr><td>Hello world</td></tr></table></body></html>"
.Send
End With
%>
Any help would be much appreciated.