I have a question for “run-time error ‘4198’: Command failed”.. I’ve been using this code for 2 years with no issue but it now doesn’t work.

Question

Sub MACRO_NAME_Email()

Sheets("Email").Select

Dim olApp As Outlook.Application
    Dim olEmail As Outlook.MailItem
    Dim ilInsp As Outlook.Inspector
    Dim wdDoc As Word.Document
    Dim strGreeting As String
    Dim strClosing As String
    
    Set olApp = New Outlook.Application
    Set olEmail = olApp.CreateItem(olMailItem)
    
    With olEmail
    
    .BodyFormat = olFormatHTML
        .Display
        
        .To = ThisWorkbook.Sheets("Email").Range("D2").Value
        .CC = ThisWorkbook.Sheets("Email").Range("D3").Value
        .Subject = ThisWorkbook.Sheets("Email").Range("D4").Value
        
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        wdDoc.Range.InsertAfter strGreeting
        
Sheets("Email").Select
    Range("D5:I75").Copy
    
    wdDoc.Range(Len(strGreeting), Len(strGreeting)).Paste
    
    End With
    
End Sub

Answer 1

Your code works at my side.

The "run-time error ‘4198’: Command failed" error message usually occurs when there is an issue with the clipboard.

You may try this one.

wdDoc.Range(Len(strGreeting), Len(strGreeting)).PasteSpecial DataType:=wdPasteText

Answer 2

It worked once, but after another try, it generated the same error.

Answer 3

You may try adding these lines.

=========================

Set olEmail = Nothing

Set olApp = Nothing

Set ilInsp = Nothing

Set wdDoc = Nothing

This will release all the set objects and free up memory resources.