Anyway to add Follow up to email??

[vonoventwin]

I want to add Follow up by like 2 days or something, can I add that somehow?

stSubject = ":: Overdue Item :: -Supply-"
    stSubject = stSubject & "  Freight # " & stTracking
    
    stText = "Here is the information for the overdue item at TMO." & Chr$(13) & Chr$(13) & _
             "Tracking/Freight Number: " & stTracking & Chr$(13) & _
             "Contract/PO Number: " & stContract & Chr$(13) & _
             "Vendors Name: " & stVendor & Chr$(13) & _
             "Description of Items: " & stDescription & Chr$(13) & Chr$(13) & _
             "Received Date: " & RecDate & Chr$(13) & _
             "Receiver at TMO: " & stReceiver & Chr$(13) & Chr$(13) & _
             "Items belong to: " & stItems & Chr$(13) & _
             "RAs Name: " & stRAname & Chr$(13) & _
             "RAs Phone Number: " & stRAphone & Chr$(13) & Chr$(13) & _
             "When picking up your item from Supply, please bring a copy of this email with you." & Chr$(13) & _
             "This is an automated message. Please do not respond to this e-mail."
 
    'Write the e-mail content for sending to assignee
    DoCmd.SendObject , , acFormatTXT, stEmailAddress3 & ";" & stEmailAddress, stEmailAddress4 & ";" & stEmailAddress2, , stSubject, stText, -1