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

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
Who is Participating?
TommySzalapskiConnect With a Mentor Commented:
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.
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.
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
End If
End Sub

Open in new window

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.