Good day, I am having some difficulties sending emails. My email code was working fine up until recently. What the code was doing was to send an email message to persons who would have applied to use the service. However it stopped working and recently I while trying to send a test message from my application server email settings.I got a greylisting error message telling me to try after a number of seconds would have elapsed so I did that and the test email worked fine. However when a user signs up to use the service no email is sent to the user's inbox. Below is the code I have in my aftervalidate event in my dialog component.Any help would be greatly appreciated
Thanks Rogers
Code:
tbl=table.open("[PathAlias.ADB_Path]\application.dbf") Ticket= alltrim(lookupc("F",alltrim(CurrentForm.Controls.email.value),"Ticket_number","application","Email")) Expiration=lookupd("F", CurrentForm.Controls.email.value,"Expiration_date","application","Email") Customer_Name= alltrim(CurrentForm.Controls.FirstName.value) Received_date= convert_type(Received_date,"D") Expire_date= convert_type(Expiration,"D") tbl.close() pm.lrelated = .T. 'pm.from = CurrentForm.Controls.From.value pm.from_alias = "Administrator Social Security Board" pm.to = CurrentForm.Controls.Email.value pm.bcc = "" pm.subject ="Registration Confirmation" pm.qq = <<%html% <html> <head> </head> <body> Thank you {Customer_Name} for signing up for our online Electronic C3 Submission service. Your ticket number is {Ticket} and you have four(4) Business days to visit the our Office to complete the registration Process. Your ticket is valid until {Expire_date}. Failure to visit our office within the time period allotted would result in you having to re-register for the service .Thanks for your Compliance </body> </html> %html% pm.html_message = evaluate_string(pm.qq) email_send2(pm)
Thanks Rogers
Comment