Get the seconds with userproperties.add method VBA Outlook

Not open for further replies.


Outlook version
Outlook 2010 32 bit
Email Account
Exchange Server 2010
Hi Everyone and thanks in advance for your help,

I am trying to create a user-defined custom field with the userproperties.add method in vba outlook.

The idea is that when the user clicks on a macro button the field will show the current time with seconds included. I made the user-defined field with VBA Outlook but It gives the time with the following format, e.g. Thu 05/11/2015 09:23. I want to see the seconds as well

I created another user-defined field with Settings -> Columns -> ADD -> Test 1 with the idea to format UserDefinedFieldName to give the seconds. On the column properties I added: Format([UserDefinedFieldName],"ddd yyyy-mm-dd hh:mm:ss"). However it gives 0 seconds, which is not correct: Thu 05/11/2015 09:23:00.

How can I make a userdefined field which can give the seconds? Here is the code:

Dim UserDefinedFieldName As String
Set Folder = ActiveExplorer.CurrentFolder
If Folder.DefaultItemType = olMailItem Then
                Set Selection = ActiveExplorer.Selection
                    If Selection.Count > 0 Then
                        For i = 1 To Selection.Count
                        Set oEmail = Selection(i)
                        Set objProperty = oEmail.UserProperties.Add(UserDefinedFieldName, Outlook.OlUserPropertyType.olDateTime)
                        objProperty.Value = Now()
                        End Sub

Please help me get the seconds! Any help will be much appreaciated!
Hi Diane,

I do not need two fields, I just looked for another way to solve this but it works only with non-user-defined columns such as received.

I am not sure what you mean by value, for the field created invba outlook I use the =now() formula only. I do not know how to properly format it to include seconds.
I also tried
objProperty.Value = vbLongTime
But it gives: 02/01/1900 00:00 :(. Is there a way to show current time with seconds?
It's something with the oldatetime field type that it drops the seconds. Do you need it as a date time field? If oltext will do, this works:
objProperty.Value = Format(Now(), "mm/dd/yyyy hh:mm:ss AM/PM")
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S E-mails marked as read turn back to unread after a couple of seconds Using Outlook 1
Venkata Murugan Guna How to sum hours, minutes, or seconds in Outlook Using Outlook 51
G Enter Network Password box pops up every few seconds Using Outlook 2
R How many seconds usually takes an email to get to an outlook account? Using Outlook 0
R Outlook 2007 Freezes (Pauses) Every 30 Seconds Using Outlook 2
N Cut and Paste Taking 25 seconds Using Outlook 0
D Cannot populate certain UserProperties in Outlook from Excel Outlook VBA and Custom Forms 2
W Appointment userproperties disappear Outlook VBA and Custom Forms 4
J Storing userproperties to array Outlook VBA and Custom Forms 4
mrmmickle1 UserProperties VBA to move message to another folder Outlook VBA and Custom Forms 7
R How to search for blank userproperties field Outlook VBA and Custom Forms 4
M Assigning Values to Contact UserProperties Outlook VBA and Custom Forms 1
S UserProperties of MailItem object. Outlook VBA and Custom Forms 3
V Difference between UserProperties and ItemProperties? Outlook VBA and Custom Forms 4
G Add Map It button to Custom Contacts Form in Outlook Outlook VBA and Custom Forms 1
G Outlook 2021 Add Picture to Custom Contact Form Outlook VBA and Custom Forms 2
P Can't add custom field to custom Outlook form, it always adds to the Folder instead Outlook VBA and Custom Forms 2
P VBA to add email address to Outlook 365 rule Outlook VBA and Custom Forms 0
S Outlook 2019 Custom outlook Add-in using Visual Studio Outlook VBA and Custom Forms 0
G automatically choosing "add to autocorrect" option Using Outlook 0
F Want to add second email to Outlook for business use Using Outlook 4
K Add an entry to a specific calendar Using Outlook 1
F Add a category before "Send an Email When You Add an Appointment to Your Calendar" Outlook VBA and Custom Forms 0
J Want to create a button on the nav bar (module add-in) to run code Outlook VBA and Custom Forms 2
M "Attachment Detacher for Outlook" add in, does it update the server copy of the email? Using Outlook 1
J Outlook 365 Add keywords from Listbox to the message body where cursor is placed Outlook VBA and Custom Forms 0
O Add Day Number of the year for 2023-2033 Outlook VBA and Custom Forms 5
J GoDaddy migrated to Office365 - Outlook Wont Add Account Exchange Server Administration 21
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
Witzker Add a text line at the end of the note field in all selected Contacts Outlook VBA and Custom Forms 7
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 10
N How to add or delete items to Move dropdown Menu Using Outlook 0
G Add contacts birthday to calendar Using Outlook 4
V How to add 'Previous Item' and 'Next Item' to the Quick Access Toolbar Using Outlook 1
Commodore Safe way to add or update holidays; Windows Notifications issue Using Outlook 8
kkqq1122 How would I add Search for attachment name Outlook VBA and Custom Forms 3
L did MS ever add way to text via Outlook Using Outlook 5
P How to add a column named categories when searching in Outlook Using Outlook 0
M add new attendee to existing meetings with VBA Outlook VBA and Custom Forms 5
N Can't create NEW GROUP and add/remove a member from existing Group in Outlook Using Outlook 1
Witzker Outlook 2019 Pls. add a Prefix for OUTLOOK 2019 here Using Outlook 1
P Add inanimate objects to meetings? Using Outlook 1
O Outlook 2010 Add delete button to the side of the message list Using Outlook 1
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
A "Get Add-Ins" - Which Version of Outlook to use Using Outlook 1
D Do I need Exchange Add-In? Using Outlook 6
C-S-R Manage Add-ins (Remove Wunderlist) Using Outlook 6
A iCloud add in problems Using Outlook 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 17
C Looking for feedback on new Outlook Add-in Using Outlook 0

Similar threads