Add a date stamp to the note field of a custom form

Status
Not open for further replies.
0

007

I am using the following code to add a button that inserts a time and date

field in the note section of a custom contact form.

Sub StampDate()

Item.Body = Now() & vbCrLf & vbCrLf & Item.Body

End Sub

Sub CommandButton3_Click()

Call StampDate()

End Sub

There are a few bugs I need to fix.

1) I would like to add the user name.

2) My note field has some files that I have dragged to the top of the note

field and when I click the command button, the date text gets jumbled up

around the files. So I would like the date stamp to be inserted below the

files at the top.

Any help would be greatly appreciated.
 
B

brightenmyoutlook

On Dec 16, 10:07 am, 007 <0...> wrote:
> I am using the following code to add a button that inserts a time and date
> field in the note section of a custom contact form.

> Sub StampDate()
> Item.Body = Now() & vbCrLf & vbCrLf & Item.Body
> End Sub

> Sub CommandButton3_Click()
> Call StampDate()
> End Sub

> There are a few bugs I need to fix.
> 1) I would like to add the user name.
> 2) My note field has some files that I have dragged to the top of the note
> field and when I click the command button, the date text gets jumbled up
> around the files. So I would like the date stamp to be inserted below the
> files at the top.

> Any help would be greatly appreciated.


++++++++++++++++++++++++++++++++++++++++++++++++++++++

The modified code below should return the User Name for you.

Sub StampDate()

Item.Body = Application.GetNamespace("MAPI").CurrentUser & " - " &

Now() & vbCrLf & vbCrLf & Item.Body

End Sub

Sub CommandButton3_Click()

Call StampDate()

End Sub

As far as the attachments are concerned, you should place them at the

bottom of the note field. If they must remain on the top, then you

will have to write some code that removes all existing attachments,

inserts your date/time stamp, then adds attachments back into note

field. You can use the code below as a starting point although I

believe this is more effort than its worth.

Sub CopyAttachments (objSourceItem, objTargetItem)

Dim fso As Object

Dim fldTemp As Object

Dim objAtt As Attachment

Dim strPath As String

Dim strFile As String

Set fso = CreateObject ("Scripting.FileSystemObject")

Set fldTemp = fso.GetSpecialFolder(2)

strPath = fldTemp.Path & "\"

For Each objAtt In objSourceItem.Attachments

strFile = strPath & objAtt.FileName

objAtt.SaveAsFile strFile

objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName

fso.DeleteFile strFile

Next objAtt

Set objAtt = Nothing

Set fldTemp = Nothing

Set fso = Nothing

End Sub

The modified code below should return the user for you.

Sub StampDate()

Item.Body = Application.GetNamespace("MAPI").CurrentUser & " - " &

Now() & vbCrLf & vbCrLf & Item.Body

End Sub

Sub CommandButton3_Click()

Call StampDate()

End Sub

As far as the attachments are concerned, you should place them at the

bottom of the note field. If they must remain on the top, then you

will have to write some code that removes all existing attachments,

inserts your date/time stamp, then adds attachments back into note

field. You can use the code below as a starting point although I

believe this is more effort than its worth.

Sub CopyAttachments (objSourceItem, objTargetItem)

Dim fso As Object

Dim fldTemp As Object

Dim objAtt As Attachment

Dim strPath As String

Dim strFile As String

Set fso = CreateObject ("Scripting.FileSystemObject")

Set fldTemp = fso.GetSpecialFolder(2)

strPath = fldTemp.Path & "\"

For Each objAtt In objSourceItem.Attachments

strFile = strPath & objAtt.FileName

objAtt.SaveAsFile strFile

objTargetItem.Attachments.Add strFile, , , objAtt.DisplayName

fso.DeleteFile strFile

Next objAtt

Set objAtt = Nothing

Set fldTemp = Nothing

Set fso = Nothing

End Sub

Brian McOutlook

www.brightenmyoutlook.com | Outlook Customization
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
M Macro to add date/time stamp to subject Outlook VBA and Custom Forms 4
L Macro to add Date & Time etc to "drag to save" e-mails Outlook VBA and Custom Forms 14
D Add date next to day name in Outlook Today calendar view Using Outlook 1
C Need VBA code to automatically save message outside outlook and add date Outlook VBA and Custom Forms 1
A Email Macro to add Date and Classification Outlook VBA and Custom Forms 2
C add a date without holidays Outlook VBA and Custom Forms 2
P How do i add the date to subject header of incoming mail? Outlook VBA and Custom Forms 13
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
C Looking for feedback on new Outlook Add-in Using Outlook 0
L isn't there an OL add-on that flags addressee before sending Using Outlook 3
S Add VBA save code Using Outlook 0
P Shortcut Pane - add shortcut to Office365 group mailbox Using Outlook 1
Z Add ComboBox Value to Body of Email Outlook VBA and Custom Forms 1
G How to add a folder shortcut to outlook quick access toolbar? Using Outlook 6
G Add to Outlook Contacts - Point to non-default contacts folder Using Outlook 0
M Automatically add senders first name to a greeting Outlook VBA and Custom Forms 1
C Add Form to Appointments Received, Automatically Outlook VBA and Custom Forms 6
O Outlook tasks - Add text column with multiple lines Using Outlook 3
W April 2020 Office 365 Update - Add-Ons fail after Office 365 Update Using Outlook 6
Z Task Filter Not Working When I add too many criteria Using Outlook 0
D iCloud Add-in not working in Outlook 2013 and Outlook 2016 After Windows Upgrade & iCloud Upgrade Using Outlook 2
P Add Paste Unformatted to QAT Using Outlook 1
M Ignore slow add-ins Using Outlook 0
B Add Prefix text to Subject Line Using Outlook 1
Jennifer Murphy Add birthdays to calendar Using Outlook 7
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
P Add, remove, & reorder folder pane Using Outlook 6
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1
R Add 'Company' to Select Names Form Using Outlook 1
A Outlook 2016 Web add-in missing on some machines Using Outlook 9
P Syncing problems with add-ins Using Outlook 3
Mark Foley Cannot enable add-in in outlook 2010 Using Outlook 0
BretAB Is it possible to add a lookup field to a Message form? Outlook VBA and Custom Forms 4
J Add an Attachment Using an Array and Match first 17 Letters to Matching Template .oft to Send eMail Outlook VBA and Custom Forms 2
iwshim outlook 2013 - I cannot see the "Manage Add-ins" Using Outlook 2
A Add multiple servers "on behalf of" email to "safe senders" list. Using Outlook 1
S Add Exchange Account as Secondary to Existing PST? Exchange Server Administration 1
C Macro to add multiple recipients to message Outlook VBA and Custom Forms 3

Similar threads

Top