Solved

How can I record date of last email sent for each contact?

Posted on 2011-02-19
3
367 Views
Last Modified: 2012-05-11
I created a form in Outlook for my contacts and would like to record the date I last emailed the contact. I use mail-merge most of the time when sending out emails but I also email contacts individually. I've created a field on our form called Date of Last Contact but I'm constantly having to input the information in manually. Outlook2
0
Comment
Question by:brokerexecutives
[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
  • 2
3 Comments
 
LVL 27

Expert Comment

by:davorin
ID: 34938069
The "date of last contact" has the purpose of taking the note when you had the last communication with the contact of whatever sort was - mail, fax, phone call, meeting - so it is supposed to fill the data in it manually.
I would try to look in two outlook functionalities:
- If there is possible to create a rule when the mail is sent, which enables you to fill data in contacts fields. I had never tried to do anything similar and at the moment I don't have the possibility to try it.
- If there is possibility to create a macro with the same functionality. Also this one is a little bit beyond my knowledge.
Sorry, it is not the solution, but I hope the suggestions will help you a little bit.
0
 
LVL 37

Expert Comment

by:TommySzalapski
ID: 34939260
You can create a macro to run when mail is sent. It would look something like this.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim msg As Outlook.mailItem
Dim contactFolder, r
Dim contact As Outlook.ContactItem
Set contactFolder = mainSpace.GetDefaultFolder(10)
msg = TryCast(Item, Outlook.mailItem)
If Not msg Is Nothing Then
  For Each r In msg.Recipients
    Set contact = contactFolder.Items.Find("[Email1Address] = """ & objContact.Email1Address & """")
    If Not contact Is Nothing Then
      contact.LastModificationTime = Now
    End If
  Next
End If
End Sub

Open in new window

0
 
LVL 37

Accepted Solution

by:
TommySzalapski earned 500 total points
ID: 34987359
I feel that http:#a34939260 gives a valid solution to the original question. There may likely be others in the future that have a similar need so even though you have different questions, it would be good to accept an answer that did solve the original problem.
0

Featured Post

SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Large Outlook files lead to various unwanted errors and corruption issues. Furthermore, large outlook files can also make Outlook take longer to start-up, search, navigate, and shut-down. So, In this article, i will discuss a method to make your Out…
Many people use more than one email account and so it becomes difficult for them to manage them when they use separate accounts,  so, in this article, I have shared an easy way to add Other Mail Accounts in your Google Inbox. It helps to combine all…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…

732 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question