How to send mail 3 days ones using VB.NET

Question

1.00/5 (1 vote)

See more:

Dear Friends,
I need to send mail every 3 days ones using vb.net how to send. am using windows service. i have date column in table. i need to add 3 days from that date..

What I have tried:

 If (strComplaintDate.ToString() = DateTime.Now.ToString("MM/dd/yyyy h:mm:ss tt")) Then       
                           

     If strCompEmailId <> "" Then                              
   clsInvCmn.StockistSendMail(strCompEmailId, strMessage, "Invoice Complaint", strCCEmailId) 
                                
      End If

 objSBQuery = New StringBuilder
 objSBQuery.Append(" Update DRL_COMPLAINTS_DETAILS_HDR SET DATE_OF_COMPLAINT = DATEADD(day,3,DATE_OF_COMPLAINT) WHERE  COMPLAINTS_DTL_ID='" & strComplaintId & "' ")
clsInvCmn.ExecuteQuery(objSBQuery.ToString)

 End If

Posted 26-Apr-17 1:27am

Vivek.anand34

Updated 26-Apr-17 3:16am

v6

Add a Solution

Comments

ZurdoDev 26-Apr-17 8:05am

Write a Windows service to do it.

Vivek.anand34 26-Apr-17 8:19am

I updated question. plz. see it.

ZurdoDev 26-Apr-17 8:20am

Look at sql's DATEADD() function

Vivek.anand34 26-Apr-17 8:22am

what i have tried updated...

[no name] 26-Apr-17 8:25am

Then please update your posting to include an actual question and a description of the problem with your code. We aren't mind readers.

Vivek.anand34 26-Apr-17 8:23am

'strComplaintDate' is db date and check today. if yes then send mail and update date 3 days. its right.

CHill60 26-Apr-17 8:40am

Use DATEADD() and Parameterized queries. Your code is vulnerable to SQL Injection.

Vivek.anand34 26-Apr-17 8:42am

Ok..

Vivek.anand34 26-Apr-17 8:42am

Above code its right.

CHill60 26-Apr-17 8:46am

No - the above code is vulnerable to SQL Injection and is using an implicit conversion on the date instead of the correct DATEADD function

Vivek.anand34 26-Apr-17 8:47am

Ya i added DATEADD(day,3,DATE_OF_COMPLAINT) function..

CHill60 26-Apr-17 8:52am

So does that mean this question is now resolved?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CHill60 · Answer 1 · 2017-04-26T03:16:00

As OP has indicated that "Above code its right" I will post this solution to close off the question.

OP has now added the use of DATEADD() rather than rely on the implicit conversion of DATE_OF_COMPLAINT + 3. However the code is still not quite right.

There is no point in creating a StringBuilder if you are then going to use String concatenation to generate it. That section would look better like this:

VB

objSBQuery = New StringBuilder("Update DRL_COMPLAINTS_DETAILS_HDR SET DATE_OF_COMPLAINT = DATEADD(day,3,DATE_OF_COMPLAINT) WHERE  COMPLAINTS_DTL_ID='"
objSBQuery.Append(strComplaintId)
objSBQuery.Append("' ")

However, that still leaves the code open to SQL Injection attacks. You should never concatenate strings like that to create SQL commands.

It should look more like:

VB

Dim objSBQuery As String = "Update DRL_COMPLAINTS_DETAILS_HDR SET DATE_OF_COMPLAINT = DATEADD(DD,3,DATE_OF_COMPLAINT) WHERE  COMPLAINTS_DTL_ID=@id"
clsInvCmn.Parameters.AddWithValue("@id", strComplaintId)
clsInvCmn.ExecuteQuery(objSBQuery)

But to do that you will need to implement some means of passing Parameters into the clsInvCmn class, whatever that might be.