Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.
Course Of The Month
2 days, 4 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
Track when Outlook e-mail sent
Posted on 2014-04-29
I have an MS Access database that the user can create an Outlook message to be sent, but I also need to know if the user actually sends the e-mail. Can someone direct or assist me in how to record in an Access table the date the e-mail was sent?
Below is my code for creating the e-mail:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim appOutlook As Outlook.Application
Dim msg As Outlook.MailItem
Dim strEmail As String
Dim msgbody As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblEMAI
Set appOutlook = New Outlook.Application
strEmail = Nz(rst![DC1EMAIL])
Set msg = appOutlook.CreateItem(olMa
msg.To = strEmail
msg.Subject = "Survey "
msg.BodyFormat = olFormatHTML
msg.Display
msgbody = "Dear" & " " & rst![DC1TL] & " " & [DC1LN] & "," & vbCrLf
msgbody = msgbody & " " & vbCrLf
msgbody = msgbody & "We would greatly appreciate you taking a few minutes to complete a short survey regarding the Training Visit that recently took place with your dealership. " & vbCrLf
msgbody = msgbody & "Your candor and feedback will help us improve our processes." & vbCrLf
msgbody = msgbody & " " & vbCrLf
msgbody = msgbody & "Please note that your responses are anonymous, unless you choose otherwise. Thank you in advance for your time. " & vbCrLf
msgbody = msgbody & " " & vbCrLf
msgbody = msgbody & "Please click here to begin the survey: https://www.surveymonkey.com/s/TVFY14 "
msg.Body = msgbody
msg.Display
'msg.Send
ErrorHandlerExit:
rst.Close
Set rst = Nothing
Set appOutlook = Nothing
Exit Sub
ErrorHandler:
'Outlook is not running; open Outlook with CreateObject
If err.Number = 429 Then
Set appOutlook = CreateObject("Outlook.Appl
Resume Next
Else
MsgBox "Error No: " & err.Number _
& " in EMailAllContacts procedure" _
& "; Description: " & err.Description
Resume ErrorHandlerExit
End If
Screen.PreviousControl.Set
DoCmd.RunCommand acCmdAutoDial
Exit_cmdEMAIL_NO_Click:
Exit Sub
Err_cmdEMAIL_NO_Click:
Resume Next
Resume Exit_cmdEMAIL_NO_Click
End Sub
Below is my code for creating the e-mail:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim appOutlook As Outlook.Application
Dim msg As Outlook.MailItem
Dim strEmail As String
Dim msgbody As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("tblEMAI
Set appOutlook = New Outlook.Application
strEmail = Nz(rst![DC1EMAIL])
Set msg = appOutlook.CreateItem(olMa
msg.To = strEmail
msg.Subject = "Survey "
msg.BodyFormat = olFormatHTML
msg.Display
msgbody = "Dear" & " " & rst![DC1TL] & " " & [DC1LN] & "," & vbCrLf
msgbody = msgbody & " " & vbCrLf
msgbody = msgbody & "We would greatly appreciate you taking a few minutes to complete a short survey regarding the Training Visit that recently took place with your dealership. " & vbCrLf
msgbody = msgbody & "Your candor and feedback will help us improve our processes." & vbCrLf
msgbody = msgbody & " " & vbCrLf
msgbody = msgbody & "Please note that your responses are anonymous, unless you choose otherwise. Thank you in advance for your time. " & vbCrLf
msgbody = msgbody & " " & vbCrLf
msgbody = msgbody & "Please click here to begin the survey: https://www.surveymonkey.com/s/TVFY14 "
msg.Body = msgbody
msg.Display
'msg.Send
ErrorHandlerExit:
rst.Close
Set rst = Nothing
Set appOutlook = Nothing
Exit Sub
ErrorHandler:
'Outlook is not running; open Outlook with CreateObject
If err.Number = 429 Then
Set appOutlook = CreateObject("Outlook.Appl
Resume Next
Else
MsgBox "Error No: " & err.Number _
& " in EMailAllContacts procedure" _
& "; Description: " & err.Description
Resume ErrorHandlerExit
End If
Screen.PreviousControl.Set
DoCmd.RunCommand acCmdAutoDial
Exit_cmdEMAIL_NO_Click:
Exit Sub
Err_cmdEMAIL_NO_Click:
Resume Next
Resume Exit_cmdEMAIL_NO_Click
End Sub
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3 Comments
Active 5 days ago
...Can I presume that a delivery receipt is not what you are looking for here?
ex.: msg.OriginatorDeliveryRepo
You may need to clearly define "Send"
When the user clicks "Send"?
When the email is actually "sent" (some systems store the email in the outbox to be sent later)?
I don't know of on easy way to track when an email is actually sent.
To be sure, the info on all emails "sent" is kept in your "Sent Items" folder in outlook.
You can open this folder and sort by the date sent, to see the most recently sent email(s).
You can also use Access to link to your sent items folder, ...then create a query to look at today's sent emails:
(Something like this ugly, but working query.). ;-):
SELECT CDate(Format([sent],"mm/dd
FROM [Sent Items]
WHERE (((CDate(Format([sent],"mm
...Or simply use this linked table directly...
But it is not a simple task to "trigger" anything to happen (add a record to a table in Access) if a record is added to the sent items folder.
Your code creates an email, ...but emails do not really have a Primary Key attached to them, so it is difficult to track a specific email, (create a table entry when they are "sent"), after they are created.
Hope this helps...
JeffCoachman
ex.: msg.OriginatorDeliveryRepo
You may need to clearly define "Send"
When the user clicks "Send"?
When the email is actually "sent" (some systems store the email in the outbox to be sent later)?
I don't know of on easy way to track when an email is actually sent.
To be sure, the info on all emails "sent" is kept in your "Sent Items" folder in outlook.
You can open this folder and sort by the date sent, to see the most recently sent email(s).
You can also use Access to link to your sent items folder, ...then create a query to look at today's sent emails:
(Something like this ugly, but working query.). ;-):
SELECT CDate(Format([sent],"mm/dd
FROM [Sent Items]
WHERE (((CDate(Format([sent],"mm
...Or simply use this linked table directly...
But it is not a simple task to "trigger" anything to happen (add a record to a table in Access) if a record is added to the sent items folder.
Your code creates an email, ...but emails do not really have a Primary Key attached to them, so it is difficult to track a specific email, (create a table entry when they are "sent"), after they are created.
Hope this helps...
JeffCoachman
Active today
You can use the MailItem.EntryID (a hexdigits string) of the mail as a PK. It is generated by Outlook to uniquely identify stored or sent messages (either is sufficient).
As then send process is asynchronous, even if you just want to know at which time Outlook queued the message to its outbox, you either need to poll the generated MailItem object for the MailItem.Send boolean, or implement an event trigger for Send (which might not be possible with dynamic code - didn't try).
As then send process is asynchronous, even if you just want to know at which time Outlook queued the message to its outbox, you either need to poll the generated MailItem object for the MailItem.Send boolean, or implement an event trigger for Send (which might not be possible with dynamic code - didn't try).
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Suggested Solutions
| Title | # Comments | Views | Activity |
|---|---|---|---|
| Server 2012 R2 SChannel Error | 57 | 100 | |
| Powershell to Manually enabling Distribution group to Exchange email enabled DG ? | 9 | 37 | |
| pop3 to imap? | 11 | 41 | |
| Create Navigation Button problem | 2 | 8 |
Changing a few Outlook Options can help keep you organized!
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
how to add IIS SMTP to handle application/Scanner relays into office 365.
Suggested Courses
Course of the Month2 days, 4 hours left to enroll
710 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.