outlook

[Trevor3007]

hi,

Does any know how to add the subject line into email body, rather than copy & paste into ?

Hoping someone can 'rescue me' & thank you for your help.


KR
Trevor3007

 

[Macropod]

What code are you currently using?

 

[Trevor3007]

What code are you currently using?

morning Macropod,

Thank you for getting back to me. I don't have any & was hoping people like yourself could supply?

KR
Trevor3007

 

[Macropod]

In that case, you're going to have to provide much more information than you have so far. For example, where does the subject line come from? And what about any other content - message body, email address, etc.?

 

[Trevor3007]

In that case, you're going to have to provide much more information than you have so far. For example, where does the subject line come from? And what about any other content - message body, email address, etc.?

Hi & thanks for your reply.


The only thing I need is the subject line IE today is Saturday 11/11/17 to show in the body of the email. I would send a screenshot but I don't know how to & there is no 'paste' option on the forum.

KR
Trevor3007

 

[Macropod]

So all you want is a macro that will insert the email subject somewhere in the email body? Since you're going to have to run the macro manually, it's not going to save much time/effort, unless you go to the extra effort of creating a button for the macro and assign the macro to it on the QAT. That's a lot of effort for minimal time savings.

 

[Trevor3007]

So all you want is a macro that will insert the email subject somewhere in the email body? Since you're going to have to run the macro manually, it's not going to save much time/effort, unless you go to the extra effort of creating a button for the macro and assign the macro to it on the QAT. That's a lot of effort for minimal time savings.

hiya,

Yes I appreciate that but for me its worth the bother/effort. And yes I would assign a 'button'.

Kindest regards
Trevor3007

 

[Macropod]

Try:

Sub InsertHeaderText()
'Note: This code requires references to Word, via Tools|References
Dim olMail As Outlook.MailItem, olInsp As Outlook.Inspector, wdDoc As Word.Document
Set olMail = Application.ActiveInspector.CurrentItem
Set olInsp = olMail.GetInspector
Set wdDoc = olInsp.WordEditor
Word.Selection.InsertBefore " " & olMail.Subject
Set wdDoc = Nothing: Set olInsp = Nothing: Set olMail = Nothing
End Sub

 

[Trevor3007]

Try:

Sub InsertHeaderText()
'Note: This code requires references to Word, via Tools|References
Dim olMail As Outlook.MailItem, olInsp As Outlook.Inspector, wdDoc As Word.Document
Set olMail = Application.ActiveInspector.CurrentItem
Set olInsp = olMail.GetInspector
Set wdDoc = olInsp.WordEditor
Word.Selection.InsertBefore " " & olMail.Subject
Set wdDoc = Nothing: Set olInsp = Nothing: Set olMail = Nothing
End Sub

hiya :}

Thanks for getting back so quickly.

Run your code but debug error and this was highlighted wdDoc As Word.Document ( I coloured the text red so it would standout more)

Sub InsertHeaderText()
'Note: This code requires references to Word, via Tools|References
Dim olMail As Outlook.MailItem, olInsp As Outlook.Inspector, wdDoc As Word.Document
Set olMail = Application.ActiveInspector.CurrentItem
Set olInsp = olMail.GetInspector
Set wdDoc = olInsp.WordEditor
Word.Selection.InsertBefore " " & olMail.Subject
Set wdDoc = Nothing: Set olInsp = Nothing: Set olMail = Nothing
End Sub


KR
Trevor3007

 

[Macropod]

Did you read:
'Note: This code requires references to Word, via Tools|References