Solved

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

Posted on 2011-02-19
3
372 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

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

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

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…
In this step by step procedure, you will come to know the details of creating an Outlook meeting in 2007, 2010, 2013 & 2016.
Many of my clients call in with monstrous Gmail overloading issues with Outlook. A quick tip is to turn off the All Mail and Important folders from synching. Here is a quick video I made to show you how to turn off these and other folders in Gmail s…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.

726 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