insert Date & Time (HH:mm) no (ss) in userform

Status
Not open for further replies.

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Hi

I have a userform in outlook.

In the code of the form I have the following code:

Sub Datum_Click()

Item.Body = Item.Body & vbCrLf & Date() & " - " & Time() & ": "
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.SendKeys("{TAB 11}")
objWSHShell.SendKeys("^{End}")
objWSHShell.SendKeys("^{backspace}")

End Sub

I have button in the form that starts this code.

Date - time is inserted at the end of the form body.

Date is ok but in time format I do not need seconds.

Can you help me with the correct code to insert date - hh:mm. no seconds.

regards

witzker
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You need to use Format(time, "hh:mm") - for 12 hour time, use Format(Time, "h:mm am/pm")

BTW, is your account working ok? I made a boo-boo last night when i was working on the forum and had to restore from a backup then restore posts and accounts created between the backup and the boo-boo - the accounts are giving me fits.
 

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
THX Diane
I tried


Item.Body = Item.Body & vbCrLf & Date() & " - " & Format(time, "hh:mm") & ": "
in the code of the outlook form


when I press the button I get an error :


Typenkonflikt: 'Format'

is the code working in your outlook form?

 

Forum Admin

Senior Member
It works in VB :) But not in vbsript, which is in the View Code dialog in a custom form.

The works in the view code dialog - FormatDateTime(Time,4) but its in 24 hr time. a 3 will use the long time format in Control panel.

If you need 12 hour format, you can use a function -

Code:
Function timeStamp()
If Hour(now) > 12 then timeStamp = Hour(now)-12 & ":" & Minute(now) & " PM"  else timeStamp = Hour(now) & ":" & Minute(now) 
 
End Function
 

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
THX Forum Admin - That is the solution
I have now:

Item.Body = Item.Body & vbCrLf & Date() & " - " & FormatDateTime(Time,4) & ": "
Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.SendKeys("{TAB 11}")
objWSHShell.SendKeys("^{End}")
objWSHShell.SendKeys("^{backspace}")

SOLVED many THX :)

Witzker

PS: by the way is there a better way to place the cursor at the end of the body to the inseted date & Time??

schould I open a seperate Thread?

regards
Witzker
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
Re: insert Date & Time (HH:mm) no (ss) in userform

This thread is fine since it applies to this macro.

It's no worse than any other method, since Outlook's VBA doesn't cover cursor position.

The other option is using word object - - this is the block I use in macros but it won't work in vbscript.

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 'or .InsertAfter
 

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Re: insert Date & Time (HH:mm) no (ss) in userform

Many THX
Witzker
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
A insert Date & Time in userform Using Outlook 3
P Auto Insert Current Date or Time into Email Subject Outlook VBA and Custom Forms 2
witzker Outlook 2010 Insert Date & Time at the button of an OL contactform in red Using Outlook 2
C Insert a Date Picker for Send Mail Subject Using Outlook 1
C Insert date in Subject through date picker Using Outlook 0
J Form design - how do I insert an automatic date/time field? Using Outlook 2
F Insert date at cursor location Outlook VBA and Custom Forms 4
B VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
B Programmatically force html send and insert clipboard contents into body Outlook VBA and Custom Forms 0
P Insert link in email body to attached document in Outlook 365 Outlook VBA and Custom Forms 0
E Copy e-mail body from outlook and insert into excel Outlook VBA and Custom Forms 3
R How Do I insert images in and Auto Reply Using Outlook 3
L Automatically Insert Recipient Name from To Field Outlook VBA and Custom Forms 33
Diane Poremsky Create Task or Appointment and Insert Selected Text New Slipstick.com Articles 0
B Insert Hyperlinks for attachments in Userform Outlook VBA and Custom Forms 5
D Outlook task insert Outlook VBA and Custom Forms 3
A Auto Insert of filename when selecting 'Remove Attachment' Using Outlook 1
K Insert screenshots issue Using Outlook 2
makinmyway Recent Files Not Updating when Using Insert Hyperlink in Outlook 2013 Using Outlook 0
L Insert Photo to Contact Using Outlook 23
K OL2010 Button to Insert First Name Outlook VBA and Custom Forms 6
K OL2010 Button to Insert First Name Using Outlook 1
K Macro to insert attachments Using Outlook 1
mrje1 Opening a task the Insert Tab Option is not showing up and organizing Tasks Using Outlook 9
H Insert Specific Text before Subject for New mails and reply Using Outlook 3
R insert picture tab grey Using Outlook 1
K Outlook insert clip art, no results found...address book contacts only show up Using Outlook 5
J How do I view the ruler in an Outlook message and/or insert tabs? Using Outlook 7
L Forward Email and Insert Sender's Email address in body Outlook VBA and Custom Forms 3
D Insert Text and Send Outlook VBA and Custom Forms 1
D Re: How do i insert radio buttons in an email Outlook VBA and Custom Forms 1
G How to insert a json array into a calendar events Outlook VBA and Custom Forms 1
K insert text into current position of pointer in mailcompose Outlook VBA and Custom Forms 1
J Insert File Outlook VBA and Custom Forms 2
M Insert a File Outlook VBA and Custom Forms 3
G Task / Insert / Attach Item / Business Contact BCM (Business Contact Manager) 1
M Forward email as insert from button Outlook VBA and Custom Forms 1
B Simple way to insert file text - macro? Outlook VBA and Custom Forms 1
S How to insert a picture programatically Outlook VBA and Custom Forms 12
C insert a picture Outlook VBA and Custom Forms 1
J How do I scan and insert into Outlook 2007? Using Outlook 3
B Insert information to MailItem Outlook VBA and Custom Forms 1
D RE: How do you change the default insert file path in outlook? Using Outlook 11
D Insert Text via Macro in Outlook 2007 Outlook VBA and Custom Forms 2
T Is it possible to INSERT a string into email body via Shortcut. Outlook VBA and Custom Forms 2
J Command Button to insert Email Signature Outlook VBA and Custom Forms 2
D Macro creation for Outlook insert subject Outlook VBA and Custom Forms 1
T Insert text from file Outlook VBA and Custom Forms 1
S How to create a macro to insert a signature in Outlook 2007 Outlook VBA and Custom Forms 1
T How do i insert a page break in an Outlook e-mail message? Using Outlook 4

Similar threads

Top