Anyway to add Follow up to email??

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

VB Code:

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

you mean like automatically re-sending 2 days later??

That would be cool to automatically send it 3 days later, but also I want the email to be flagged for Follow up. The option in Microsoft Outlook with the red flag... means user must follow up with this email in (2 days..)

You will have to program it in...
The way you are doing now its not possible (Since u are using Access's built in command)

you will need to add a ref to Outlook object library and actually Code it all in

VB Code:

Dim OTL As New Outlook.Application
Dim oMail As Outlook.MailItem
Set oMail = OTL.CreateItem(olMailItem)
 
oMail.To = "Person"
oMail.Subject = "Subject"
oMail.FlagDueBy = DateAdd("d", 3, Date)
oMail.Body = "HELLO"
oMail.Display

So add Outlook object library, then create a module and use this code? Then how do I call upon it?

Moved.

Quote:

---

Originally Posted by vonoventwin

So add Outlook object library, then create a module and use this code? Then how do I call upon it?

---

Put the code in a sub and call the sub.