Using word Template as outlook mail body

Rajan1415 

hmm…The issue seems to be related to the way the Word document is being used as an email template. When you change the code to ".Display" instead of ".Send," it successfully previews the email because the Word content is directly embedded in the email body. However, when you try to send the email using ".Send," there might be a conflict between the Word document and the Outlook mail item, preventing the proper formatting and sending of the email.

To resolve this issue, you can consider the following approaches:

1. Separate Word Document and Email: Instead of embedding the Word document directly into the email, you can save the Word document as an HTML file and then attach it to the email. This will ensure that the Word content is properly formatted and handled by Outlook without any conflicts.
2. Create Custom Template in Outlook: Consider creating a custom email template in Outlook that uses the desired Word document as a starting point. This template can be linked to the Word document and will allow you to dynamically insert personalized content without embedding the entire document.
3. Utilize Third-Party Tools: If you need more advanced functionality or control over the email creation process, you can explore third-party tools that specialize in generating personalized emails from Word templates. These tools often provide more robust integration between Word and Outlook, ensuring seamless email creation and sending.

By implementing one of these approaches, you can effectively use Word documents as email templates and avoid the error associated with directly embedding the Word content into the Outlook mail item. The text and steps were edited with the help of AI.

As a final thought or attempt without being sure if this will work, Let's try a slightly different approach to handle the Word editor in Outlook. Replace the relevant part of your code with the following:

Code:

' ...
With OutMail
    ' ... (previous code remains unchanged)

    ' Paste the modified content into the email body
    .GetInspector.WordEditor.Range.PasteSpecial Link:=False, DataType:=wdPasteHTML, Placement:=wdInLine, DisplayAsIcon:=False

    ' Close the Word document
    WordDoc.Close False ' Do not save changes

    ' Attachments (if any)
    If Not IsEmpty(Sheets("Sheet1").Cells(i, 5).Value) Then
        .Attachments.Add Sheets("Sheet1").Cells(i, 5).Value
    End If

    .Subject = Subject  ' Set the email subject
    .Send  ' Send the email
End With
' ...

In this modification, I replaced the .GetInspector.WordEditor.Range.PasteAndFormat with .GetInspector.WordEditor.Range.PasteSpecial. The PasteSpecial method allows for more control over the pasting process.

Also, please make sure that you have the following line at the beginning of your module to ensure that the Word constants are recognized:

Code:

Const wdPasteHTML As Integer = 10 ' Use the actual value of wdPasteHTML
Const wdInLine As Integer = 0 ' Use the actual value of wdInLine
Const wdFormatOriginalFormatting As Integer = 16 ' Use the actual value of wdFormatOriginalFormatting

Make sure that the constant values are correctly set according to the version of Word you are using.

After making these changes, try running the code again with the .Send method. If the issue persists, you may consider using the .Display method for now, as it allows you to manually review and send the emails. Alternatively, you might explore other methods like creating the email body directly in VBA without using Word as a template. I'm starting to be unsure whether this can be done with Word document using as a mail template. I can't help any further, I'm at my wits' end.