tweak required..... (email/A2003 to Outlook)

[GaryPanic]

guys - i am using the code below and it kinda works -up to the message bit ..

what have i done wrong - ????



Dim EmailApp, NameSpace, EmailSend As Object

Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)


EmailSend.To = [Forms]![quotefrm]!
EmailSend.Subject = " Our Reference" & " " & [Forms]![quotefrm]![QuoteNo] & " " & [Forms]![quotefrm]![Insured]



EmailSend.Message = "zipxc"

'EmailSend.Attachments.Add "C:\temp\cancellation.xls"
EmailSend.Display

Set EmailApp = Nothing
Set NameSpace = Nothing
Set EmailSend = Nothing

 

[pbaldy]

I believe you want .Body, not .Message.

 

[c_smithwick]

Message is not a valid property of an Outlook MailItem. Use the Body property instead

 

[GaryPanic]

Fab-- resolved another beer I owe you Paul

and thanks CS- Paul beat you to it ..

 

[pbaldy]

Excellent!! I need a beer about now.

 

[GaryPanic]

- now looking at this - its raw text into my email - is there any way I can apply some simple formatting ? or have i gone down the wrong route for formating in this way .. (Bold and italic is probaby all i will need )

 

[pbaldy]

Using .HTMLBody will let you include HTML tags.

 

[GaryPanic]

Using .HTMLBody will let you include HTML tags.

ok - i need to read up on this (new area to me ) but i have the gist(?) of what i wanted done - so a bit of formating is just to pretty it up