Forward an outlook email with excel VBA

[Yoan_Geneva]

Dear members,

I have the following the code to forward an email outlook to another email adresses.


sub Forward_Email

Dim myItem as outlook.mailitem
Dim oloutmail as outlook.mailitem
Dim myinspector as outlook.inspector
Dim wdDoc as word.document
Dim wdRange as word.range
Dim outapp as object

Set Outapp=outlookApp

Set myitem = outapp.activeExplorer.selection.item(1)
set myinspector=myitem.GetInspector
set wdDoc=myInspector.WordEditor

There is a bug with the following code:
set wdDoc=myInspector.WordEditor --> "Application-defined or object-defined error"

Anyone can help with this error.

(I didn't put the full code as I can't copy paste my code)

Thanks

[Kenneth Hobs]

Welcome to the forum!

Maybe set the word object or Display?

Sub EmbedClipboardAndAppendClipboardInBody()
Dim ws As Worksheet, r As Range, b As Range
'Tools > References > Microsoft Outlook xx.0 Object Library
Dim olApp As Outlook.Application, olMail As Outlook.MailItem
'Tools > References > Microsoft Word xx.0 Object Library
Dim Word As Document, wr As Word.Range

Set ws = Worksheets("Renewal Dates")
Set r = ws.Range("A1:G1")

Set olApp = New Outlook.Application
Set olMail = olApp.CreateItem(olMailItem)
With olMail
.Importance = olImportanceNormal
.To = "ken@gmail.com"
.Subject = "31 Day Reminder"

.GetInspector.Display
Set Word = .GetInspector.WordEditor

r.Copy
Word.Range(0, 0).Paste
r.Offset(2).Copy
Set wr = Word.Content
wr.Collapse Direction:=wdCollapseEnd
wr.Paste 'Paste at end
Application.CutCopyMode = False

'https://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook._mailitem.deferreddeliverytime.aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
.DeferredDeliveryTime = Now + TimeValue("00:10:00")
.Display
'.Send
End With
Set olMail = Nothing
Set olApp = Nothing
End Sub