Late binding issue with Outlook mail item from XL

[XP]

I'm trying to automate Outlook from XL to generate an email using LATE
BINDING. I have the following code so far, BUT it breaks when trying to
create a MailItem:

Dim oOL As Object
Dim oMAIL As Object
Set oOL = CreateObject("Outlook.Application")
Set oMAIL = oOL.CreateObject("Outlook.MailItem")

Can someone please correct my code so this will run correctly?

Thanks much in advance.

 

[papou]

Hi
Dim oOL As Object
Dim oMAIL As Object
Set oOL = CreateObject("Outlook.Application")
Set oMAIL = oOL.CreateItem(olMailItem)

HTH
Cordially
Pascal

 

[XP]

Thanks, but this method fails at the line:

Set oMAIL = oOL.CreateItem(olMailItem)

Any ideas?

 

[Dave Peterson]

Open up Outlook.
Go to its VBE
Show the immediate window
and type:
?olMailItem

You'll see a number returned. Use that number instead of olMailItem.

You'll want to do this for any other outlook constant that you use in your code.

(and you'll have 0 errors <vbg>.)
That was a hint.

 

[papou]

Hi
Yes sorry about that:
Set oMAIL = oOL.CreateItem(0)

Cordially
Pascal

 

[Ron de Bruin]

See the examples in my Outlook macro's
http://www.rondebruin.nl/sendmail.htm