Adding original email text to outlook message template

Status
Not open for further replies.

Jevans

Member
Outlook version
Outlook 2010 32 bit
Email Account
POP3
I'm trying to find a way to email a group of contacts in a folder a message, but send it to them each individually and include their orginal email text/correspondence.

I found this post about mass emailing a folder:
http://www.msoutlook.info/question/525

which works great, but it doesn't include their orgianal text.

Does anyone know if there's a code I can add to an outlook email template that will include the original email and hopefully subject line?

I've also tried doing a similar approach with a VB Script....maybe using code something close to:

Sub EmailReply()
Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem
Set Original = Application.ActiveExplorer.Selection(1)
Set Reply = Original.Reply
Reply.Attachments.Add Original
Reply.Subject = "Important Notice"
Reply.Body = "Body text to be entered here"
Reply.Display
Reply.Send
End Sub

But can't seem to get that to work either. Any help would be awesome!
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
What part of that doesn't work? You just need to add a loop to pick up each address. something like this will work on the selected messages in any folder.
Dim currentExplorer As Explorer
Dim Selection As Selection
Set currentExplorer = Application.ActiveExplorer
Set Selection = currentExplorer.Selection

For Each Original In Selection

' do your stuff

Next
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
This works here - select some messages and run it. I have it set to display for testing. BTW, you don't need to display and send - it should work to just send it.

Code:
Sub EmailReply() 
 Dim currentExplorer As Explorer 
 Dim Selection As Selection 
 Dim Reply As Outlook.MailItem 
 Dim Original As Outlook.MailItem 
 Set currentExplorer = Application.ActiveExplorer 
 Set Selection = currentExplorer.Selection 
 For Each Original In Selection 
 Set Reply = Original.Reply 
 With Reply 
  .Attachments.Add Original 
  .subject = "Important Notice" 
  .Body = "Body text to be entered here" 
  .Display 
 '  .Send 
 End With 
 Next 
 End Sub
 
Status
Not open for further replies.
Top