[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Reply to Name in Outlook Email Body

Posted on 2014-02-26
4
Medium Priority
?
371 Views
Last Modified: 2014-02-28
I am not sure if this is possible or not. Our helpdesk will send us plain text emails that come from a generic account. The sixth line of every email has the employee's name in it.

I am looking for a way for me to either reply to the helpdesk email and have the employee's name entered or maybe a way (like a quick step) that will forward the email and paste in the employees name. Either way, their name will auto complete.

The admin who runs the helpdesk won't even consider adding in an email field, using ldap queries, etc...

Any help with this would be wonderful!
0
Comment
Question by:Joseph Moody
  • 2
  • 2
4 Comments
 
LVL 37

Accepted Solution

by:
Kimputer earned 2000 total points
ID: 39890254
with alt+f11 add this code:

Sub MailItemContent()
    Dim olItem As Outlook.MailItem
    Dim sText As String

    Set olItem = ActiveExplorer.Selection.Item(1)
    sText = olItem.Body
    Lines = Split(sText, vbCrLf)
    
    Set myOutlook = Outlook.Application
    Set objMailMessage = myOutlook.CreateItem(0)
        With objMailMessage
            .To = Lines(5)
            .Subject = "Email subject"
            .Body = "Email body." 'Msg + Signature?
            .Display
        End With

End Sub

Open in new window


Usage: Select email item, run this code (alt+F8, or make a shortcut to this macro on your toolbar), voila, and open email with the To: field filled with the 6th line of that email.
You can easily see what to adjust (subject, email body) yourself to make it your own.
0
 
LVL 22

Author Comment

by:Joseph Moody
ID: 39891619
This is really cool!! Is there a way to grab only part of the 6th line?

The sixth line looks like: Opened By: FirstName LastName.

I would like to grab everything after the "Opened By: "

And thank you again!!
0
 
LVL 37

Expert Comment

by:Kimputer
ID: 39894241
Yes, find line 12 in previous code starting with .To =

replace with:

.To = Replace(Lines(5), "Opened By: ", "")

Open in new window

0
 
LVL 22

Author Comment

by:Joseph Moody
ID: 39894781
Thank you so much! You make this look so easy!
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

As much as Microsoft wants to kill off PST file support, just as they tried to do with public folders, there are still times when it is useful or downright necessary to export Exchange mailboxes to PST files. Thankfully, it is still possible to e…
Steps to fix error: “Couldn’t mount the database that you specified. Specified database: HU-DB; Error code: An Active Manager operation fail”
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
Suggested Courses
Course of the Month20 days, left to enroll

873 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question