gmaxey
11-22-2023, 04:55 AM
Hi,
I am working on a project (in Word) that takes one or more completed Word documents and
1) Sends it as an email message
2) Sends it as an attachment to a email message.
Both options work but the send as and email option requires me to "Display" the mail item and this causes a distracting popup of the outlook application as each mail item is created.
It I take out the .Display line below then mail item is created but has no content. It there something besides .Display (perhaps display but Visible = False) that I can use? Thanks
If BodyFormat = 2 Then
.Display
Set oOLInsp = .GetInspector
Set oOLInspEditor = oOLInsp.WordEditor
Set oOLInspRng = oOLInspEditor.Range
If DS.UseDefaultSignature Then oOLInspRng.Collapse 1
oOLInspRng.PasteAndFormat (16) 'wdFormatOriginalFormatting
If DS.SuppressOLSpellCheck Then
oOLInspEditor.SpellingChecked = True
oOLInspEditor.GrammarChecked = True
End If
.Close 0
Else
I am working on a project (in Word) that takes one or more completed Word documents and
1) Sends it as an email message
2) Sends it as an attachment to a email message.
Both options work but the send as and email option requires me to "Display" the mail item and this causes a distracting popup of the outlook application as each mail item is created.
It I take out the .Display line below then mail item is created but has no content. It there something besides .Display (perhaps display but Visible = False) that I can use? Thanks
If BodyFormat = 2 Then
.Display
Set oOLInsp = .GetInspector
Set oOLInspEditor = oOLInsp.WordEditor
Set oOLInspRng = oOLInspEditor.Range
If DS.UseDefaultSignature Then oOLInspRng.Collapse 1
oOLInspRng.PasteAndFormat (16) 'wdFormatOriginalFormatting
If DS.SuppressOLSpellCheck Then
oOLInspEditor.SpellingChecked = True
oOLInspEditor.GrammarChecked = True
End If
.Close 0
Else