Introduction in file Send to

[Sophie]

Hello Everyone!

I have a very simple outlook emailer below
I notice in my new version of Excel (2003)
If I go to the menu and use File / Send / Mail Recipient
I have the option to add an "Introduction:" field
But when I do . in my code below I can't find it on the
list
Can anyone tell me what it's called, and if it's
available in earlier versions of excel.

TIA

Sxx


Sub SimpleSender()

Dim objOutlook As Object
Set objOutlook = CreateObject("Outlook.Application")

Dim objOutlookMsg As Outlook.MailItem

'Open Outlook
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg

.Display
.Recipients.Add "(e-mail address removed)"
.Subject = "Believe it or not ........"
.Body = "This works" & vbCr & vbCr & " and is
Outlook Version " & CheckOLVersion


.Send


End With

Set objOutlook = Nothing


End Sub

 

[Ron de Bruin]

Hi Sophie

This is code you can use only with the MailEnvelope
With code you can use this in Excel 2002 and 2003

See this Kb
http://support.microsoft.com/default.aspx?scid=kb;en-us;816644

 

[Sophie]

Hi Ron

Thank you very much for that
Was just what I'm after

Sx

-----Original Message-----
Hi Sophie

This is code you can use only with the MailEnvelope
With code you can use this in Excel 2002 and 2003

See this Kb
http://support.microsoft.com/default.aspx?scid=kb;en- us;816644

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Sophie" <[email protected]> wrote in

message news:[email protected]...