referers = Array("bhbgroup.co.uk")
mailComp = "CDOSYS"
smtpServer = "intmail.atlas.pipex.net"
fromAddr = "username_goes_here"
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "intmail.atlas.pipex.net"
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'You need to edit the next two lines
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username_goes_here"
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password_goes_here"
I also added to the form the required field of '_recipients' and set it you my email as such:
<input name="_recipients" type="hidden" value="purpleapplepie@yahoo.com" />
Bookmarks