Introduction in file Send to
 

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 "
.Subject = "Believe it or not ........"
.Body = "This works" & vbCr & vbCr & " and is
Outlook Version " & CheckOLVersion


.Send


End With

Set objOutlook = Nothing


End Sub

Introduction in file Send to
 

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...b;en-us;816644

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


"Sophie" wrote in message ...
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 "
.Subject = "Believe it or not ........"
.Body = "This works" & vbCr & vbCr & " and is
Outlook Version " & CheckOLVersion


.Send


End With

Set objOutlook = Nothing


End Sub

Introduction in file Send to
 

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" wrote in
message ...
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 "
.Subject = "Believe it or not ........"
.Body = "This works" & vbCr & vbCr & " and is
Outlook Version " & CheckOLVersion


.Send


End With

Set objOutlook = Nothing


End Sub



.