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

  • Thread starter Thread starter 007
  • Start date Start date
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.
 
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 17
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
T Add Account Using Outlook 1
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
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

Similar threads

Back
Top