Auto Insert Current Date or Time into Email Subject

PJM

Member
Outlook version
Outlook 2019 32-bit
Email Account
Office 365 Exchange
Hello,
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
aItem.Save
Next aItem

MsgBox iItemsUpdated & " of " & mail.Items.Count & " Messages Updated"
Set myolApp = Nothing
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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....

Code:
Private WithEvents m_Inspectors As Outlook.Inspectors
Private WithEvents m_Inspector As Outlook.Inspector
 '//slipstick.me/888jf
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
Else

' 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
 

PJM

Member
Outlook version
Outlook 2019 32-bit
Email Account
Office 365 Exchange
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")
UserForm1.Show

' 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
 
Thread starter Similar threads Forum Replies Date
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
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 4
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 6
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
C Auto save outlook attachments when email is received Outlook VBA and Custom Forms 1
J HELP- Rule to auto strip prepend from external emails Using Outlook 0
S BCM Auto Backup Data and Customizations BCM (Business Contact Manager) 6
G Auto accept meeting request for non primary account Outlook VBA and Custom Forms 1
J Outlook Rules - Changing auto-submit address in multiple rules, according to rule name Outlook VBA and Custom Forms 0
E Outlook Form - Voting Responses Not Auto Processing If Form Contains Any Code Outlook VBA and Custom Forms 0
J Auto Forward - Include Attachment and change Subject depending on original sender Outlook VBA and Custom Forms 3
K Extract email address from body and auto-reply outlook Using Outlook 1
S Auto move search results to folder Outlook VBA and Custom Forms 0
E Outlook 2010 disable date auto-complete Using Outlook 2
C Auto subject,name,email,deferred Using Outlook 2
ashcosta2 Auto Reply rule based on speficied time Outlook VBA and Custom Forms 0
B Auto Preview Attachment in Inspector Reading Pane Outlook VBA and Custom Forms 1
Z Auto Forward Using Outlook 4
M can anyone recommend an alternative to DS auto-followup? Using Outlook 2
S Rules to auto redirect Using Outlook 5
B Auto Save of Attachments from Multiple Emails and forward attachments to user group Outlook VBA and Custom Forms 1
C Auto Add a PDF to an outgoing Email, based on a rule Using Outlook 2
B Auto open PDF Outlook VBA and Custom Forms 0
P Is it possible to convert address book to "Auto-Complete List" (NK2)? Using Outlook 5
B Auto name checking upon Tab or Click off To field(s) Using Outlook 19
J Auto Accept Notifications from a shared icloud calendar? Using Outlook 4
B Auto scan/send Outlook VBA and Custom Forms 5
N Auto-forwarding an Email received from a specific Email address After slight modifications Using Outlook 4
Similar threads


















































Top