-
Sep 23rd, 2005, 08:58 AM
#1
Thread Starter
Hyperactive Member
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
-
Sep 23rd, 2005, 09:11 AM
#2
Re: Anyway to add Follow up to email??
you mean like automatically re-sending 2 days later??
JPnyc rocks!! (Just ask him!)
If u have your answer please go to the thread tools and click "Mark Thread Resolved"
-
Sep 23rd, 2005, 09:50 AM
#3
Thread Starter
Hyperactive Member
Re: Anyway to add Follow up to email??
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..)
-
Sep 23rd, 2005, 10:43 AM
#4
Re: Anyway to add Follow up to email??
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
JPnyc rocks!! (Just ask him!)
If u have your answer please go to the thread tools and click "Mark Thread Resolved"
-
Sep 23rd, 2005, 12:02 PM
#5
Thread Starter
Hyperactive Member
Re: Anyway to add Follow up to email??
So add Outlook object library, then create a module and use this code? Then how do I call upon it?
-
Sep 23rd, 2005, 01:14 PM
#6
Re: Anyway to add Follow up to email??
-
Sep 23rd, 2005, 01:53 PM
#7
Frenzied Member
Re: Anyway to add Follow up to email??
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.
Tengo mas preguntas que contestas
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|