|
Lang79james
Starting Member
8 Posts |
 Posted - 29 June 2008 : 16:59:12
|
Wow I knew I got it working before some people shown that they where stupid and hacked my site but I dont remember doing all of this stuff. Now I have edit and replaced all the coding that was used above. My gmail address works like a champ but.... when I set up an user with the my yahoo email account I do not get nothing in the mail box(reg nor spam).
edit and update
Now I done some research on here and now I get messages sent to my gmail account
This is an automatically generated Delivery Status Notification.
Delivery to the following recipients failed.
lang79james@mail.com
Final-Recipient: rfc822;lang79james@mail.com
Action: failed
Status: 5.5.0
Diagnostic-Code: smtp;554 EMail from mailserver at 66.68.102.157 is refused. See http://spamblock.outblaze.com/66.68.102.157
So like anyone that does get this I went to the link saying that I can remove the IP address from the block IP but I do not have a static IP and do not want to be held responsible for it when it changes. Or that I need to turn on"SMTP Authentication"
My code for the inc_mail.asp is:"I know some of the coding is wrong in few areas the errors that have code, code are things I have tried
case "cdosys"
Set iConf = Server.CreateObject ("CDO.Configuration")
Set Flds = iConf.Fields
'Set and update fields properties
Flds("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'cdoSendUsingPort
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strMailServer = "smtp.gmail.com"
Flds("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False)
Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1,cdoBasic '1 cdoBasic
Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "lang79james,lang79james@gmail.com" 'forum@yourdomain.com
Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password goes here" ' Whatever your password is.
Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "465"
'Flds.Update
Set objNewMail = Server.CreateObject("CDO.Message")
Set objNewMail.Configuration = iConf
'Format and send message
Err.Clear
objNewMail.To = strRecipients
objNewMail.From = strSender
objNewMail.Subject = strSubject
objNewMail.TextBody = strMessage
On Error goto 0
objNewMail.Send
If Err <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & Err.Description & "</li>"
End if
case "dkqmail"
Set objNewMail = Server.CreateObject("dkQmail.Qmail")
objNewMail.FromEmail = strSender
objNewMail.ToEmail = strRecipients
objNewMail.Subject = strSubject
objNewMail.Body = strMessage
objNewMail.CC = ""
objNewMail.MessageType = "TEXT"
on error resume next '## Ignore Errors
objNewMail.SendMail()
If Err <> 0 Then< |
Edited by - Lang79james on 29 June 2008 22:37:45 |
 |
|
Topic Locked
