Send email with vba in 30 days

[Jerrbear]

I need a thread to send an email out with in 30 days of a date to remind of a due date using macros. Need help please. I have the email set up just need the 30 days

This is what I have and it works, I just need to add 30 day string. Is this possible???

private Sub CommandButton7_Click()

Dim outApp As Object
Dim outMail As Object
Dim Strbody As String

Set outApp = CreateObject("outlook.Application")
Set outMail = outApp.CreateItem(0)

Strbody = "Email."
On Error Resume Next
With outMail
.to = "@@@@"
.Subject = "Email "
.Body = Strbody
.send

End With
On Error GoTo 0
Set outMail = Nothing
Set outApp = Nothing
End Sub

 

[ranman256]

'Stay in the outbox untill this date and time
.DeferredDeliveryTime = "1/6/2007 10:40:00 AM"

'Wait four hours
.DeferredDeliveryTime = DateAdd("h", 4, Now)

'in 30 days
.DeferredDeliveryTime = DateAdd("d", 30, Now)

 

[Jerrbear]

That is not working for me. I have dates in a cell and when 30 day gets by from a purchase then I need to send a email out. Is there another way.

 

[Jerrbear]

Any suggestions I can’t get the above thread to work.