Add a text line at the end of the note field in all selected Contacts

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Hi,
I have a custom form assigned to my contacts in a custom Folder.
Now we send serial mails to selected contacts.

How to put a line:
DATE: letter 1 sent
at the end of the body (Note field) in each selected contact?

Pls help with a macro
many THX
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
I have a code sample to work with selected items at


Adding the information is fairly easy - you'd use something like this snippet. This adds the date to the body - at the top. Switch it to .Body & vbCrLf & Date & " 1 letter sent " to put it at the end,


Code:
With obj
 
    ' do whatever
    .Body = Date &  " 1 letter sent "  _
         vbCrLf & "------------------------------------------------" & vbCrLf & .Body
         .Save
         .Display
     
     End With
 

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
Many THX But I cannot figure out HowTo
I get syntax ERROR with this Pls Help.

1663078961647.png


Code:
Public Sub DoSomethingSelection()
    Dim objOL As Outlook.Application
    Dim currentExplorer As Explorer
    Dim Selection As Selection
   
    Dim obj As Object
    Set objOL = Outlook.Application
    Set currentExplorer = objOL.ActiveExplorer
    Set Selection = currentExplorer.Selection

    For Each obj In Selection
 
    With obj
 
    ' do whatever
    .Body = Date &  " 1 letter sent " _
         vbCrLf & "------------------------------------------------" & vbCrLf & .Body
         .Save
         .Display
   
     End With
   
    Next

    Set Session = Nothing
    Set currentExplorer = Nothing
    Set obj = Nothing
    Set Selection = Nothing

End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
oops, sorry - missing a & sign.

.Body = Date & " 1 letter sent " _
& vbCrLf & "------------------------------------------------" & vbCrLf & .Body
.Save
.Display

or put it on one line. The reason for splitting to two lines is to make it easier to read / view in the VBA editor without scrolling.

.Body = Date & " 1 letter sent " & vbCrLf & "------------------------------------------------" & vbCrLf & .Body
.Save
.Display
 

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
This adds the date to the body - at the top. Switch it to .Body & vbCrLf & Date & " 1 letter sent " to put it at the end,

What I have now is
Code:
Option Explicit

Public Sub DoSomethingSelection()
    Dim objOL As Outlook.Application
    Dim currentExplorer As Explorer
    Dim Selection As Selection
    
    Dim obj As Object
    Set objOL = Outlook.Application
    Set currentExplorer = objOL.ActiveExplorer
    Set Selection = currentExplorer.Selection

    For Each obj In Selection
 
    With obj
 
    ' do whatever
    .Body = Date & " 1 letter sent " _
    & vbCrLf & "------------------------------------------------" & vbCrLf & .Body
    .Save
    '.Display
    
     End With
    
    Next

    Set Session = Nothing
    Set currentExplorer = Nothing
    Set obj = Nothing
    Set Selection = Nothing

End Sub

But It puts the text at the beginning!?
I do not understand what to do to get the text at the bottom of the Body.

Pls help to achieve this
Many THX
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
You need to switch the order -




Code:
    With obj
 
    ' do whatever
    .Body = .Body  & vbCrLf  &  Date & " 1 letter sent "

    .Save
    '.Display
    
     End With
 

witzker

Senior Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
THX but now I have:
1663139318111.png


Code:
Public Sub DoSomethingSelection()
    Dim objOL As Outlook.Application
    Dim currentExplorer As Explorer
    Dim Selection As Selection
    
    Dim obj As Object
    Set objOL = Outlook.Application
    Set currentExplorer = objOL.ActiveExplorer
    Set Selection = currentExplorer.Selection

    For Each obj In Selection
 
    With obj
 
    ' do whatever
    .Body = .Body & vbCrLf & Date & " 1 letter sent "

    .Save
    '.Display
    
     End With
    
    Next

    Set Session = Nothing
    Set currentExplorer = Nothing
    Set obj = Nothing
    Set Selection = Nothing

End Sub

Pls help to solve this
nearly through!
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
THX but now I have:
View attachment 3702

Code:
Public Sub DoSomethingSelection()
    Dim objOL As Outlook.Application
    Dim currentExplorer As Explorer
    Dim Selection As Selection
   
    Dim obj As Object
    Set objOL = Outlook.Application
    Set currentExplorer = objOL.ActiveExplorer
    Set Selection = currentExplorer.Selection

    For Each obj In Selection
 
    With obj
 
    ' do whatever
    .Body = .Body & vbCrLf & Date & " 1 letter sent "

    .Save
    '.Display
   
     End With
   
    Next

    Set Session = Nothing
    Set currentExplorer = Nothing
    Set obj = Nothing
    Set Selection = Nothing

End Sub

Pls help to solve this
nearly through!
Oh sheesh... that is an error in the code... its been on the web many years and no one mentioned it. :(

Delete the line or change session to selection.
 
Similar threads
Thread starter Title Forum Replies Date
B Add Prefix text to Subject Line Using Outlook 1
S Prompt to add for text to existing subject line before sending. Using Outlook 9
L did MS ever add way to text via Outlook Using Outlook 5
BartH Add a string to the conditions in .Conditions.BodyOrSubject.Text Outlook VBA and Custom Forms 2
O Outlook tasks - Add text column with multiple lines Using Outlook 3
Z Add text to auto-forwarded e-mail Outlook VBA and Custom Forms 4
e_a_g_l_e_p_i Is there a way to add something that is in the "Format Text" tab to the "basic Text" on the message tab Using Outlook 1
Tanja Östrand Outlook 2016 - Create Macro button to add text in Subject Outlook VBA and Custom Forms 1
V Need to add some text in subject while creating new mails - NEED VB CODINGS Using Outlook 4
L Outlook 2007 Macro to Add Text to a Contact Field Using Outlook 10
F VBScript to add pre defined text Using Outlook 5
E Macro to add text to a Message Outlook VBA and Custom Forms 3
K 2003 Outlook Contacts - how do I add text to multiple contacts .... Outlook VBA and Custom Forms 2
U Outlook: Add memo text Outlook VBA and Custom Forms 4
F Outlook 2019 Outlook 2019 Add and Sync to New computer Comcast server Using Outlook 2
A iCloud Outlook Add In is causing Outlook 2021 to crash and got disabled Using Outlook 4
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
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
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
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
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 Add date next to day name in Outlook Today calendar view Using Outlook 1
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
Jennifer Murphy Add birthdays to calendar Using Outlook 7
P Add, remove, & reorder folder pane Using Outlook 6
L Tired of Outlook disabling Adobe PDF Creator add-in Using Outlook 1

Similar threads

Top