Private Sub test()Dim nameExample As String Dim olItem As Outlook.MailItem Dim olInsp As Outlook.Inspector Dim wdDoc As Object Dim oRng As Object Dim olReply As MailItem Dim strTest As String, myItem As Outlook.MailItem For Each olItem In Application.ActiveExplorer.Selection nameExample = Split(olItem.SenderName, Chr(32))(0) Set olReply = olItem.ReplyAll strTest = olReply olReply.Display With olReply Set olInsp = .GetInspector Set wdDoc = olInsp.WordEditor Set oRng = wdDoc.Range(0, 0) oRng.Text = "Hi " & nameExample & "," & vbCr & vbCr & _ "We are in receipt of your RFQ" & "(" & strTest & ")" & vbCr & vbCr & _ "Thanks," & vbCr & vbCr End With DoEvents Next olItem Set olReply = Nothing Set olItem = Nothing Set olInsp = Nothing Set wdDoc = Nothing Set oRng = Nothing End Sub