Excel VBA to Generate Outlook Message with a Body from Word File

[Magdoulin]

Hi Guys,


I am trying to write an VBA Code that would help creating Outlook Email message with To, CC and Subject fields.

However, the body, I need to be read from Word File saved in my computer drive.

Here is what I have reached so far, yet, it works only for creating the email message with the needed field except for the body part.


Sub Email_Template1()

Dim oMailItem As Object
Dim oOLapp As Object
Dim Word As Object
Dim doc As Object
Dim MsgTxt As String

Set oOLapp = CreateObject("Outlook.Application")
Set oMailItem = oOLapp.CreateItem(0)

With oMailItem
.To = "Email"
.CC = "Email"
.Subject = "Needed Confirmation"
.Display
End With

Set Word = CreateObject("word.application")
Set doc = Word.Documents.Open _
(FileName:="G:\Customer Services\File Plan\Magdoulin\To be deleted 1.docx", ReadOnly:=True)
'Pulls text from file for message body
MsgTxt = doc.Range(Start:=doc.Paragraphs(1).Range.Start, _
End:=doc.Paragraphs(doc.Paragraphs.Count).Range.End)

Set oOLapp = Nothing
Set oMailItem = Nothing
End Sub

 

[daverunt]

Have a look at this link and see if that points you in the right direction.

https://www.mrexcel.com/forum/excel-questions/1027677-vba-email-send-sends-empty-email-body.html

 

[Fluff]

Cross posted https://www.ozgrid.com/forum/forum/...te-outlook-message-with-a-body-from-word-file

Cross-Posting
While we do not prohibit Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules).
This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.

 

[Worf]

This worked for me:

Sub Email_Template1()
Dim oMailItem As Object, oOLapp As Object
Dim Word As Object, doc As Object, MsgTxt$
Set oOLapp = CreateObject("Outlook.Application")
Set oMailItem = oOLapp.CreateItem(0)
Set Word = CreateObject("word.application")
Set doc = Word.Documents.Open(Filename:="c:\pub\first2.docm", ReadOnly:=True)
MsgTxt = doc.Range(Start:=doc.Paragraphs(1).Range.Start, _
End:=doc.Paragraphs(doc.Paragraphs.Count).Range.End)
With oMailItem
    .To = "Email"
    .cc = "Email"
    .Subject = "Needed Confirmation"
    .HTMLBody = MsgTxt
    .Display
End With
Set oOLapp = Nothing
Set oMailItem = Nothing
End Sub