Auto Insert Current Date or Time into Email Subject

Not open for further replies.


Outlook version
Outlook 2019 32-bit
Email Account
Office 365 Exchange
I'm looking to have some VBA code to auto-insert the current date every time I click new email.
I was able to figure out the code to run as a Macro of how I want it to work (adapted from your code :) )but can't figure out how to automate it. Help Please

Sub AddDatetoSubject()
Dim myolApp As Outlook.Application
Dim aItem As MailItem ' Object

Set myolApp = CreateObject("Outlook.Application")
Set mail = myolApp.ActiveExplorer.CurrentFolder

Dim iItemsUpdated As Integer
Dim strTemp As String
Dim strDate As String

iItemsUpdated = 0
For Each aItem In mail.Items
Debug.Print aItem.ConversationTopic
strDate = Format(aItem.ReceivedTime, "yy-mm-dd")
strTemp = strDate & " " & aItem.Subject
aItem.Subject = strTemp
iItemsUpdated = iItemsUpdated + 1
Next aItem

MsgBox iItemsUpdated & " of " & mail.Items.Count & " Messages Updated"
Set myolApp = Nothing
End Sub
you need to use activeinstpector. I pulled this from

Are you adding it to the subject or body?

Not tested so it might have a typo or bug or two....

Private WithEvents m_Inspectors As Outlook.Inspectors
Private WithEvents m_Inspector As Outlook.Inspector
Private Sub Application_Startup()
  Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
  Set m_Inspector = Inspector
End Sub

Private Sub m_Inspector_Activate()
' skip calendar and contacts
If m_Inspector.CurrentItem.Class = olAppointment Or m_Inspector.CurrentItem.Class = olContact Then
    Exit Sub

' use this to format or if you want short date format, just use Date where you want the date
 strDate = Format(date, "yy-mm-dd") 

' subject

 m_Inspector.subject =  strDate
'm_Inspector.subject =  Date

' can either use word or a simple .body command to 
' insert in body
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore strDate
' olSelection.InsertBefore Date
 Set m_Inspector = Nothing
End Sub
Thanks so much! I almost have the code completed. This is what I have in the ThisOutlookSession code area.
There are two issues I was hoping for any help
1)I want this code to run any time I create a new message. Currently, I have to run the macro and then click new email for it to run. I'd prefer have it run automatically every time I clock new email.
2)I'm hoping that when solving #1, it solves the issue that I have when I open .msg files that we have stored on our local drive, this macro runs. I believe it's running because it runs every time I open a message instead of only on new messages.

Public WithEvents objInspectors As Inspectors
Public WithEvents objMail As MailItem

Public Sub Initialize_handlers()
Set objInspectors = Application.Inspectors
End Sub

Public Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
If TypeOf Inspector.CurrentItem Is MailItem Then
Set objMail = Inspector.CurrentItem
End If
End Sub

Public Sub objMail_Open(Cancel As Boolean)
Dim strDate As String

'the current date

strDate = Format(Date, "yy mm dd")

' MsgBox "user chose " & lstNo & " from combo"

Select Case lstNo
Case -1
objMail.Subject = strDate & " "
Case 0
objMail.Subject = strDate & " West1 "
Case 1
objMail.Subject = strDate & " Charlotte "
Case 2
objMail.Subject = strDate & " "
Case 3
objMail.Subject = "Subject 4"
Case 4
objMail.Subject = "Subject 5"
End Select

End Sub
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
DDB VBA to Auto Insert Date and Time in the signature Outlook VBA and Custom Forms 2
M Replyall macro with template and auto insert receptens Outlook VBA and Custom Forms 1
R How Do I insert images in and Auto Reply Using Outlook 3
A Auto Insert of filename when selecting 'Remove Attachment' Using Outlook 1
P Email address auto-completes work fine on laptop, but no longer on desktop Using Outlook 3
C New pc, new outlook, is it possible to import auto-complete emailaddress Using Outlook 4
R Outlook 365 VBA AUTO SEND WITH DELAY FOR EACH EMAIL Outlook VBA and Custom Forms 0
Nufc1980 Outlook "Please treat this as private label" auto added to some emails - Help. Using Outlook 4
K vba code to auto download email into a specific folder in local hard disk as and when any new email arrives in Inbox/subfolder Outlook VBA and Custom Forms 0
F Auto changing email subject line in bulk Using Outlook 2
T Outlook 2019 Not Using Auto Compete After Deletion of 365 Using Outlook 1
richardwing Auto forward email that is moves into a specific outlook folder Outlook VBA and Custom Forms 5
D Auto Remove [EXTERNAL] from subject - Issue with Macro Using Outlook 21
nmanikrishnan Auto-reply from default account Using Outlook 1
A Imap account not auto syncing inbox at startup Using Outlook 0
K Run a script rule to auto 'send again' on undeliverable emails? Outlook VBA and Custom Forms 1
FryW Need help modifying a VBA script for in coming emails to auto set custom reminder time Outlook VBA and Custom Forms 0
S Auto forward for multiple emails Outlook VBA and Custom Forms 0
V Auto-complete stopped working Using Outlook 4
D auto forward base on email address in body email Outlook VBA and Custom Forms 0
R Auto Forwarding with different "From" Outlook VBA and Custom Forms 0
P auto-complete is hopelessly broken Using Outlook 0
R Auto Assign Category colours to Incoming Emails based on whom the email is addressed Outlook VBA and Custom Forms 3
C Auto Run VBA Code on new email Outlook VBA and Custom Forms 1
S Outlook Macro to send auto acknowledge mail only to new mails received to a specific shared inbox Outlook VBA and Custom Forms 0
V Auto-Submitted: auto-replied in header Using Outlook 0
R Auto display of new email does not work on non-default account Outlook VBA and Custom Forms 0
B Outlook 2016 Auto-archive creates new folder Using Outlook 3
J Edit auto-complete list in Outlook 2016+/365? Using Outlook 0
P Auto assign shared mailbox Outlook VBA and Custom Forms 1
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
P [SOLVED] Auto remove [EXTERNAL] from subject Using Outlook 16
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
N Disable Auto Read Receipts sent after using Advanced Find Using Outlook 4
Q Prompt button to auto turn on Out of Office Outlook VBA and Custom Forms 3
S Messages moved / deleted by auto-archive are not synchronized to exchange Exchange Server Administration 8
B Outlook 2010 is Auto Purging when not configured for that Using Outlook 1
M VBA to auto forward message with new subject and body text Outlook VBA and Custom Forms 8
A Auto Accept Meetings from the General Calendar Using Outlook 3
R auto send email when meeting closes from a shared calendar only Outlook VBA and Custom Forms 2
S auto-mapping mailboxes in outlook impacting an ost file? Exchange Server Administration 2
M Auto expand Distribution List Before Sending Email Outlook VBA and Custom Forms 1
M Auto-export mail to Excel Outlook VBA and Custom Forms 2
Ms_Cynic Auto-pasting email content in calendar appt? Using Outlook 2
S Received mail as part of DL, need to auto-CC the same when replying Outlook VBA and Custom Forms 5
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 10
T Have Outlook 2016 suggest email address auto complete entries directly from the user's contacts list Using Outlook 0
P Auto scroll to specific folder in Folder Pane Outlook VBA and Custom Forms 3
C Auto categorize duplicate subjects Outlook VBA and Custom Forms 11
N Auto-complete - block select emails Using Outlook 3

Similar threads